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Second Edition (April 1977) 

This edition includes the support of the 3790 Communication System - Remote Job Entry 
(RJE) facility and various quality improvements. Changes and additions to the text and 
illustrations are indicated by a vertical line to the left of the change. 

This edition, as amended by Technical Newsletter SN33-9241, applies to version 5, release 
34, of the Disk Operating System/Virtual Storage, DOS/VS, and to any subsequent versions 
and releases until otherwise indicated in new editions or Technical Newsletters. Changes 
are continually made to the information herein; before using this publication in connection 
with the operation of IBM systems, consult the latest IBM System/ 370 Bibliography, 
GC20-0001, for the editions that are applicable and current. 

Note: For the availability dates of features and programming support described in this ^1 

manual, please contact your IBM representative or the IBM branch office serving your f'k 

locality. r» 

Requests for copies of IBM publications should be made to your IBM representative 

or to the IBM branch office serving your locality. / i 



A form for reader's comments is provided at the back of this publication. If the form 
has been removed, comments may be addressed to IBM Germany, Publications Dept., 
Schwertstrasse 58, D-7032 Sindelfingen, Germany. Comments become the property 
of IBM. 

© Copyright International Business Machines Corporation 1977 
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This Manual 
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which should be used together with DOS '/VS POWER /VS Logic Part 1, SY33-8576, 
contains information about the internal logic of POWER/VS. To use it effectively, 
the reader should be familiar with the concepts and facilities of POWER/VS as they 
are described in the following IBM DOS/VS manuals: 

Introduction to DOS/VS, GC33-5370 

DOS/VS POWER/VS Installation Guide and Reference, GC33-6048 

DOS/VS POWER/VS Workstation User's Guide, GC33-6049 

RJE,SNA users should also be familiar with the VTAM concepts and facilities as 
they are described in: 

VTAM Concepts and Planning, GC27-6998 
VTAM Macro Language Reference, GC27 -6995 
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Summary of Amendments 



INDEPENDENT COMPONENT 
RELEASE OF IBM 3800 
PRINTING SUBSYSTEM 
SUPPORT 



Technical Newsletter SN33-9241 documents changes to support the IBM 3800 
Printing Subsystem under DOS/VS POWER/VS. 



RELEASE 34 



This revised edition of the Logic Manual documents extended support for Remote 
Job Entry with SNA terminal support (RJE,SNA) using the 3790 Communication 
System with RJE Facility, plus quality improvement items. 



RELEASE 33 



Technical Newsletter SN33-9208 documents new support for the internal reader/ 
writer (PUTSPOOL, GETSPOOL, and CTLSPOOL) and improvements in perfor- 
mance, handling, and accounting. 



RELEASE 32 (RJE,SNA) 



This edition of the Logic Manual documents new support for Remote Job Entry 
with SNA terminal support (RJE,SNA). 

Manual usability has been improved through dividing the Logic Manual into two 
parts. Part 1 (SY33-8576) describes the overall logic, data area layouts, a directory 
of the modules and macros and messages, and other general logic information. Part 2 
contains the detailed logic description of each POWER/VS module. 
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Program Organization 



For a directory of the contents of this manual,, see Section 
POWER/VS Logic Part 1 „ SY33-8576. 



Directory of the DOS/VS 



This manual describes in detail the phases of the POWER/VS program. An introduction 
describes linkage conventions between routines* The phase descriptions are preceded by a 
general overview chart.. 

The command processing phases,, and the SNA processing phases are described using HIPO; 
all other phases are described by using a combination of text, flowcharts, listings and 
references. The latter method can be used to locate a piece of coding in the listing by 
going through the logic flow and scanning data fields and register references and 
comparing them with their actual contents as they appear in a dump. The contents of 
these charts is explained below,. 



The module IPW$$MD is not documented, due to its simplicity, 
message definitions, and otherwise no executable code. 



It contains only POWER/VS 



This column contains labels corresponding 
to the program listing. (Note that not all 
labels are shown, but only those labels 
which are necessary to provide a reference 
to the program listing.) 



This column contains a detailed 
description of the main processing flow. 



( 




This column contains the labels where 
the logic flow description inside this 
phase is continued. 



Note: These charts are not meant to be 
a copy of the program listing. 



This column contains the most important 
data fields that are modified by this 
phase. 



This column contains the most important 
register usage of this phase. 



-X. 



This column contains macro calls, indicating 
interfaces outside this phase. Refer to 
section 2 for the meaning of these linkage 
macros, and to the indicated chart IDs for 
a continuation of the logic flow description. 
Control is always returned to this point. 
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POWER/ VS LINKAGE CONVENTIONS 



This section begins with a description of the conventions used in the hierarchic 
structure of the POWER/VS program,* including the following linkages (see Figure 1) and 
register usage,. 

• Register conventions which define the general usage of registers within the POWER/VS 
program. 

• Interface linkage, when an external routine passes control to an internal routine,, or 
vice versa. 

• Function linkage, when an internal routine invokes a POWER/VS function. 

• Service linkage, when any POWER/VS routine invokes a POWER/VS service,. 



V.> 



External Routines 
I nterf ace 



Internal Routines 

I 



Linkage 



Functions 



Linkage 



Services 



V 



Figure 1. Hierarchic Stucture of POWER/VS 



REGISTER CONVENTIONS 



This section describes the standard functions and uses assigned to certain of the general 
purpose registers throughout POWER/VS. The £0WER/VS registers are conveniently regarded 
as running from register 10 to register 9. 

Register 10 - Partition Base Register 

Register 10 is used to contain the address of the first byte of the POWER/VS partition at 
all times during POWER/VS execution, and thus secures addressability for the control 
address table (CAT), task management and task services contained in pages 00 and 01 of 
the partition. The register is not available for other use. 



Register 11 - Task Control Address Register 

Register 11 is used to contain the address of the first byte of the TCB for the task 
currently in control of the central processor, and thus secures addressability for the 
task parameters and task work space contained in the TCB. The register is not available 
for other use. 
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Register 12 - Asynchronous Address Register 

Register 12 is used by the task management and page fault appendage routine to retain the 
return address of a task entering task selection. Since the register contents are liable 
to asynchronous change,, the register is not available for other use. 

Register 13 - save Area Register 

Register 13 is used to address the current save area,, that is, the storage area in which 
the general purpose registers are to be saved when an entry linkage is next performed. 

Register 14 - Linkage Register 

Register 14 is used to contain the linkage address,, that is, the address to which return 
is to be made when an exit linkage is next performed. When not required for this 
purpose,, the register is available for general use. 

Register 15 - Entry £oint Register 

Register 15 is used to address the entry point of the routine to be entered when an entry 
linkage is performed. This aduress is normally that of the storage descriptor which 
precedes the routine to be executed. The register may be conveniently used as the base 
register for the routine to be executed. When not required for this purpose,, the 
register is available for general use. 



( 



Register - Parameter and Work Register 

Register is used to pass parameters to and from invoked routines. When not required 
for this purpose, the register is available for general use. 

Register 1 - Parameter and Work Register 

Register 1 is used to pass parameters or addresses of parameter lists to and from invoked 
routines, and in particular to pass command control block addresses to the physical IOCS 
routines of the DOS/VS supervisor. It also has machine usage when a translate and test 
instruction is executed. When not required for these purposes,, the register is available 
for general task use. 

Register 2 - Linkage and Work Register 

Register 2 is used by function and service routines to retain the return address of the 
requesting task. It also has machine usage when a translate and test instruction is 
executed. When not required for these purposes, the register is available for general 
task use. 



Register 3 - Resource Address Register 

Register 3 is used by functions and services to address resource control blocks, 
not required for this purpose, the register is available for general task use. 



When 



Registers 4-9 

Registers 4-9 are available for general task use. 
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INTERFACE LINKAGE 



Each external and internal routine of POWER/VS is coded as a unique control section. 
Control is initially given by task management to the external routine to be associated 
with a specific task. This external routine must then establish a linkage to the 
appropriate internal routine or routines by means of the interface linkage. 



x.„y 



O pen interface (IPW$QLI macro instruction) 

The interface is opened by the creation of a dynamic save area, which is associated with 
the internal routine. The save area associated with the external routine is located in 
the TCB. Each save area contains in word 2 the address of th^ other save area (see 
Figure 2). 

Get/Put linkage (IPW$GLR an d I PW$PLR macro instructions) 

Linkage is done as follows. The calling task must first establish its return address in 
register 14, and then save the current contents of registers 14 through 9 in its own save 
area. It must then load register 13 from word 2 of its save area, thus addressing the 
other save area. Registers 14, 15, and 2 through 9 are then loaded from the second save 
area, and a branch made to the address contained in register 14. (Registers and 1 are 
used for passing parameters and are therefore not reloaded at this time.) 

Control has now passed across the interface to the called routine. This routine returns 
control to the calling routine by repeating the sequence of operations described in the 
preceding paragraph. 

Close interface (IPW $CLI macro in struction) 

The dynamic save area associated with the internal routine is released. 

(Registers 10 through 13 have the special uses described in "Register Conventions", and 
are therefore neither saved nor restored during interface linkage.) 



// 

| TCB | | R14 | R15 | RO | R1 | / / | R8 | R9 | 

External save area 

/ / 
| TCB [ | RI4 | R15 J RO | Ri | / /[ R8 [ R9 [ 

Entry / / 

/ / 




point 



/ 



Internal save area 
Figure 2. Relationship of Internal and External Save Area 
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FUNCTION LINKAGE 

Each POWER/VS function is coded as a unique control section. The first sixteen bytes of 
each control section consist of an alphameric control section descriptor. A. fullword 
address constant containing the address of each control section is contained in the 
control address tables. 

Linkage to a function is achieved by loading register 15 with the address of the 
appropriate control section and then executing a branch and link instruction in the form 
BAL 14, f 16(15). Thus, entry is made to the control section at the first byte following 
the control section descriptor , the task return address being preserved in register 14. 

Upon entry, the contents of registers 14 through 9 are saved in words 3 through 14 of the 
dynamic save area provided by the calling routine and addressed by register 13 (IPW$SAV 
macro instruction) . 

On return from a f unction, registers 14 through 9 are restored from the dynamic save area 
addressed by register 13. A branch is then made to the return address now contained in 
register 14 (IPW$RET macro instruction). 



(Registers 10 through 13 have the special uses described in "Register Conventions" 
are therefore neither saved nor restored during function linkage.) 



and 



( 



SERVICE LINKAGE 

Each POWER/VS service is coded as a unique routine contained in the nucleus phase 
(IPW$$NU). 

Linkage to a service is based on the use of registers through 3. In most cases 
register 2 acts as a branch- and- link register. 

Registers and 1 are often used to pass parameters between calling routine and the 
invoked service. Figure 3 shows the various usages of the registers through 3. 

The service macros are used to address the services via a service routine branch table 
located in the CAT in the nucleus phase. 
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Figure 3. Contents of registers when a service is invoked 

1 Displacement within DOS/VS task selection '•TRTMK* field of the byte representing 
the use of the required area (PTA/LTA), 

2 8 - do not return if no work space can be allocated (IPW$WFL SCB/ECB) 
- return (RO-zero, Rl=ECB in SCB) if no work space available. 
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DOS/VS SUPERVISOR 



c 



SVC 
APPENDAGE 

CHART BE 



Posts appropriate 
execution processor 
task and sets 
POWER/VS partition 
dispatchable. 



® 



"TT" 
I I 

i { 



exec. RDR task 
exec. LST task 
exec. PUN task 



HOT READER 
APPENDAGE 

CHART BD 



Locates appropriate 
reader task and posts 
it dispatchable. 



® 



V 

local RDR task 



PAGE FAULT 
APPENDAGE 

CHART BA 



Preprocessor 



Changes next sequential 
instruction in PSW to 
task management to 
select another task 
during processing of the 
page fault. 
Queues page faults 
before returning to 
page manager. 



Post-processor 



Posts appropriate task 

dispatchable and sets 

POWER/VS 

dispatchable. 

Returns next page fault 

in queue to page 

manager 



® 



any task 

(at post-processor) 

or 

task management 

(at pre-processor) 



ATT. INTERFACE 
APPENDAGE 

CHART BB 



Verifies and passes 
potential POWER/VS 
command; posts 
command processor 
task dispatchable. 



V 

CP task 



IPW$$NU 

Task Management 
Chart AA 



Scans for TCB of task 
with highest priority 
ready to run and 
dispatches it. (See 
Figure 2.7.) 







SVC 90/91 
APPENDAGE 

CHART BF 



Passes DOS/VS and 
user job accounting 
information to 
execution account 
record area; posts 
execution reader 
task dispatchable. 



RJE CHANNEL END 
APPENDAGE 

CHART BC 



Queues BCA in BCA 
chain and posts line 
manager task 
dispatchable. 



® 



exec. RDR task 



@ RJE line 



manager task 



£? 



1* J * From any task issuing 
POWER/VS wait or 
detach 



SVC 7 when no 



task dispatchable 



►® 



Figure 4. Interfaces and Task Structured References (Part 1 of 5) 
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LOCAL READER 
TASK 



IPW$$PR Chart HA 

and/or 

IPW$$ER Chart HC 

Reads cards into 
physical data area 
(PDA) and links to 
logical reader. 



IPW$$LR Chart HB 

Writes data records 
to data file from 
logical data area (LDA) 
and creates queue entry 
by means of function 
routines. 



Functions used by 
IPW$$PR/IPW$$ER 
and IPW$$LR 



RQ 
AQ 
PD 
DQ 
FQ 
PA 
LU 
SC 
OE 



Chart DA 
Chart DB 
Chart EA 
Chart DD 
Chart DE 
Chart FA 
Chart GC 
Chart GA 
Chart GF 



Services used 



TM 
RM 
SM 
MS 
DS 
TIS 



Chart AA 
Chart AB 
Chart AC 
Chart AD 
Chart AE 
Chart AG 







IPW$$LR Chart HB 

Writes data records 
to data file from 
logical data area (LDA) 
and creates queue entry 
by means of function 
routines. 



RJE,BSC 
READER TASK 



IPW$$TM Chart MA 



Reads cards from 
terminal device (using 
RTAM routines) and 
links to logical reader 



Functions used by 
IPW$$TM and 
IPW$$LR 



RQ 

AQ 

PD 

DQ 

FQ 

PA 

LU 

SC 

IC 

MS 



Chart DA 
Chart DB 
Chart EA 
Chart DD 
Chart DE 
Chart FA 
Chart GC 
Chart GA 
Chart GD 
Chart MB 



Services used 



TM 
RM 
SM 
MS 
DS 
JJSL 



Chart AA 
Chart AB 
Chart AC 
Chart AD 
Chart AE 

■ Chart AG, 



^ 



IPW$$LR Chart HB 

Writes dataTecords 
to data file from 
logical data area (LDA) 
and creates queue entry 
by means of function 
routines. 



RJE,SNA 
READER TASK 



IPW$$IB Chart MG 



Reads data from 
terminal devices using 
VTAM macros and 
links to logical reader. 



Functions used by 

IPW$$IBand 

IPW$$LR 



RQ 
AQ 
DQ 
FQ 
PD 
PA 
SC 
IC 



Chart DA 
Chart DB 
Chart DD 
Chart DE 
Chart EA 
Chart FA 
Chart GA 
Chart GD 



TM 
RM 
SM 
MS 
TIS 



Chart AA 
Chart AB 
Chart AC 
Chart AD 
Chart AG 



EXECUTION 
READER TASK 



IPW$$XR Chart KA 



Emulates reader I/O 
requests from user 
program into read 
operations from data 
file. 

Invokes execution 
list/punch writer task 
whenever list or 
punch I/O request to 
be emulated. 



^unctions used by 
IPW$$XR 



GD 
NQ 
DQ 
FQ 
PA 
XJ 
SL 



Chart EB 
Chart DC 
Chart DD 
Chart DE 
Chart FA 
Chart GB 
Chart GE 



TM 
RM 
SM 
MS 
DS 
VS 



Chart AA 
Chart AB 
Chart AC 
Chart AD 
Chart AE 
Chart AH 



^^ 



EXECUTION 
LIST/PUNCH TASK 



IPW$$XW Chart KB 



Emulates list and punch 
I/O requests from user 
program into write 
operations to data file 
and creates a queue en 
entry by means of 
function routines. 



Invokes 
IPW$$OT for 
tape output. 



Functions used by 
IPW$$XW 



RQ Chart DA 

AQ Chart DB 

PD Chart EA 

OT Chart GG 

XJ Chart GB 



Services used 



TM 
RM 
SM 
MS 
DS 
TS 
VS 



Chart AA 
Chart AB 
Chart AC 
Chart AD 
Chart AE 
Chart AF 
Chart AH 



LOCAL LIST 
TASK 



IPW$$PL Chart JA 



Links to logical writer 
and prints lines from 
physical data area 
(PDA). 



IPW$$LW Chart JC 



Reads data records 
from data file- using 
information from 
queue records belong- 
ing to queue entry by 
means of function 
routines. 



Functions used by 
|PW$$PL and 
IPW$$LW 



NQ 
DQ 
FQ 
PA 
LU 
AS 



Chart DC 
Chart DD 
Chart DE 
Chart FA 
Chart GC 
Chart GH 



TM 
RM 
SM 
MS 
DS 
TS 
TIS 



Chart AA 
Chart AB 
Chart AC 
Chart AD 
Chart AE 
Chart AF 
Chart AG 



^ 



LOCAL PUNCH 
TASK 



IPW$$PP Chart J B 



Links to logical writer 
and punches cards 
from physical data 
area (PDA). 



IPW$$LW Chart JC 



Reads data records 
from data file using 
information from 
queue records belong- 
ing to queue entry by 
means of function 
routines. 



Functions used by 

IPW$$PPand 

IPW$$LW 



NQ 
DQ 
FQ 
PA 
LU 



Chart DC 
Chart DD 
Chart DE 
Chart FA 
Chart GC 



TM 
RM 
SM 
MS 
DS 
TS 
TIS 



Chart AA 
Chart AB 
Chart AC 
Chart AD 
Chart AE 
Chart AF 
Chart AG 



,,/' 
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Figure 4. Interfaces and Task Structured References (Part 2 of 5) 
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( 



RJE.BSC 
LIST/PUNCH TASK 



IPW$$TM Chart MA 



Links to logical 
writer and prints lines, 
or punches cards at 
terminal using RTAM 
routines. 



IPW$$LW Chart JC 

Reads data records 
from data file using 
information -from 
queue records belong- 
ing to queue entry by 
means of functions. 



Functions used by 
IPW$$TM and 
IPW$$LW 



NQ 
DQ 
FQ 
PA 
LU 
MS 
IC 



Chart DC 
Chart DD 
Chart DE 
Chart FA 
Chart GC 
Chart MB 
Chart GD 



Services used 



TM 
RM 
SM 
MS 
DS 
TS 
TIS- 



Chart AA 
Chart AB 
Chart AC 
Chart AD 
Chart AE 
Chart AF 
Chart AG 



RJE,SNA 
LIST/PUNCH TASK 



IPW$$OB Chart MH 



Links to logical 
writer and prints lines, 
or punches cards at 
terminal using VTAM 
macros. 



IPW$$LW Chart JC 

Reads data records 
from data file using 
information from 
queue records belong- 
ing to queue entry by 
means of functions. 



Functions used by 
IPW$$OB and 
IPW$$LW 



NQ Chart DC 

DQ Chart DD 

FQ Chart DE 

PA Chart FA 



TM 
RM 
SM 
MS 
DS 
TS 
TIS 



Chart AA 
Chart AB 
Chart AC 
Chart AD 
Chart AE 
Chart AF 
Chart AG 



COMMAND 
PROCESSOR TASK 



IPW$$CP Chart CP 



Builds and attaches 
tasks into task 
selection list, initiates 
termination of tasks, 
or changes status 
queue entries according 
to command received. 



Functions used by 
IPW$$CP 



AQ Chart DB 

DQ Chart DD 

FQ Chart DE 

LU Chart GC 



Services used 



TM Chart AA 

RM Chart AB 

SM Chart AC 

MS Chart AD 

DS Chart AE 



IPW$$SA Chart CR 



Reads account file 
using a function routine 
and writes the account 
records to disk, tape or 
punch device, or deletes 
the file, or links to 
logical reader to spool 
cards to be punched. 



SAVE ACCOUNT 
TASK 



IPW$$LR 



HB 



Writes records to 
data file and creates 
queue entry using 
function routines. 



Functions used by 
IPW$$SA (for 
IPW$$LR, see com- 
mon reader tasks) 



GA 



Services used 



TM Chart AA 

RM Chart AB 

,SM Chart AC 

JMS Chart AD 

[DS Chart AE 



STATUS TASK 



IPW$$PS Chart CQ 



Reads queue file 
records using function 
routines and prints 
queue status informa- 
tion on a printer 
device. 



Functions used by 
IPW$$PS 



LU 
MS 



Chart GC 
Chart MB 



TM 
SM 
MS 
DS 



Chart AA 
Chart AC 
Chart AD 
Chart AE 



INITIATOR/ 
TERMINATOR 
TASK 



IPW$$I2 Chart LB 



Loads nucleus and all 
required modules into 
partition at initiation 
time. 

Opens POWER/VS 
files and links to 
logical reader and 
writer for autostart. 
Then waits for 
request as terminator. 
Closes POWER/VS 
files and restores 
partition for normal 
DOS/VS operation. 



IPW$$LR 
IPW$$LW 



HB 

JC 



Process autostart 
initiation. 



Functions used by 
IPW$$I2 (for IPW$$LR 
IPW$$LW see common 
reader/writer tasks) 



PA 
GA 
IC 
LU 



Chart FA 
Chart FB 
Chart GD 
Chart GC 



(IPW$$TM Chart MA) 
($$BPOW|N Chart LD) 



Services used 



TM Chart AA 

SM Chart AC 

MS Chart AD 

DS Chart AE 

TIS Chart AG 







TASK 

TERMINATOR 

TASK 



IPW$$TR Chart LC 



Handles PSTOP from 
logical reader/writer 
tasks and I/O error or 
WLR error conditions. 
On error conditions, 
files are restored to 
their best possible 
status. 

This task uses the 
TCB of the task to 
be terminated or the 
task to be recovered 
from the I/O error. 



Functions used by 
IPW$$TR 



AQ 
DQ 
FQ 
PD 
PA 
GA 
LU 



Chart DB 
Chart DD 
Chart DE 
Chart EA 
Chart FA 
Chart FB 
Chart GC 



Services used 



TM 
RM 
SM 
MS 
DS 
TS 



Chart AA 
Chart A3 
Chart AC 
Chart AD 
Chart AE 
Chart AF 



5> 



Figure 4. Interfaces and Task Structured References (Part 3 of 5) 
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RJE,BSC LINE 
MANAGER TASK 



IPW$$TM Chart MA 



RJE,SNA 
MANAGER TASK 



IPW$$SN Chart MC 



RJE, SNA 
LOGON TASK 1 



IPW$$LH Chart MK 



RJE,SNA 
LOGON TASK 



IPW$$LN Chart MD 



RJE,SNA 
LOGOFF TASK 



IPW$$LF Chart ME 



RJE,SNA 
MESSAGE TASK 



IPW$$MP Chart MF 



Initiates and terminates 
lines, processes sign 
on/off, recovers from 
line errors, interfaces 
with RTAM routines. 



Functions used by 
IPW$$TM 
(Line Manager) 



Services used 



Activates SNA 
processing routines 
for each logical unit 
requesting to log on 
to the system. 
Attaches DOS/VS 
subtask to open 
the interface 
between VTAM 
andPOWER/VS 



Initializes work areas 
and does validity 
checking of logon 
request 



Initiates a session 
between a logical 
unit and POWER/VS. 



Terminates a session 
between a logical 
unit and POWER/VS 



Writes messages to 
the logical unit 
using VTAM macros. 



Functions used by 
IPW$$LF 



Chart FA 



Services used 



Services Used 



Services used 



Services used 



Services used 



TM 
RM 



Chart AA 
Chart AB 



V 

Remote 

reader/writer 

task 



TM Chart AA 

RM Chart AB 

SM Chart AC 

MS Chart AD 



TM Chart AA 

SM Chart AB 

RM Chart AC 

MS Chart AD 

TIS Chart AG 



TM 
RM 
MS 
TIS 



Chart AA 
Chart AB 
Chart AD 
Chart AG 



TM 
RM 
MS 
TIS 



Chart AA 
Chart AB 
Chart AD 
Chart AG 



TM 
RM 
MS 



Chart AA 
Chart AB 
Chart AD 



c o 







Figure 4. Interfaces and Task Structured References (Part 4 of 5) 
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( 



















1 


' 




V 




V 


INTERNAL READER 
TASK 




SPOOL/COMMAND 
MANAGER LIST TASK 




SPOOL MANAGE- 
MENT TASK 


IPW$$SM Chart PA 


IPW$$SM Chart PA 


IPW$$SM Chart 


Reads data from user's 
buffer area through 
the PUTSPOOL macro 
interface and passes 
data records to logical 
reader. 




Links to logical writer 
for list retrieval 
(GETSPOOL)and 
invokes Command 
Processor for 
CTLSPOOL processing. 




Activates Internal 
reader task and/or 
spool /command 
manager list task for 
PUTSPOOL, GETS- 
POOL, and 
CTLSPOOL proces- 
sing. 


IPW$$LR Chart HB 


IPW$$LW Chart JC 


Writes data records 
to data file from 
logical data area 
(LDA) and creates 
queue entry by means 
of function routines. 




Reads data records 
from data file using 
information from 
queue records belon- 
ging to queue entry 
by means of func- 
tions. 


Functions used by 
IPW$$SM and 
IPW$$LR 


Functions used by 
IPW$$SM and 
IPW$$LW 


RQ Chart DA 
AQ Chart DB 
DQ Chart DD 
FQ Chart DE 
PD Chart EA 
PA Chart FA 
SC Chart G A 
IC Chart GD 




NQ Chart DC 
DQ Chart DD 
FQ Chart DE 
IC Chart GD 
PA Chart FA 


Services used 


Services used 


TM Chart AA 
RM Chart AB 
SM Chart AC 
MS Chart AD 
TIS Chart AG 




TM Chart AA 
RM Chart AB 
SM Chart AC 
MS Chart AD 

TS Chart AF 
TIS Chart AG 


Services used 


TM Chart AA 
RM Chart AB 



















U Q 



Figure 4. Interfaces and Task Structured References (Part 5 of 5) 
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UNDERSTAND! N3 POWE R/VS HIPP CHARTS 

The following routines are shown in form of HIPO charts:. Command Processor, Print Queue 
Status, and RJE/SNA. They are coded in several levels, and each higher-level segment may 
include one or more lower-level segments. For each phase,, the first chart is an overview of 
all segments contained in the phase. The contents of the charts is explained below. 

Each chart has four major blocks: an input block to the left, a processing block in the 
middle, an output block to the right and an extended description block at the end of the 
chart. (See figure below). 



This block contains input that any 
of the processing steps refer to or 
get 



This block contains the processing 
steps within a segment. The top of 
this block has a short summary of 
what the segment does. 



This block contains output that any 
of the processing steps changed, 
created, or inserted data into. 




1. Any subroutines called 

2. Any macros used 

3. The hiqhei level segment when returned to. 



A box drawn within the middle block indicates 
that, in the PLS code, a lower level segment is 
included at this point. 




These columns show the included segment and 
the subroutines called. The rightmost column 
shows the appropriate chart for a detailed 
description of the included segment or 
subroutine called. 



Legend 



The notes in the extended description provide details about the 
processing steps. Also the complete message text of any of the 
messages built within a segment is shown. The numbers correspond 
to the appropriate processing steps. 



Indicates the FLOW OF ACTION 
z£> Indicates the DATA FLOW 

t Indicates an ADDRESS or a POINTER 
.-► indicates a REFERENCE 



si _ 
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POW ER/VS NUCLEUS (IPW$$NU): SERVICES 



Chart AhOO: IPW$$NU - POWER/VS Nucleus Services,, General Flow and Macro Calls 



( 



IPW$$NU 



Task Management 
(Task selection) 



IPW$$TR 



Task Terminator 



J 



IPW$$NU 



Task Management 
(Detach the task) 



Any POWER/VS 
Task 



Services 



IPW$$NU - POWER/VS Nucleus 



Services 



Label 



TA01 
TD01 
TM01 

RM02 
RM51 

SM03 
SM51 
MM01 
DM20 

TP20 
TR01 
VA01 



Routine 



Task management 

Task initiation (includes IPW$ATT 
macro) 

Task initiation (includes IPW$DET 
macro) 

Task selection (includes IPW$WFx and 
IPW$FCH macros) 

Resource management 

Reserve resource (includes IPW$RSR 

macro) 

Release resource (includes IPW$RLR 

macro) 

Storage Management 

Reserve workspace (includes IPW$RSW 

and IPW$OLI macros) 

Release workspace (includes 
IPW$RLW and IPW$CLI macros) 
Message Service 



Disk Service (includes IPW$RDQ, 
IPW$WTQ, IPW$RDD, and IPW$WTD 

macros) 

Tape Service (includes IPW$RDT, 
IPW$WTT, and IPW$CTT macros) 

Timer Service (includes IPW$RDC macro) 



Validation Service (includes IPW$VDA 



macro) 



Functions/ 
Interfaces 



Return to calling 
POWER/VS task 



Services 



A,B,F 

C,D 
C,D 



A,C,D 
A 



IPW$$NU 


Macro 


Ref. 


Chart 


Task Management 


A 
B 

C 
D 

E 
F 


AA 
AB 

AC 
AD 


IPW$WFC 
IPW$WFL 


Resource Management 


IPW$RSR 
IPW$RLR 


Storage Management 


IPW$RLW 


Message Service 


IPW$WTO 



c 
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CHART AA: IPW$$NU - TASK MANAGEMENT (3 PARTS) 



r 

| Labels 


-T 

j Chart A^Ol: IPW$$NU - POWER/VS Nucleus, 
| Task Management 

_± _ _ ._ 


T * 

(Modified Data 

JFields 

j. 


r T 

|Reg. |Calls 
Usage j 

L 4. «.-. 


r 

|TMSD 


T T 

| The first 16 bytes constitute the | 
j section descriptor: j 

| 'WCB V10M0 • | 

I Task Initiation I 

j Registers at entry: j 


T 


r T 




j 0: Return address to caller j 

| 3: Address of routine to be entered | 
| (CSECT) | 




|R0 | 
|R1 | 
|R3 | 


JTA01 


(Set task dispa tenable j 
j Initialize registers in task save j 
| area j 


|TCSF(IPW$DTC) 






| 15: CSECT address I 
j 9 : CSECT address | 
|12: Entry point address j 


|TCRF(IPW$DTC) 
|TCR9 (IPW$DTC) 
|TCRC(IPW$DTC) 


|R15 | 
|R9 | 
|R12 | 


|'TRl02 


(Scan task control address table in j 
j CAT and match task identifier prefix j 
jof the new task (first character) | 








j 3: Task control address table j 
j 2: Preceding task address. j 




|R3 | 
|R2 | 


|TA06 


j Store the new TCB address in the j 
| appropriate entries of the task index) 
(table. j 






|TA10 


| Retrieve next pointer from preceding j 
(task and set task selection list | 
(pointers in new TCB,. j 


|TCTN(IPW$DTC) 
| TCTP(IPW$DTC) 






(Store address of new TCB in preceding] 
j TCB . | 
j Store address of new TCB in next TCB. | 
(Increment number of current tasks. j 


|TCTN(IPW$DTC) 

|TCTP(IPW$DTC) 
| NRTC(IPW$DPA) 






(Update maximum of previous NRTC if | 
j higher. j 


|NRTH(IPW$DPA) 




JTA20 


(Return to caller. j 
(Task Termination I 
(Registers at entry: | 




|R2 | 




| 0: Either zero or address of an ECB. | 
(1: Address of TCB j 




|R0 | 
|R1 | 


|TD01 


j Remove TCB from selection list: | 








(Store address of next TCB in previousj 
(TCB. | 


|TCTN(IPW$DTC) 




I ,- 


(Store address of previous TCB in next) 
■|TCB. j 

_X„ ,_„ .„ ._ , ,_ . , . ,JL . 


|TCTP(IPW$DTC) 

X«„ . . 


! I 
1 1 

X-. — . 1. , 



J V 
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r 

] Labels 

L 


r — , _ — .„ . ,_ : 

| Chart AA02: IPW$$NU - POWER/VS Nucleus, 
Task Management 

L ._ , «. !mm .^ _ 


— r 

| Modified Data 
| Fields 


— T T 

|Reg. (Calls 
(Usage | 


|TD0 2 


Store the previous TCB address in the| 

[appropriate entries of the task index] 

table. J 


_.|. — — — 


—j. -j. 


]TD05 


Post ECB, if available. | 
Decrement the number of tasks. j 


|NRTC(IPW$DPA) 






If no more than two tasks in j 
j existence, check for termination in J 
| progress: If so,, post terminator | 

| ECB. | 


|TCGW(IPW$DTC) 




|TD06 


| Release work space occupied by TCB,. | 
Enter task selection................. >|TM02 

ITask Selection | 




I | IPW$RLW 
| | Chart AC 




| Register at entry: | 






(12: address of next instruction to | 

be executed when task is next ] 

| dispatched. | 




|R12 | 


| TM01 


i If the task is in invalid ' R' state,, j 
| return to reload the original state j 
i value because a page fault has j 
| occurred after the I/O interrupt,. j 




|R12 | 


|TMQ1A 
|TM02 


| Save task registers 12 through 9 | 
j inclusive impost POWER/VS master ECB. j 


|TCTR(IPW$DTC) 
|PAEB(IPW$DPA) 




|TM10 


Scan the task selection list: j 








11: Addresses TCB | 
1 12 : Addresses selection routine,. j 




|R11 | 
|R12 | 


|TM20 


|1. W state: If POWER/VS master ECB | 

j i s posted. > TMO 2 








Otherwise,, wait for posting of it j 
| (SVC 7). | 






|TM30 


2. L state: If lockword of the j 
resource zero,, enter dispatch | 
| rout ine. > TM9 








| Otherwise,, address next TCB..,.,. >)TM10 




|TM50 


3. M and Q state: Scan control j 
block list for posting of the | 
| traffic or event bit,. If found,, | 
| store address of relevant control j 
j block in register 1 in task j 
save area and enter dispatch j 
j routine. > j TM9 


|TCR1 (IPW$DTC) 





L J. JL x 



i ± J 
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1 

Labels 


r . 

Chart AA03: IPW$$NU - POWER/VS Nucleus, 
Task Management 


r 1 

Modified Data 
Fields 


r 1 

Reg. 
Usage 


r 1 

Calls 


TM55 


4.. F state: If the transient area 
is available,, (selection mask in 
supervisor selection resource 
table TRTMASK indicates this) 
enter dispatch routine, •••..•• • > 


r i 
TM90 










Otherwise,, address next TCB...,. > 


TM10 








TM80 


5. C and S state: If traffic or 
event bit posted in control 
block: 

Test if unrecoverable error has 
occurred. If not, enter dispatch 
routine > 


TM90 










Test for RJE. If line manager, 
ignore the error. 




If writer task (LST or PUN), then 
enter dispatch routine > 


TM90 










Test for I/O error during data 
file access. If so, enter 
dispatch routine. > 


TM90 








TM82 


Set termination indicator (U) in 
TCB. 

Address terminator phase 
(IPW$$TR) and set entry point. 

Store entry point in register 12 
(task selection). 

Enter dispatch routine. ....... . > 


TM90 


TCTT(IPW$DTC) 
TCRC(IPW$DTC) 


R2 






Otherwise, (no posting) address 
next TCB • ••••••.••••••.,••••.••,. > 


TM10 

TM10 










6. I, 0, and P state: address next 
TCB. ... > 




7. D state: enter dispatch 

routine. ....................... > 


11X19 








TM90 


Dispatch the task,. 




Restore task registers. 
Indicate task is running. 
Restore condition code in PSW,. 
Branch to next instruction 
(register 12) . 




TCSF(IPW$DTC) - 


R12-R9 
R12 





..J' 



V. J* 
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.CHART AB: IPW$$NU - RESOURCE MANAGEMENT 



r 

| Labels 

L „ 


• T 

| Chart AB01: IPW$$NU - POWER/VS Nucleus,, 
j Resource Management 

_j «. 


T 

| Modified Data 
|Fields 

j._ _. 


— T 

| Reg. 
| Usage 
. 4. 


_ T 

|Calls 

_j 


r 


1 T 

| Registers at entry : | 

| 2 : return address j 
| 3: address of control block to be j 
j reserved. j 


^— • 


1 

|R2 
|R3 


1 


|RM02 


I Reserve Resource I 




|R2 






j Wait for the resource. j 

j Set ownership (address of TCB) in the] 
| control block. j 
| Return to caller. j 


|IPW$WFL 
| Chart AA 


|RM51 


I Release Resource I 

| Re set lockword to zero. j 
(Return to caller. j 




|R2 





( 



"X 



C 
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CHART AC: IPW$$NU - STORAGE MANAGEMENT (3 PARTS) 



r 

| Labels 

> 

JSCSD 


j Chart AC01: IPW$$NU - POWER/VS Nucleus 
j Storage Management 
_ + _ T 

|The first 16 bytes constitute the | 
| section descriptor: | 

I'SCB V7M0 ' | 


TT 

| Modified Data 
| Fields 
„ + 


—T 

|Reg. 
| Usage 
-+ 


■T 

j Calls 


|SM03 












j Registers at entry: | 






JO : return code j 
(1: length of required work space j 




|R0 
|R1 
(R2 




|SM01 


(Lock SCB (explicitly coded). j 

(Save caller registers 14 through 5 j 
(inclusive in SCB. j 


|SCTR(IPW$DSC) 


IR1U-R5 


| IPW$WFL 
j Chart AA 


|SM10 


| Address first or next page. If next | 

j page poi nt er not z er o •••••••••• . <• . .. > j SM4 




|R3 




|SM20 


(Storage assignment table scan j 
j routine: j 

j j Examine the page control byte: | 

IX'OO' PFIX this page and format | 

| it .. ..... .... >|SM30 

IX'40' | 
(X* 80* calculate next page address | 

| and retry. >|SM20 

|X* CO' no space available........... >|SM21 








|SM21 


(Unpost ECB in SCB. | 

j Examine the return codes (in register) 
|0): | 

(X^O 1 immediate exit... >|SM26 

jx'oa' bypass message and wait... . .. >|SM24 

|X f 08' issue message and wait >|SM22 


|SCEB(IPW$DSC) 


|R0 




| SM22 


j Issue warning message to operator j 
(1Q59I WAITING FOR REAL STORAGE | 
j Reset return code to X'04'. | 
(Update count of tasks waiting for j 
j storage. j 


|SCR0(IPW$DSC) 
|NRTW(IPW$DPA) 




|IPW$WT0 
(Chart AD 


| SM24 


j Restore caller registers. j 
j Save space length. j 
| Unlock SCB. | 
(Wait for posting of ECB in SCB,. | 

(Restore space length and retry..... >|SM01 


|SCLK(IPW$DSC) 


|R1U-R5 
(R3 

(Rl 


|IPW$WFC 
| Chart AA 



v_.y 



'\^^y 
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CHART AD: IPW$$NU - MESSAGE SERVICE (2 PARTS) 



Labels 



t- 

JMMSD 



Chart AD01: IPW$$NU - POWER/VS Nucleus, 
Message Service 



Modified Data 
Fields 



Reg. 
Usage 



Calls 



I I 



( 



I 

|MM01 

I 



I 

|MM25 

I 



I 

IMM51 



|MM53 

I 

I 



The first 16 bytes constitute the 
section descriptor: 



•MMB 



V10M0 



The message control block is defined 
via the IPW$DMM macro. (Refer to 
Section 5: "Data Areas" for a 
description of the layout of the 
message control block.) 

Local Message Service 

Save the return address. 

Lock the local message control 
block. 

Save registers 14 through 9. 

Load the address of the message 
module (IPW$$MS) into register 15 and 
branch and link to perform the 
me ssage service ••••...• > 

Upon return from IPW$$MS„ restore 
registers 14 through 9. 

If the hold operand was specified in 
the message request word (TCMW), # 
branch to. ........ . . .... . . .... -. ,. ... > 

Unlock the local message control 
block. 

Restore the return address. 

Return to calling routine. 

Remote Message Service 

Save the return address. 

Check for ADDNRM request. If not f 
branch to. > 

Check for SNA,. If not branch to.... > 

Lock the SNA control block. 



Lock the remote message control 
block. 

Set up register 3 as a base address 
for the remote message control block 

(MSCB),. 

Save registers 14 through 9. 



TCRG(IPW$DTC) 



MMSV(IPW$DMM) 



20(RF) 



R2 

R14-R9 
R15 

R14-R9 



MM25 



TCRG(IPW$DTC) 



R2 
R2 

R2 



MM53 
MM53 



MSSV(IPW$DMS) 



R3 



R14-R9 



IPW$DMM 



IPW$RSR 
Chart AB 



IPW$RLR 
Chart AB 



IPW$RSR 
Chart AB 

IPW$RSR 
Chart AB 



^^"*\ 
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r — 

(Labels 

|. ._ 


_ T . . . .„ — . . — . , ._ . 

| Chart AD02: IPW$$NU - POWER/VS Nucleus, 
| Message Service 

- + T .. 

|Load the address of the message | 
(module (IPW$$MS) into register 15 andj 

| me ssage service •••••••••••••••••••• >|16CRF) 


_ T — .„ .. 

(Modified Data 
| Fields 


— T 

(Reg. 
| Usage 

-_ + 

|R15 


(Calls 
-+ 




|Upon return from IPW$$MS„ restore | 
j registers 14 through 9- j 




|R14-R9 
















j Check if the request is from the j 
j command processor of the SNA manager,, j 
| If so, branch to. ................. . >|MM55 










j Unlock the SNA control block. ] 






| IPW$RLR 
(Chart AB 


|MM55 


j Unlock the remote message control j 
[block. | 

| Restore the return address. j 

JReturn to calling routine. j 




|R2 

|R2 


|IPW$RLR 
| Chart AB 



V y 
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CHART AE: IPW$$NU - DISK SERVICE 



,-■" 1 


r 1 

Labels 


r , ^ 

Chart AE01: IPW$$NU - POWER/VS Nucleus, Disk 
Service 


r 1 

Modified Data 
Fields 


r 1 

Reg. 
Usage 


r 1 

Calls | 

1 




r— — — -— ^ 


Registers at entry: 

1: Disk request word (DRW) 
2: Return address 


r i 




Rl 
R2 


|. -j 




DM20 


The first byte of DRW is used to 
locate MCB (via module control block 
table in CAT) . 












DM21 


Lock MCB. 

Save disk request word address 

Address CCB and wait for completion 
of previous I/O 

If error has occurred (I/O error, 

wrong length) , branch to > 

Otherwise branch to continue > 


DM25 
DM30 


MCLK(IPW$DMC) 
MC$T(IPW$DMC) 


R3 
R1 


IPW$RSR 
Chart AB 

IPW$WFC 
Chart AA 




DM25 


Locate the TCB which issued the I/O 

in error. 

If TCB cannot be found, branch to. . > 

Set termination indicator (U) in TCB. 


DM30 


TCTT(IPW$DTC) 


R2 




*\ 


DM30 


Set proper function. 

Track byte (to G or P) address 
terminator phase (IPW$$TR) and set 
entry point. 

Store entry point in register 12 
(task selection) . 

Give task ownership of MCB concerned. 

Branch to > 

Initialize channel program: 

• Move seek address 

• Move command code and data address 

• Move record number to sector 

• Save virtual address of buffer 

• Save TCB addresses of owner 

Execute channel program (SVCO). 

If this is not the data file,, branch 
to > 


DM21 
DM60 


TCFT(IPW$DTC) 

MCLK(IPW$DMC) 

MCSA(IPW$DMC) 
MCRW(IPW$DMC) 
MCSE(IPW$DMC) 
MCTV(IPW$DMC) 
MC$T(IPU$DMC) 


R1 
R12 








If the last request was a double 
buffer request, the buffer is freed: 














Get buffer address (if any) and 
release buffer 






R1 


IPW$RLW 
Chart AC 


**y 


i 


If this is not a double buffer 
request , branch to > 


DM50 


. 


■ 
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CHART AF: IPW$$NU - TAPE SERVICE 



r 1 

Labels 


r * 

Chart AF01: IPW$$NU - POWER/VS Nucleus, Tape 
Service 


r 1 

Modified Data 
Fields 


r 1 

Reg. 
Usage 


r 1 

Calls 




If writer task (LST or PUN) , 

branch to > 

If CCB is complete, branch to > 

Attempt to get 2nd buffer. 

If no buffer is available, branch to> 


DM65 
DM50 

DM50 






IPW$RSW 
Chart AC 




Set up new buffer addresses. 




TCDA(IPW$DTC) 


R0,R1 






Indicate buffer cleared (N) . 

Save old buffer address. 

Branch to > 


DM65 


TCDB(IPW$DTC) 
MCTV(IPW$DMC) 






DM50 
DM60 


Restore registers. 

Indicate request handled. > 

Wait for completion. 




MC$T(IPW$DMC) 


R0,R1 , 
R3 


IPW$WFC 
Chart AA 


DM65 


If wrong length, or unrecoverable 
I/O error occurred, exit to task 
selection > 


TM82 


MCLK(IPW$DMC) 


R3 


IPW$RLR 
Chart AB 


Unlock MCB. 




Task selection is forced to allow 
any higher priority task waiting 
for the resource to get it at that 
point. 








IPW$WFD 
Chart AA 




Return to calling routine. 






R2 






Registers at entry: 












0: Return address 
1: Address of tape request word 
(TRW) 






R0 
Rl 




TP20 


Retrieve tape control block (TBB) 
address from TRW. 

Prepare TBB for execution: 

• Copy command code and data address 
from TRW. 

• Co Py data length. 

Set address of TBB in register 1. 

Execute channel program (SVC 0) and 
wait for completion. 

If wrong length,, exit to task 
selection ..... . ... . .............. . . > 


TM82 


TBCH(IPW$DTB) 
TBCH+6 (IPW$DTB) 


R3 
Rl 


IPW$WFC 
Chart AA | 


1 


Return to caller. 






|R2 





V./' 
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CHART A3 



1PW$$NU - TIMER SERVTCK 



Labels 


[Chart AG01: IPW$$NU - POWER/VS Nucleus, 
j Service 

_x— - . , . — _ * 


Timer (Modified Data 
| Fields 

X—— — — — — — — — .- 


|Reg, 
| Usage 

« __ — 


(Calls 

x — .. „„. 




_^_ « — — _. _ r 

(Register at entry: | 


T 


— +- — — — 

i 

j 


T 




| 0: Return address | 




|R0 
i 




TR01 


|Read time-of-day clock (GETIME | 
(STANDARD) (register 1 contains time j 
jin packed decimal format). | 

j Locate partition communication | 
| region. j 

j Copy date into master record in DMB. j 
(Return to caller. j 


|MRDY(IPW$DQC) 


1 

|R1 

1 
1 
1 
|R2 

1 
1 
|R3 

I 

! 

1 

|R2 


i 



. X- . . , , — X X X X J 



c 
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CHART AH: IPW$$NU - VALIDATION SERVICE 



r ■— i 

Labels 


Chart AH01: IPW$$NU - POWER/VS Validation 
Service 


r ,„ — , ... n 

Modified Data 
Fields 


r 1 

Reg. 
Usage 


r 1 

Calls 




, .„ . . , r 

Registers at entry: 

2: Return 

6: Partition control block 

8: Command control word address 

Exits: 

0(R2) error exit 
4(R2) normal exit 


r ! 




R2 
R6 
R8 


.-.——.-._—_—.—. 

.-.«.—„.__..«-.., 


VA01 


partition, or if the partition is 
running virtual, the limits of the 
virtual partition are retrieved from 
the boundary box in the DOS/VS 
supervisor. 






R3 






The CCW address is checked to 
determine whether it is on a double 
word boundary and whether it is in 
the user partition or in the LTA. If 
the CCW is not at a valid address, 
return to caller via register 2. 






R2 




VA05 


The data area address and the 
length are obtained from the CCW. 






R0,R1 






If the length is higher than 512, 
return to caller via error exit. 






R2 


■ 




Calculate end address of data area. 






R1 






If the length is zero and it is not a 
TIC operation, return to caller via 
error exit. 






R2 




VA07 


If it is a read operation with no 
data transfer, return to caller via 
normal exit. 






R2 




VA09 


The addresses of the user data 
area are matched against the limits 
of the partition, and if they are 
not within the partition, against 
the limits of the logical transient 
area. 










VA12 


If the addresses of the user data 
area are higher than the partition 
limits, they are matched against the ' 
limits of the SVA: 






R3 




' 


If it is a read/sense operation and 
the addresses are outside of the 
partition or LTA, return to caller 
via error exit. 

L J 


;■■ - 


- _ 


R2 





v.> 



"v. J 



4'" 
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( 



Labels 



Chart AH01: IPW$$NU 
Service 



POWER/VS Validation 



Modified Data 
Fields 



Reg. 
Usage 



Calls 



If the addresses are invalid, return 
to caller via register 2 (error exit). 

If the addresses are valid,, return to 
caller via register 2 with a 
displacement of 4. 



R2 



R2 



C 
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V. 



J 
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POW ER/VS NUCLEUS ( IPW$$NU) : APPENDAGES 



CHART BA: IPW$$NU - PAGE FAULT APPENDAGE (2 PARTS) 



r T 

JLabels | Chart BA01: IPW$$NU - POWER/VS Nucleus, Pa 

| j Fault Appendage 

|. + T 

| | Registers at entry: | 


r 1 

ge | Modified Data 

| Fields 
+ 


r 1 

|Reg. 
Usage 


r 

Calls 




| j 7: Return address j 
| | 8: Entry address j 
| j 13: Page fault request word j 




R7 
|R8 
R13 




1 PF 01 1 Page Fault Pre-processpr j 








| (Calculate base address for nucleus j 




JR10 




| ] Address TCB of the task. j 




R14 




j |The status of the failing task is j 
| j saved. j 




R14 




| | • Address of next sequential | 
| | instruction. j 
| | • Task registers register 13 through) 
| | register 9 inclusive. j 
| |^ Condition code. j 


|TCRC(IPW$DTC) 
|TCRD(IPW$DTC) 
|TCTR(IPW$DTC) 






| jsave page fault request in TCB. | 
| j Indicate wait for page-in. j 


|TCPF(IPW$DTC) 
|TCSF(IPW$DTC) 






| | Modify PSW in partition save area to j 
) j force entry into POWER/VS task j 
| j selection. | 


]PSAD(IPW$DPA) 






| j If page fault in progress, zero page | 
| (fault register request word. j 




|R13 




| (Otherwise, save current page fault j 
j (request and TCB address. \ 


f PFCF 
j PFCT 






| | Return to supervisor. j 




R7 | 




j j Page Fault Postprocessor | 








JPF03 jPost POWER/VS partition dispatchable.] 








| ) Calculate base address for nucleus j 
] jcode. j 




| RIO 




| (Post POWER/VS master ECB. | 


|PAEB(IPW$DPA) 






| (Address TCB of the task (from save J 
| j area) . | 




R1U 




| | Clear page fault request in TCB. j 


|TCPF(IPW$DTC) 






| (Set the task dispatchable. j 


JTCSF(IPW$DTC) 







( 



c 
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-T 

]Reg. 
[Usage 



h 



Labels 



Chart BA02: IPW$$NU - P0WER/VS Nucleus, Page 
Fault Appendage 



Modified Data 
Fields 



] Calls 



PF04 



Scan task selection list for any 
other outstanding page fault: 

• Register 13 loaded with page fault 
request (if any) or zero. 

• Register 14 loaded with address of 
TCB (if found) or zero. 

The page fault request (register 13) 
and TCB address (register 14) are 
saved. 

Return to supervisor. 



|R13 

I 
IR14 



PFCF 
PFCT 



IR7 



V__.y 



v v. 
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CHART BB: IPW$$NU - ATTENTION INTERFACE APPENDAGE 



"T" 



Labels 



Chart BB01: IPW$$NU - POWER/VS Nucleus, 
Attention Interface Appendage 



Modified Data 
Fields 



Reg. 
Usage 



Calls 



AIOO 



AI10 



AI20 



AI30 



Registers at entry: 

5: Address of command 

7: Length (minus 1) of command code 

8: Normal return address 

12 : Error return address 

Save registers 12 through 11 
inclusive. 

Set buffer address. 
Set base register. 

Calculate base address for nucleus 
code. 

If the command code is incorrect: 

• Restore registers 

• Take error exit (register 12) . 

Take error exit (register 12) . 
Address command processor TCB. 

If the command processor is active: 

• Restore registers 

• Take 'in use' exit (10 (register 
12)) 

Address command processor contrpl 
block: 

Set RJE-ID to zero (local). 

Clear command area. 

Move command code in command area. 

Scan for operand string and move it 
to the operand area (if any). 

Clear sequence number and remainder. 

Initialize command processor TCB: 

• Clear register save area 

• Store address of CCB 

• Set base register 

• Set entry address 

• Set task di spa tenable. 

Post POWER/VS partition PIB flag 
dispatch able. 

Post POWER/VS master ECB . 

Restore registers and exit via 
register 8. 



AISV 



CPID(IPW$DTC) 
CPCM(IPW$DTC) 
CPCM(IPW$DTC) 

CPOP(IPW$DTC) 



CPNO(IPW$DTC) 
CPEA(IPW$DTC) 

TCTR(IPW$DTC) 
TCR7 (IPW$DTC) 
TCR8(IPW$DTC) 
TCRC(IPW$DTC) 
TCSF(IPW$DTC) 



PAEB(IPW$DPA) 



R5 
R7 
R8 
R12 



R12-R11 



R6 
R15 

RIO 



R12-R11 



Rll 



R12-R11 



R8 



R12-R11 
R8 



^, 
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CHART BC: IPW$$NU - RJE,£SC CHANNEL END APPENDAGE 



r 

| Labels 

L 


~T 

| Chart BC01: IPW$$NU - POWER/VS Nucleus, 
| Channel End Appendage 

_j _ _ _ „._ 


1 

RJE , BSC | Modified 

| Fields 
. _x 


Data 


^ T 

|Reg. | Calls 
| Usage j 

_«L L__ 


r 


| Registers at entry: | 

|1: Address of BCA j 
| 8 : Entry address j 
| 7: Exit address j 


— — T 




T — r — 

|R1 | 
|R8 | 
|R7 | 


|CE00 


j return to supervisor via register 7. j 
| Save registers 6 and 7. j 
| Calculate base address for nucleus j 

| Copy address next CCW from CSW. | 


| LASTCCW 




|R7 | 
| R7 , R8 | 




| Set the line manager to dispatchable. ] 


|TCEB+2(IPW$DTC) 




ICE05 


| Scan the appendage queue for the last | 
| CCB in the chain. j 








|CE08 


| Store last CCB in chain. j 
[Restore registers 6 and 7. | 
(Return to supervisor via register 7. j 






IR6,R7 | 
|R7 | 



w. 



I . — x—_ .-.— — . 



- . .- _X- X X X J 
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CHART BD: IPW$$NU - HOT READER APPENDAGE 



r 

| Labels 


— T 

| Chart BD01: IPW$$NU - POWER/VS Nucleus, 
j Hot Reader Appendage 

._j _ _ 


T 

[Modified Data 
| Fields 
X- 


|Reg. | Calls 
(Usage j 
_X- X . 


r 


1 T 

| Registers at entry: | 


-j... „«. 


1— -f 




I 3: PUB address of the device j 
| 8 : Return address j 
| 15: Entry address | 




|R3 | 

|R8 | 
|R15 | 


|HR00 


j Save registers 9 and 10. j 


| HRSV 


|R9-R10 | 


|HR10 


j Scan reader tasks TCBs for a matching! 
| device: j 








| If found indicate reader device j 


|TNG2 (IPW$DTC) 






j If found and task is inactive - | 








jset task dispatchable j 
|Post POWER/VS master ECB j 
|Post POWER/VS partition PIB flag | 
j dispatchable j 


|TCSF(IPW$DTC) 
|PAEB(IPW$DPA) 




|HR30 

I 


(Restore registers and return to j 
(supervisor via register 8. j 

_X . . x 


! 

1 

X ': 


|R9-R10 ( 
|R8 | 

-X X 



( 



c 



Program Organization 37 



Page of SY33-8577-1 , Revised November 24, 1977, By TNL SN33-9241 



CHART BE: IPW$$NU - SVC APPENDAGE 



\ y 



r 

[Labels 

L„ . . 


~T- -~ — c ■" = ~ * ~ ' : — — ■ 

[Chart BE01: IPW$$NU - POWER/VS Nucleus, SVC 
| Appendage 

_x ,„..__ ,_ ,_ , . . , ,__ __ 


T ~ 

(Modified Data 
| Fields 


„_ T T 

[Reg. [Calls 
| Usage j 

_«.x__ — — ™ ~x~ ™ — ~— _ 


r 


T =--— — ■— -~ — T 

[Registers at entry: | 


T *"" 


.^^ 1. 




] 0: TIK value | 
J 1: Address of CCB | 
j | 2: Address of task entry in PDB j 
| 8 : Return address J 




|R0 | 

I Rl 1 
|R2 | 
|R8 | 
|R15 | 


|SU00 


j Save register register 10. | 


|SCSA 






j | Calculate base address for nucleus j 
[code. j 




|R10 | 




j If not console read operation, branch) 

| to . > j SCI 2 






| SC04 


[Address message text. j 

| If JECL prefix ........ >|SC14 




|R9 | 


|SC11 


[Restore register register 10, return | 
[to supervisor (4 (register 8)). j 




[RIO | 


|SC12 


[If no interception required........ > j SC11 

[(disposition N) . j 






[SC14 


j If a previous request pending: [ 

[Restore register 10, return to | 
[supervisor (register 8). j 








[Store request (address of CCB). j 
[Store requestor identifier (TIK). | 
j | Address task control block and post j 
[its ECB. | 
[Post POWER/VS master ECB. | 
[Post POWER/VS partition dispatchable j 
j (PIB flag) . j 


|TLCB(IPW$DDE) 
|TLRQ(IPW$DDE) 
|TCEB(IPW$DTC) 

| PAEB(IPW$DPA) 


|R9 | 




|Save register through 3 inclusive, j 


|SCS0 


[R0-R3 | 




| If job account interface existing, j 
[scan the SIO table (if present) in | 

| device and increment counter. | 
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Scan the command code table to verify if the command 
code entered is valid. If so, call the appropriate command 
processor. 
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Mj Set up pointers for use by the various 
command processors. 



£>(j2) Determine the index number of the command 
entered. 




Assume command is invalid '. 



C^O*) Check if the command entered is allowed <^I 
when POWER/VS is in shutdown period. 
Yes No i » Build message ZZZZ 

I CallMSG* 



£> (5) Determine the maximum number of <*^ 
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@ Call the SCANOPND subroutine to convert- 
the operands to a fixed format. 



Check if the command remains valid 
Yes No » 

Set SWCANCEL- 
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(IT) Call the appropriate command processor - 
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The command processor is a reenterable program coded in PLS, so the PLS/II compiler generates a 
GETMAIN assembler macro to obtain the dynamic storage required for variables. When the permanent 
command processor has control, the first page of pageable storage is acquired. When the temporary 
command processor has control, the IPW$RSW macro is issued. 
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CPBCM contains a long (COM LONG) or a short (COMSHORT) format command. If a long format 










command was entered, the preceding 'P' was stripped off by the attention interface. T in output, 












indicates the index number in the command code table corresponding to the command entered. 
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The Termination Type (TCBTT) field in the permanent command processor TCB is addressed via TAOC. 
When POWER/VS is in a shutdown period, the PEND processor moves an 'E' for stop at end into the 












TCBTT field. 
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The SCANOPND subroutine converts the operands to fixed format and converts decimal and hexadecimal * 
to binary. 
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CACP points to the start of the command processor at load time. ACPCS points to the start of the 
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lllllillilllll 


PDISPLAY 
PACGOUNT 


CP35 
CP44 


© 


The PLS/II compiler generates a FREEMAIN macro. If the permanent command processor has control. 
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LEVEL 1 



Set up pointers for use by the various command 
processors. 



C> (l) Initialize the command processor control block 
pointer- m= 



{2j Establish addressability with register 7 as second 
base register. 
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Turn off all switches - 



C> (?) Check if POWER/VS job accounting is supported. 
No Yes » Indicates this zzz 



C> (V) Obtain: program interrupt key of the POWER/VS 

partition ~ 



pointer to the PIB table= = 

pointer to the PIB2 table = 

pointer to MB of the POWER/VS partition^ 
pointer to the LUB table - 

pointer to the PUB table — 



^-^ C?y^ bta ' n: P°' nter to tne PUB ownership tablez 
number of partitions generated 
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(7) Register 1 is loaded with the address (CAQC) of the disk management block in IPW$DPA and is then 
used to address the field in which the POWER/VS job accounting indicator is placed. 

Cb) Register 1 is used as a base register for COM REG to obtain these pointers. 

US) Register 1 is used as a base register for SYSCOM to obtain these pointers. 
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Main processor for the PSTART command. Checks if 
an execution reader task, a physcial reader/writer task, 
an RJE,BSC initiator task, or an RJE,SNA manager 
task is to be attached. 



STRTINIT 



MJ Build the task control block for the 
task to be attached. 
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(5} Check if SNA is to be started. 
No Yes 
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STRTSNA 



Start the SNA manager task. 



STRTRJE 



Start the RJE BSC line initiator task. 
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Build the task control block for the task to be attached. 



(l) Locate the work area in which to build 
the TCB. 
Set the TCB work area to binary zeros : 



\2y Initialize the storage descriptor, 
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b. Identify task RJE/SN A manager 



RJE/BSC line manager 
Local reader/writer = 



Execution 



c. Check if RJE or Reader/Writer task <^p 



No 



Yes ♦► Identify unit record 



I device address 

d. Insert RJE user- ID 

in binary form "nzzz=zz=z= 



in decimal form 
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(3) Identify the class list is empty zz 

(4) Initialize the type of termination : 

(5) Check if RJE. 

No Yes "^ Insert password 
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(2) Determine If the partition exists. 



C>* (3) Check cancel switch. «*■ — 
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Check for correct priority. 



(4) Check cancel switch. -^- — 
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f PARTSIZE 



Check for correct partition size. 



(5) Check cancel switch. -^- « 
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Build pointers to class table entries 
in the Disk Management Block 
in the POWER/ VS nucleus. 
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(?) Check cancel switch. **- - 
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Invoke the execution reader task. 
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Steps (?) through (Is) : 
If no errors occur, the cancel 
switch remains off. 
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Ensure that the partition to be brought under 
POWER/VS control is supported by this DOS/VS 
system and is not the POWER/VS partition. 



Z> Q) Locate the last entry of the PIB table 
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be started — : 



(4) Check if partition to be started 
is supported by DOS/VS. 
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Build error message: 
Call MSG 1 
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(V) The address of the last entry of the PIB table is calculated with the use of the IJBNPART {in SYSCOM) 
value of the DOS/VS supervisor. 








(2) This is done by comparing the partition identifier in the first operand (OP1 ) of the PSTART 
command with the PIBLOGID field in the PIB table entries. 








f3j OTHPIK in output contains the PIK of partition to be started. 








(7) JR60I xx NOT SUPPORTED 

t 

partition identifier 




MSG 


CP75 








© 


PIK contains the displacement of the PIB entry found. 
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Ensure that the Partition to be brought under POWER/VS 
control has a lower priority than the POWER/VS partition 
itself. 








R0 






1 : ^ 








1 


R1 




^ 












MJ Put Length of area for GFTRRTY in R0 












Put Adress of area for GFTRRTY in R 1 






(?) Scan 'SCANPIKS' white N not>DIM(SCANPIKS) 
or SCANFS not = PIK or not = OTHPIK 

(?) If SCANFS = PIK or '0' or N>DIM(SCANPIKS) 






MESSAREA 






1R63I 




^ 










SWANCEL 








turn on cancel switch *\^ 


1 




(?) ELSE scan SKANPIKS for PDELIM = 'g' or 
^"^ SCANES=PIKorN>DIM(SCANPIKS) 










1 R63I 




QO if nn 'g' found hefnrp PIK 


^> 

1 . 




SWCANCEL 




turn on cancel switch -^>. 




(T) ELSE O.K. 
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Extended Description 



Include Segment Call Subroutine 



Chart 
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(3) '1R63I xx PRIORITY 
TOO HIGH' 

(i) '1R63I xx PRIORITY 
TOO HIGH' 


MSG 
MSG 




CP75 
CP75 
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Included by STRTPART, Chart CP 6 
^ PARTSIZE 



LEVEL 4 



Ensure that the size of the virtual partition to be 
brought under POWER/VS control is at least 64K. 



O (j) Locate the boundary box entry of the partition 
being started. 



(2) Calculate the size of the virtual partition <^z 



(3) Check if the size of the virtual partition is 
at least 64 K. 



Yes No « 



►Build message! 
Call MSG — 



Turn on cancel switch - 
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-►MSG 



BBOX 



BBOXPTRt 




BEGVIRT- 



ENDVIRT- 



MESSAREA 



£> 



1R72I 



SWCANCEL 
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Extended Description 


Include Segment 


Call Subroutine 


Chart 


(?) OTHPIK is used to index the BBOX table in the DOS/VS supervisor. 








(2j The size is calculated by deducting the value in BEGVIRT from the value in ENDVIRT. 








(Z) 1R72I VIRTUAL xx SMALLER THAN 64K 

t 

partition identifier 




MSG 
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TCBTI 



E"BBG 



E1SFI 



EtFri 



OP2 



CLASARG3 jf P2 is omitted 



Included by STRTPART, Chart CP 6 
^ ERCLASS(Part1of2) 



Provide the TCB of the execution reader task to be 
attached with pointers to class table entries. 



(T) Indicate the number of classes allowed (4) 

(2) Indicate the default class for the partition - 
to be started 



(3) I ndicate reader 



LEVEL 4 



£> (4) Indicate classes to be checked 



@ Call the subroutine CLASS to build the- 
class list in the TCB 



► CLASS 
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CLASARG3 



=> 



c> 



c> 



CLASARG2 



c> 



RDR 



CLASARG1 
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Extended Description 



Include Segment 



Call Subroutine 



Chart 



(5) For BG the default is '0' 
For F1 the default is "T 
For F2 the default is '2', etc. 

(Aj If the second operand is not specified the default is taken from CLASARG3. 




CLASS 
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OPERANDS^) 



OPLEN- 



JT 



-OPSWALFM 
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^ OUTCLS 



LEVEL 4 



Chart CP 11 



Move valid output class parameter 
to save area SAVPDBOC. 



=C> Check if operand length equals 1, 
and if operand is alphabetic. 

No Yes 



:£> Save output class parameter : 



Build message ; 



Indicate invalid command: 
Call MSG ' 



U 



MSG 



SAVPDBOC 



^> 



MESSAREA 



:£> 



1R52I 



SWCANCEL 
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Extended Description 



Include Segment 



Call Subroutine 



Chart 



1 R52I INVALID OUTPUT-CLASS 
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STRTXRDR (Parti of 2) 




1 



LEVEL 4 



Chart CP12 



£> (T^Obtain addresses of fields in COM REG of the 
partition to be started. 



NEWPART 



(2j Check if a new partition is to be started. 



(3) Check SWSTART switch ^ 

NEWEXRD 
Off On » 

J 



Start a new partition. 



DORMPART 



MjCheck if a dormant partition is to be 
restarted. 



@ Check SWSTART switch -* 

DORMEXRD 
Off 



On- 



Restart the dormant 
partition. 



(5) Build 



message 



STRTPART 
(end) 



^STRTPART 
(end) 



Turn on cancel switch ! 
Call MSG — — — 



MSG 



SWSTART 



=o 



On or Off 



MESSAREA 



=> 



1R68I 



SWCANCEL 



=> 
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STRTPART (end), Chart CP6 
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Extended Description 


Include Segment 


Call Subroutine 


Chart 


(Y) Using the other partition's PIK, calculate the address of its COM REG and calculate the address of: 








1. the POWER/VS flag byte POWFLG1 








2. the JCL switch byte JCSW4 








3. the job name to be inserted 








4. the pointers to the Partition Control Block to be created. 








\2J Register 1 is used to address COM REG of the partition to be started. 


NEWPART 
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NEWEXRD 
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DORMPART 
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DORMEXRD 
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(if) 1R68I xx PARTITION NOT AVAILABLE 




MSG 
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NEWPART 
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LEVEL 5 
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Dertermine if the partition to be started it new; 



:£> Check in PIB if the partition to be started 
is inactive and no cancel code is present. 



No Yes. 



-Indicate partition can 
be started zzzzz^l 



c 



=>[ 



SWSTART 



1 
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Extended Description 



STRTXRD (5) , Chart CP12 
Include Segment CaM Subroutine 



Chart 



PIBLAG = X'8C if the partition is inactive. PIBCANCL = XW if no cancel condition is present. 
When both conditions are met the partition can be started. 
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LUBTAB 



OTHPIK 



La st byte of PI B 

xxxx xxxx \ 
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PIBCANCL 



•PIBFTEOJ 



Included by STRTXRD, Chart CP12 
^ NEWEXRD(Part1of2) 



LEVEL 5 



Attach the new execution reader task by calling the 
subroutine ATTACH and simulate the normal 'AR' 
'START command for a DOS/VS partition that has 
not yet been active. 



(T)Call the subroutine ATTACH to attach 
a new execution reader task — — — 



C>(2)Copy BG SYSLOG and SYSRES assignments 
into SYSLOG and SYSRES LUB entry of 
the partition to be started • 



(3) Turn on the initialise batch flag for job 
control in COM REG- 

(4)Setjob name in COM REG - 

HHMake the partition save area addressable. 

QyClear the partition save area. 

\7J Insert job name ~ 

SVC 22 




-Seize the system and disable interrupts. 



£> fjn Initialize the PIB of the partition to be started:: 



® 



9 ) Increase the number of active virtual 
partitions ' 



SVC 22 



-Release the system and enable interrupts. 



-► ATTACH 
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LUBTAB 



=C> 



indexed by 
OTHPIK 



JBCSW4 



SAVEAREA 



£> NO NAME 



Last byte of PIB 
i> I IXXX ItXX | 

PIBFLAG 
=> | 81 -f l""^ byte 1 

PIBCANCL 
:£> | | urT^ - byte 2 



SYSCOM 



=> 



UBAPND 



n+1 I 



STRTXRDR (end). Chart CP12 
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NEWEXRD(Part2of2) 
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Extended Description 




Include Segment 


Call Subroutine 


Chart 


© 








ATTACH 


CP89 




Steps @ through (j) simulate the 
normal 'AR' start command for the 
DQS/VS partition that has not yet 
been active, or has been unbatched. 




(g) In this step PIBPOINT is not used but loaded into register 2 to avoid page faults, since this part of the 
code is disabled for interrupts and the system is seized. For the precise meaning of the bits set, refer 
to the description of PI B in DOS/VS Supervisor Logic, SY33-8551 . 

Register usage: RO to disable or enable interrupts 
R2 to address PI B 
R1 to address SYSCOM 
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Included by STRTXRDR, Chart C.P12 
▼ DORMPART 



LEVEL 5 



PIBTAB 



PIBPOINTt 



82| hi 



M>IBFLAG ^Pl 



PIBFLAG ^PIBSTOPD 



Determine if the partition to be started is dormant. 



£> Check if the partition to be started is 
waiting and in stopped state. 
No Yes m Indicate partition 

can be restarted 
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Included by STRXRDR, Chart CP12 
* DORMEXRD (Part t of 2* 



POWFLAG1 (inCOMREG) 




OPLEN2 



SYSCOM 



IJBABND 



PIBTAB 



R3f 82 1 [if 

I — X 

^•PIBFLAG v *- 



PIBFLAG ^-PIBSTOPD 



Attach the new execution reader task by calling the 
ATTACH subroutine and simulate the pormal 'AR' 
'START' command for a DOS/VS partition which 
has already been active and has to be restarted. 



Jt !> CD Cheek if the partition to be started is 

POWER/VS controlled. 
No 



T 

Yes 

J 



Call the ATTACH subroutine to — 
attach the execution reader task 

-® 



£> (2) Check if a second operand was specif led 
Yes No ■ fr Build message ZZZZ. 

(Call MSG 

» Seize the system and disable interrupts. 



C> Cs) Increase the number of active virtual: 
partitions 



C> (4} Restart the stopped partition and reset 
the stopped state := 



LEVEt 5 



SVC 22 

» Release the system and enable interrupts. 



*+ 



" ATTACH 



MSG 
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MESSAREA 
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tR80l 
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JBABNP 




n+t 







PIBTAB 
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PIBFLAG>-PlBSTOPD 



STRXRDR (end) Chart CP12 
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Extended Description 



Include Segment 



Call Subroutine 



Chart 





\2J The class parameter is ignored because the execution reader tasks and their classes exist already. 
1R80I WARNING: CLASS SPECIFICATION IGNORED 

(3) and (7) 

This code is executed in disabled state so no page fault should occur. The PIB of the partition is, 
therefore, addressed by a register and not by PIBPOINT. 

Reg i ste r u sage : R to d i sabl e r enabl e interrupts 
R1 to address SYSCOM 
R2 to increase the number of virtual partitions 
R3 to address PIB 




ATTACH 
MSG 


CP89 
CP75 
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OPERAND 



OPHEX 



ORIGINAL 
(second operand) 

C3: 



OPSWHEX 



^ 



OPLEN 



© 



TCB 



TCBTI 



SWCANCEL 



On or Off 



PUB 



LUB 



Included by PSTART, Chart CP2 
* STRTRDWR (Part 1 of 3) 



LEVEL 3 



£> MJCheck if the second operand specifies a valid 
device. 
Yes No m Build error message zzz= 

Call MSG — — — — 



Find an unused logical unit and assign it to the PUB 
wanted. Determine the meaning of the third operand 
and take the appropriate action. Call the ATTACH 
subroutine to attach the task for which the TCB was 
built. 



© 



Indicate operand is invalidz 



Set up arguments for the PASSGN subroutine: 
f>*a. type of reader/writer task — 



^v£>b. device address as e'euu' ^ 
c. device address as x'Ocuu' 



(5) Call the PASSGN subroutine to assign free 
LUB to wanted PUB ■ 



Of 4 *) Check if the assignment was made. 
Yes No 



—^> Insert program LUB number 
=£> Insert device type 
I^> Insert PUB pointer 




continued on next page 



-► MSG 



PSTART 
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PASSGN 



PSTART 
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MESSAREA 
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1R74I 



SWCANCEL 



c> 
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ASGNARG2 



=Ol 



ASGNARG3 



=Ol 



ASGNARG1 



^>C 



TCB 



R1UNIT 
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STRTRDWR (Part 2 of 3) 



\5j Check if the third operand is a device address 
and the command is meant for a writer task. 



LEVEL 3 



Chart CP17 



SPOOLTAP 



Yes- 



Provide the physical 
writer with an 
assignment and a 
module control block 
for the spooling tape 
used as input. 



CALCLASS 



© 



Call the class parameter for a physical 
reader/writer. 



Check if a reader task is to be started <CJ= 
with a 3540 diskette as primary input device. 
No Yes m DSKTRDR 



Process the fourth 
through seventh 
operands. 



(7} Check if a fourth operand is specified 
for a reader task. 



(D 



No Yes- 



• DSKTALT 



Make the assignment 
and insert the logical 
unit and device type 
in the TCB. 



£> \8J Check if buffer specifications have 
to be set. 

No Yes 

♦ 

(V) Check if reader task 
No Yes-^.CARDBUFF 



I 


Set buffer specification 
for the card reader. 


f WRITBl 


JFF 




Set buffer specification 
for the writer. 
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STRTR0WR(Part3of3) 




from previous page 



TCB 



RZUNIT-- 




Check if an error was detected during the 
previous steps. 



Yes 



►Call the ATTACH 
subroutine to attach - 
a new task. 



© 



Check if an error is detected now. 

No Yes m Set up field for the <^ 

> PUNASSGN subroutine 



Call the PUNASSGN 
subroutine to undo the 
assignment for the 
alternative input device 



^» ATTACH 



t: 



PUNASSGN 



from previous page 
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Extended Description 


Include Segment 


Call Subroutine 


Chart 


1R74I INVALID DEVICE SPECIFICATION 




MSG 


CP75 


© 
© 




PASSGN 


CP76 


SPOOLTAB 




CP18 


CALCLASS 




CP19 
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DSKTRDR 




CP20 


DSKTALT 




CP21 


CARDBUFF 




CP22 
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WRITBUFF 




CP22.1 












ATTACH 


CP89 


:© 








© 




PUNASSGN 


CP80 









CO 

CO 
CO 

vo 
to 

4^ 



f \ 



ChartCPl7 

V / 



K 
O 

H 



O 
H 
u3 
Q> 
3 
H« 
N 
0) 
ft 
H- 

2 



OPERAND 



OPHEX 



(third operand) 



© 



SWCANCEL 



On or Off 



OPERAND 



(third operand) 



PUB 



LUB 



Included by STRTRDWR, Chart CP17 
▼ SPOOLTAP (Part 1 of 2) 



LEVEL 4 



Chart CP 18 



Provide the physical writer task with an assignment and 
module control block for the spooling tape to be used as 
input. 



(T)Set up fields for the PASSGN subroutine. 
;> . a. device address as X'Ocuu' = 



b. indication of tape 



c. device address as C'cuu*; 



(5) Call the PASSGN subroutine to assign free LUB 
to wanted PUB — -^— — *- 



C> (5) Check if the assignment was made. 
Yes No —— — — 



(4) Build tape module control block: 

a. Obtain space via the IPW$RSW macro - 

b. Insert all necessary information in the 
module control block: 

Identify MBC as tape MBC 1= 



^t^* Insert original device address 



Insert PUB pointer address 
of physical tape unit 



Turn on accept-irrecoverable- 
l/O-error bit H 



=£> I nsert programmer LUB ID; 



Indicate no CCW translation 
Insert real CCW address = 



continued on next page 



■►PASSGN 



-► STRTRDWR 
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IPW$RSR 



ASGNARG1 



ASGNARG2 



TAPE 



ASGNARG3 
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MCB 






=0 



TBB 



TBBSD 
TPCUU 

TPPUBPTR 
TPUNREC 

TBBLU 
TPNOTRAN 
- TBBCA 
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set in IPW$DPA 



R1 



SPOOLTAP (Part 2 of 2) 



Qp Build data file control words in the 
task control block. 



LEVEL 4 



a. Insert tape flag: 



:£> b. Insert data block size: 



:£> c. Insert tape MCB address 1 



Uy Build queue file control words in 
the task control block. 

a. Copy data file control words! 

b. Insert length of QRECORD= 



^® 



TCB 









£> 80 



STRTRDWR (5), Chart CP17 
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— TCBTAPFL 
2'TCBDBSZ 
^-TCBMCB 
2'TCBQW 
--TCBQBSZ 



TCBDW 
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Extended Description 



Include Segment Call Subroutine 



Chart 



(4) a. The IPW$RSW macro uses registers 0, 1 , 2, and 3. 
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OPERANDS 



0P3 
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" OPLEN3 



TCB 



TCBCT- 



Extended Description 



Included by STRTRDWR Chart CP17 
* CALCLASS 



LEVEL 4 



Proces the class parameter of a PSTART command 
for a physical reader or writer. 



(y Set up the default class value : 



(2) Check if the class specified in the PSTART 
command is for an RJE reader. 

(Class may not be specified for an 
RJE reader) 
No Yes » (4) 



\> (3) Insert the classes specified into the argument 
field for use by the CLASS subroutine 



^£>* (3) Insert the task type into argument f ield- 
(5) Indicate no execution reader 



(e) Check if the task type is RDR. 

No Yes ^ Set up argument field to 

(indicate only one class 
is allowed for a reader task— 

Z^> Set up argument field to indicate more classes 
are allowed for writer tasks 



(?) Call the CLASS subroutine to build a class 
list in the TCB ■ 



►CLASS 



CLASARG1 



=> 



CLASARG1 



=0 



CLASARG2 



=> 



CLASARG3 
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CLASARG4 



^> 
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CLASARG4 
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STRTRDWR © , Chart CP17 

I nclude Segment Cal I Subroutine 
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address of 0PS(4)- 
0PS(4) 



ORIGINAL 



SWCANCEL 



On or Off 



address of OPS(5)z 
0PS(5) 



OP5 



OPDEC 



SWCANCEL 
| On or Off 



-first two characters 
OPS(6) 



HT 



*ODI C 



OP6 



'OPLEN 
6 



r 



SWCANCEL 

| On or Off | _ 



J<7 



I tided 



Indued by STRTDWR, Chart CP17 
DSKTRDR (Parti of 2) 



LEVEL4 



Process operands 4 through 7 for a PSTART command 
specifying a reader task for a diskette reader as input 
device 



O \\J Locate the fourth operand (filename)z 



£>(2) Check if the length of the fourth operand is 
between and 9, and no other messages were 
issued during the processing of this command. 

Yes No ^ Build error 

message ~ 



Call MSG 

Indicate operand 
is invalids: 



Insert the filename: 



C> \3) Locate the fifth operand-^. 

_£> (4) Check if the number of diskettes is between 
£/ and 256, and no other messages were issued 

during the processing of this command. 



Yes No. 



I 



Build error 
message —* — 

Call MSG — 



Indicate operand 
is invalid: 



=i> Insert the number of diskettes ; 



:£> (5) Check the sequence check indicator 
Not %' 'S'— -► Insert the 



1 



=C> Check if the sequence indicator field is omitted, 
and no other messages were issued during the 
processing of this command. 

Yes No W Build error message 

Call MSG 

Indicate operand is 
invalid - 



(continued on next page) 
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SWCANCEL 
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LEVEL 4 



Chart CP20 



0PS(7) 



first two 
characters 

OPLEN7 



OP7 



SWCANCEL 



On or Off 



=C> (6) Check the verification indicator 

Not 'V 'V'-^ Insert the 

I verification indicator: 

^> Check if the verification indicator field is 
omitted, and no other messages were issued 
during the processing of this command. 

Yes No ^ Build error message z== 

Call MSG — — — — — 



Indicate operand is 
invalid zzi 



-►msg 



TCB 



=> 



MESSAREA 



0> 



1R42I 



SWCANCEL 



=o 



1 
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Extended Description 


Include Segment 


Call Subroutine 


Chart 


(D 1 R45I .OPERAND 4 TOO LONG 




MSG 


CP75 


(a) 1R44I OPERAND 5 INCORRECT 




MSG 


CP75 


© 1R43I OPERAND 6 INCORRECT 




MSG 


CP75 


(5) 1R42I OPERAND 7 INCORRECT 




MSG 


CP75 
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address of OPS(4): 
OPS(4) 



OPSWHEX 



-OPLEN 



SWCANCEL 



On or Off 



OPS(4) 



ORIGINAL 



OPHEX' 



SWCANCEL 

| On or Off \ z 
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LEVEL 4 



DSKTALT 



Check if the fourth operand of a PSTART command 
for a non diskette reader task specifies a diskette as 
an alternative input device 



^>(l) Locate the fourth operand 



C^ > (2) Check if the device specification is valid, and no 
other messages were issued during PSTART. 

Yes No ^ Build error 

message ZZZ 



Call MSG — 

Indicate operand 
is invalid 



Set up arguments for the PASSGN 
subroutine: 

a. task type as 'DSKT' - 



lO> b. device address as C'cuu' : 



zf^> c. device address as X'Ocuu' " 

($\ Call the PASSGN subroutine to assign 
tree LUB to wanted PUB — — — - 



:£> (4) Check if the assignment was made 

No Yes ^ Insert program LUB - 
Insert device type~ 



J 



Q\ Check if the assignment was made for <^z 
a 3540 



Yes No . 



Build error 
Message 



Call MSG 

Indicate operand 
invalid - 



►MSG 



-►STRTRDWR 
(end) 



' PASSGN 



-► MSG 



=Otoptr t 



MESSAREA 



^> 



1R74I 



SWCANCEL 



c> 



1 



ASGNARG2 



i> 



DSKT 



ASGNARG3 



=> 



ASGNARG1 



=> 



TCB 



:£> 



:£> 



MESSAREA 



=0 



1R41I 



SWCANCEL 



^> 



1 
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Extended Description 


■^ STRTRDWR (en 
Include Segment 


d), ChartCP17 
Call Subroutine 


Chart 


(5) 1R74I INVALID DEVICE SPECIFICATION 




MSG 


CP75 


(D 




PASSGN 


CP76 


(5) 1R41 1 INVALID SPECIFICATION FOR DISKETTE 
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MSG 


CP75 
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LEVEL 4 



Chart CP22 



OPERANDS 



OP4 



T 



OPLEN4 : 



OPERANDS 



OP5 
I I OPLEN5 : 



i 



CARDBUFF 



Check if the fourth or fifth operand of a PSTART 
command for a non-diskette reader task specifies 
a valid buffer specification. 



(7) Set default of 1 buffer : 



:£>> \2J Check for valid buffer specification 

No Yes ^"^ Insert buffer specification : 



TCB 



=> 



STRTRDWR 



Build error message : 
Call MSG — — — 



MSG 



:£>> 



-- R1DENSIT 



1or2 



-- R1DENSIT 



MESSAREA 



^Z 



1R52I 



SWCANCEL 



Indicate operand is invalid : 



=>i 



1 



U 



Extended Description 



STRTRDWR (10) , Chart CP17 



Include Segment Call Subroutine 



Chart 



(2) 1R52I BUFFER SPECS NOT 1 or 2 
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TCBTI • 



OPERAND 



0P4 



0PLEN4 C 
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2.4 




1 



WRITBUFF 



Check if the fourth operand of a PSTART 
command for a list writer task specifies a valid 
buffer specification. 







Set default of 1 buffer. 



y^>(^J Check if list writer task and 
operand specified. 



Yes No 



© 



Check for valid buffer specification. 



No Yes I 



1 



► Insert buffer 
specification 

(4l 



Build error message. 
Call MSG. ■■■ 



Indicate operand is invalid. 




v^ vV Check if punch writer task and 
operand specified. 



Yes No I 
Build message. 



Call MSG. 



^MSG 



STRTRDWR 



^MSG 
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TCB 



C> 



:> 



1 — R1DENSIT 



1or2orF — R1DENSIT 



MESSAREA 



C> 



1R52I 



SWCANCEL 



0> 



MESSAREA 



C4 



1R52I 
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Extended Description 


Include Segment 


Call Subroutine 


Chart 


O 








(2) If the operand is not specified the length is set to zero. 








(3) Valid specifications are: 
1,2, or D 








Error message is: 

1R52I INVALID BUFFER SPECIFICATION 




MSG 


CP75 


(4) 1R52I OPERAND 4 IGNORED 




MSG 


CP75 
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address of OPS(2)- 

qps(2) ; 



OPSWHEX- 



TCB 



-OPLEN 



TCBTI 



OPS(2) 



OPHEX- 



ORIGINAL 



SWCANCEL 
| On or Q~ 



PUB 



LUB 




address of QPS(3) : 



Included by PSTART, Chart CP4 
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LEVEL 3 



STRTRJE (Part 1 of 2) 



Find an unused logical unit and assign itto the wanted 
RJE line PUB. Check the validity of the third operand 
(password). Attach the RJE line initiator (temporary 
RJE reader task) for which the TCB was built 
in segment STRTINIT (Chart CP5). 



£>QJ) Locate the address of the second operand: 
^>(5) Check if the line address is valid. 

Yes No ► Build error message 

Call MSG i 



I 



Indicate operand is 
invalid — 



(3) Set up arguments for the PASSGN subroutine: 
£> a. type nf task — 



:£> b. line address as C'cuu': 



=> 



line address as X'Ocuu'z 



-► MSG 



- PSTART 
(end) 



(4) Call the PASSGN subroutine to assign free 
LUB to wanted PUB ' 

v ^ > Qy Check if the assignment was made 

Yes No ■ i 



r£> Insert program LUB numberl 



:£> Insert device type: 



i> Insert PUB pointer: 



£>■ (§) Locate the address of the third operand 
(password) zzzzzzzz==zz=z=: 



-+» PASSGN 



. PSTART 
(end) 



Chart CP23 



=£>TOPTR f 

MESSAREA 
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1R74I 



SWCANCEL 



^C 



1 



ASSGNARG2 



=>[ 



ASSGNARG3 



=>[ 



ASSGNARG1 



=> 



TCB 



i> 



=> 



j2 R1UNIT 
~~- R1DEVTYP 



- TCBR4 



:£>TOPTRt 
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OPERAND 



OPSWITCH 



i- 



-OPLEN 



SWCANCEL 



On or Off 



STRTRJE (Part 2 of 2) 

(7) Set up variable for the CLASS subroutine 
(ChartCP19): 

a. default class • 



LEVEL 3 



b. class type : 



c. no execution reader ; 



d. one class only: 



Call the subroutine to build pointer 
to the class A entry in the class table ■ 



£>» (5) Check if the password is valid. 

Yes No wmm^^ Indicate invalid 

password izzzz: 



CLASS 



Build error message: 
Call MSG— — 



^> H)) Check if an error is detected. 

Yes No ► Call the ATTACH subroutine to 
attach the RJE line initiator 
(temporary RJE reader task) 



^> Mm Check if an error is detected now. 

No Yes — <► Call the PUNASSGN 

subroutine to undo the 
assignment made ■ 



I 



-► MSG 



ATTACH 



♦■ PUNASSGN 



t 



CLASARG1 



=£> 



CLASARG2 



=£> 



RDR 



:£> 



CLASARG4 



i> 



1 



SWCANCEL 



=> 



1 



MESSAREA 



c> 



1R62I 



PSTART (end) , Chart CP4 
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CLASARG3 



Extended Description 


Include Segment 


Call Subroutine 


Chart 


(?) 1R74I INVALID LINE ADDRESS 




MSG 


CP75 
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CLASS 


CP86 


® 1R62I INVALID RJE PASSWORD 




MSG 


CP75 
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ATTACH 


CP89 


© 




PUNASSGN 
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LEVEL 3 




1 



STRTSNA (Part 1 of 2) 



Check for SNA support. Attach the SNA manager 
for which the TCB was built in segment STRTINIT 
(Chart CP5). 



C> (0 Check if more than 2 operands entered by operator 
No Yes™^ Bu i Id error message 

I Call MSG 



O (2) Check if SNA is supported 

Yes No^^^ Build error message - 

Call MSG 



Indicate operand is invalid- 



£> \3J Check if SNA is already active 

No Yes^^ Build error message 1 

Call MSG 



Indicate operand is invalid : 



(J) Init 



nitialize SNA control block: 

• Post bit of SNA work ECB : 

• Flags 



• SNA termination type 

• SNA termination type to be set by 
exit routines- — 



• SNCB lockword 

• Lockword for general purpose work space 
in RMCB ~ = 



(5) Call the ATTACH subroutine to attach the 
SNA manager task 



MSG 



MESSAREA 



1R91I 



MESSAREA 



MSG 



=oL 



1R65I 



SWCANCEL 



► PSTART 
(end) 



MSG 



1 



MESSAREA 



1R65I 



SWCANCEL 



► PSTART 
(end) 



=>L 



1 



SNCB 






► ATTACH 






blank 



blank 



PSTART (end), Chart CP4 
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_-- SNFL 
-- SNTT 



-- SNTX 
-- SNLW 



-- SNRL 
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Extended Description 


Include Segment 


Call Subroutine 


Chart 


(T) 1R91I TOO MANY OPERANDS, FIRST n PROCESSED 




MSG 


CP75 


(2) 1R65I RJE,SNA NOT SUPPORTED 




MSG 


CP75 


(T) 1R65I RJE, SNA ALREADY STARTED 




MSG 


CP75 
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OPERANDS 



OP1 



CPB 



0P2 



CPBID 



C 



0P2 



OPSWSTAR- 



EC 



OPLEN 



SWCANCEL 
On or Off [ = 



OPSWSTAI 
OPSWALFM 



0P2 



=M- ftl_l 



© 



-j- OPLEN 



SWCANCEL 
On or Off ~"| z 



0P2 



OPSWALFM- 



3F 



OPLEN 



0P2 



® 



Included by MAINLINE, Chart CP2 




1 



LEVEL 2 



PALTER (Parti of 5) 



Set up argument fields for the QSCAN4 routine contained 
within this segment. Check the validity of the second and 
third operands. Scan the reader, list, or punch queue to 
find the jobs to be altered. 



(7) Clear arguments for the QSCAN4 (Step (5)) 



£> (2) Check if the first operand specifies a valid 
queue name and store the rpcuit 



Yes 



►Build error message ^\(^j 
Call MSG ■ ■ ■ 



£> (5) Store u§er-ID in arguments for the QSCAN4 
(Step (9J ) routine ' 



•MSG 



C> (^ Check if tne second operand is ALL or 
omitted. 



No Yes » Indicate command is valid- 

Point to the first keyword 
operand (third operand) — 



£> ($) Check if the cancel switch is still on and - 
QUEUE,*ABC is specified. 



No 



Yes 

a. Indicate command is valid - 

b. Insert operand length into 
argument field ; ~ 

c. Insert operand ~ 



d. Point to the first keyword operand: 



£> (6) Check if the cancel switch is still on -^ , 

and QUEUEjobname or QUEUE,class is 
specified. 

Yes No— » (7) 

i 



C> Check if QUEUE,class is specified. 

No Yes » Indicate command is valid- 

(a)izi£> Insert class character: 

Point to the first keyword 
operand Z^ZZZZZZZZZZZI 



continued on next page 
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=!> QARGS 



:£> 



=> 
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QBEGIN 



--QIDBIN 



®: 



MESSAREA 
1R52I I 



SWCANCEL 



=0 



>- 



=0 TOPTR1 



SWCANCEL 



=0 



QARGS 






--QABCLEN 
QABCCONTl 



=0 TOPTRt 



SWCANCEI 
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PALTER (Part 2 of 5) 



LEVEL 2 
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00 




OPSWDEC- 



0P3 



-OPDEC 



SWCANCEL 



On or Off 



R15 



QBEGIN 



1,2, or 3 
see note (2) 



Point to the third operand : 



lj> Check if a job number is specified as third 
operand . 

Yes No » Q 



i£> Insert job number 



Point to the first keyword operand 
(fourth operand)C>^. 

® 

(7) Check if the command is still valid- 
Yes No m Build error message ; 



Call MSG « 



C> (b) Check if the command is still valid . 
Yes No 



QSCAN4: 
C> @ Address the reader class table ===== 

^> Qo) Check if the reader queue is to be scanned. 

No Yes m (13) 



(fi) Address the LST class table : 



^> (12) Check if the LST class table is to be scanned. 
Yes No » Address the PUN class table : 

U3)Obtain a buffer for the queue record via: 
the IPW$RSW macro i 



u4)Save pointers to real and virtual buffer<^z 
addresses • 



► MSG 



-MAINLINE© 



®- 



QARGS 



=£> 



=£> TOPTRt 
QARGS 



c> 



TOPTR t 
MESSAREA 



=> 



1R52I 



> CLASSPTRt 



-QJOBNAME 



-QJOBNO 



TCBQAV 



(l5) Assume there is nothing to alter z 
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PALTER (Part 3 of 5) 



LEVEL 2 



Chart CP25 



DMB 



CLASSPTR t 



master class table 



RDRCLASSO) 



RELDSKADd): 



RDRCLASS(32) 
LSTCLASS(1) 



LSTCLASS(32) 
PUNCLASSd) 



PUNCLASS(32) 



TCB 



TCBTT- 



SWCANCEL 



On or Off 



TCB 



R11t 
TCBQV- 



TCBQAV 



Cp 



QRECORD 



QRECQN- 



QARGS 



QJOBNAME- r 



m 



(16) 

A 



Z> Qo) Process each entry in the appropriate 
class table: 

a. Check if a class chain exists for 
this class. 
Yes No » Return to step (\q\ 

(until the end of 
the class table is reached. 

b. Reserve the disk management block 
via the IPW$RSR macro 

c. Call subroutine RELTOABS to convert 
the relative disk address to an absolute disk 
disk address — 



d. Take the following steps for each 
queue set found in this class chain. 

1. Insert absolute di sk address into the 
disk request word 

2. Point register 1 to the disk request word 

3. Read the queue record into the reserved 
buffer via the IPW$RDQ macro 

"jC> 4 - Save tne address of the next queue record 
in this queue set 

5. Call the SCANQREC subroutine to 
determine if the queue record just 
read must be altered 

6. Check if the queue record is to be <0 
altered. 



Yes No 



7. ALTCHEC2 



Check if valid keywords are specified. 

8. Check if keywords are valid <J 
Yes No » ( 16 

9. Check if a job name is specified. 
No Yes » Insert job number 



♦ 



ALTJOB 



[Alter record, if allowed. 



12. Check if more entries in the class table 
are to be processed, the cancel switch 
if off, and the task is not canceled. 



Yes No 




10. Check if a next queue set for this class 
chain exists and the cancel switch is off. 
No Yes » (l6)d. 

t 

1 1. Release the queue control block via the 

IPW$RLR macro 
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SWCANCEL 



On or Off 



SWRDWR 



On or Off 



CPB 




£>• u7) Release the buffer used to read in queue records 
via the IPW$RLW macro. ■ 



: ^ > Q8)Check if errors were detected. 
No Yes 



£>• Q9)Check if there was at least one queue record 
to be altered. 



No Yes- 



►Build message : 
CallMSG — 



z[> Check if a message has to be sent to 
the remote operator 

Yes ♦► Build message 

CallMSG — 



No 



-*~IPW$RLW 



MAINLINE 

© 




► MSG 




MESSAREA 



=> 



1R88I 



MESSAREA 
:£> I 1R88I 
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PALTER (Part 5 of 5) 



Extended Description 



Include Segment 



Call Subroutine 



Chart CP25 
Chart 



© 


Ait arguments are set to zero means that aii arguments initially meet the selection 
for process criteria. 








© 


Valid queue names are: RDR, PUN, LST, or PRT 

for RDR QBEGIN = 1 \ 

for PUN QBEGIN = 3 V used to indicate which queue is to be scanned. 

for LST or PRT QBEGIN = 2 J 










1R52I OPERAND 1 NO VALID QUEUE 




MSG 


CP75 


© 


Only the central operator is allowed to alter local jobs. 








© 


The OPSWALFM switch set in subroutine SCANOPND {Chart CP71), if on, indicates 
a valid alphameric string. 








© 


1R52I OPERAND 2 INVALID 




MSG 


CP75 


© 


Register 15 is used to address the disk management block. The pointer to the DMB 
is CAQC. To address the reader class table, add the displacement to the master class 
table in register 15. 








© 


The IPW$RSW macro uses registers 0, 1 , 2, and 3. 








© 


c. 




RELTOABS 


CP84 




d.5. 




SCANQREC 


CP85 




d.7. 


ALTCHECK2 




CP26 




d.9. 


ALTJOB 




CP32 
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1 R88I NOTHING TO ALTER 




MSG 


CP75 




1R88I CP READY 




MSG 


CP75 
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OPERAND 



KEYWORD 



OPSWKEYK 



OPERAND 



ALTNDXf KEYWORD 
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Included by PALTER, Chart CP25 
W ALTCHECK2 (Part 1 of 2) 



LEVEL 3 



Chart CP26 



© 



Determine if the keyword operands of 
a PALTER command are valid. 



© 



Clear change indicators: 



(Y) Scan all specified keyword operands to check 
their validity. For each operand do the 
following: 

z£> a. Check if the operand specified is in keyword 

form. 

Yes No » Build message indicating 
which operand was not 
specified as a keyword 

Call MSG 



Indicate operand is invalid- 

= C> b. Check if keyword is PRfa 

No Yes— ►PRICHECK 




Check if the priority is in 
the range 1-9. 



=C> c. Check if keyword is DlSPfe". 
No Yes— ►DISCHECK 



Check if a valid disposition 
parameter was specified. 



^> 



d. Check if keyword is CLASSB. 
No Yes— ►CLSCHECK 



Check if a valid class for 
queue was set . 



z£> e. Check if keyword is COPYd". 
No Yes— ►COPCHECK 



Check if the numbers 
of copies is valid. 



=C>f. Check if keyword is REMOTEB and RJE 
is supported. 
No Yes-^RMTCHECK 



Check if the to-remote- ID 
is valid. 



g. Check if keyword is CMPACT ft 
No Yes-^CMPCHECK 



Check if the compaction 
table name is valid 
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h. Build message indicating which operapcTwas 
specified as an invalid keyword — — 



Call MSG 



Indicate operand is invalid 



(V)Check if neither invalid nor valid 
keywords were specified. 

No Yes w Build error messagez 

Call MSG 



Indicate command 
is invalid — - 
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(5) a. 1R52I OPERAND x NOT SPECIFIED AS KEYWORD 




MSG 


CP 
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PRICHECK 




CP 
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DISCHECK 




CP 
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CLSCHECK 




CP 


e. 


COPCHECK 




CP 
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RMTCHECK 
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CMPCHECK 
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h. 1R52I OPERAND x INVALID KEYWORD 
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Check if the priority specified in a 
PALTER command is within the 
range through 9. 



D> Check if the priority number is a valid number 
between 1 and 9. 
Yes 



No. 



►Indicate operand is invalid- 
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Build error message : 
Call MSG — — — 



Set change indicator for priority to new value - 
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DISCHECK 



Check if the dispostion specified in the 
DISP = x parameter of a PALTER command 
is 'H', 'K\ 'L', or 'D'. 



Check if the disposition specified is one of the 

characters H, K, L, or D. 

Yes No » Indicate operand is 

invalid = 
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Build error message 
CallMSG — — - 



Set change indicator for disposition to new 
value z======zz=z====-===============z 
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Check if the class specified in the CLASS =x 
parameter of a PALTER command is valid 
for the queue set specified by the first or 
second operand. 



Ql) Assume the class specification is invalids 



(2)Check if one character length alphameric 
J^v was specified. 

Yes No *~® 



£> (3) Check if the character specified was in 
y^7 the range A-Z for input or output queue 
■^ entries or, 0-6 for input entries, 



No 



Yes 



zf^> Set change indicator for classy 
to new value 
Indicate operand is valid r~~n 



(4) Build error message - 
Call MSG 
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Check if the number of copies specified in the 
COPY=xx parameter of a PALTE R command 
is valid for the queue set specified by the first 
or second operand. 



"^ > (D Check if tne number was omitted or 
wrong (not decimal or too large). 
No Yes » Indicate operand is 



invalid: 



"^^ (2^) Check if the output queue record is 
to be changed. 
No Yes » Set change indicator 

I for number of copies 

to new value ~zzzzzzzi 



Check if the operand is still valid-^ 

Yes No » Build error message- 



Call MSG ' 
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Check if the to-remote ID specified in the REMOTE=xxx 
parameter of a PALTER command is valid for the queue 
set specified by the first and second operand. 
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Level 4 



Check if the compaction table name in the 
CMPACT=XXXX of a PALTER command 
is valid. 



MJ Operand is valid. .;;.,.. 
^> GD Cneckif QR ECID-List queue. 
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Yes No 



Build warning message 



Call MSG 



j^ {3) Check if the OPLEN is up to 4. 

Yes No Indicate operand is invalid 
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Check if the character set was valid. 
Yes No 



Check if the first indicator was * 
for default comp. table name 

Yes No-^ Indicate operand 
I was invalid 

Set change indicator for default 
compaction table name z=zzz 



Set change indicator for compaction table name: 

Check if operand is valid 

Yes No ^ Build error message — 
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Call MSG 
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Extended Description 


Include Segment 


Call Subroutine/Macro 


Chart 


MJ If QRECID ¥= L, then the queue is not LST and the 
CMPACT operand is ignored. Call MSG for message: 
CMPACT IGNORED. 








(2j Check if CMPACT name length is up to 4 characters 








and a valid alphameric string was specified. 








Qij If the compaction table name is an invalid character 
string, issue error message, otherwise check if the 
first character is an * for default compaction table 








name. 








(7) 1R52I INVALID CMPACT NAME 
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ALTJOB (Part 1 of 3) 



Check if the queue set may be altered. (It may not if 
it is being processed, unless only the number of copies 
is changed.) Remove the queue set from the class 
chain via an IPW$DQS macro. Make the necessary 
changes and add the queue set to the same or another 
class chain via an IPW$AQS macro. If the alter 
operation results in no changes in the attributes of 
the queue set, the PALTER command is ignored 
for this queue set. 



MJSuppress the message 
NOTHING TO ALTER: 



© 



Assume altering results in no changes : 



=0 (3JCheck if the priority is to be altered and 
will result in a different priority. 



No 



►Indicate altering is 
necessary zzzzzrz: 



-£> GQcheck if the disposition is to be altered 
and will result in a different disposition. 



No 



•►Indicate altering is 
necessary =^^= 



= C ;> 00 ^ nec ' < 'f tne c ' ass ' s t0 ^ e altered and 
will result in a different class. 



No 



-Indicate altering is 
necessary zzzzzzz: 



=£> HBJ Check if the number of copies is to be 
altered and will result in a different 
number of copies and the queue record 
does not belong to a reader queue entry. 

No Yes i » Indicate altering is 
I necessary ^— 



=£> (7) Check if the to-remote-ID is to be 
altered and will result in a different 
to-remote-ID, and the queue record 
does not belong to a reader qaeue entry. 

No Yes » Indicate altering is 

I necessary zzz 
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ALTCP 
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QRECDP- 



QRECORD 



ALTARGS 



ALTPY - 
ALTDP- 
ALTCL - 
ALTNC - 
ALTJSW - 
ALTRP - 



On or Off 





"^^ v£/ Check if the compaction table name is to be 
altered to a different compaction table name 
and the queue record is LST 



No 



I 



Yes- 



Indicate altering is necessary 



Qtj Check if altering is necessary. CO" 



Yes No i 



♦ 



:£> ud) Check if the queue set is being processed. 
Yes No 
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^>0 



a. Save the disposition of this queue set — 

b. Insert* in the queue record disposition 
field to make it harmless 

c. Remove the queue set from the class — 
chain via IPW$DQS macro — — 

d. Restore the original < ^ 

disposition :zz==zzzz=zzzzzzi=ziz= 



PALTER 
(j£)d.10. 



IPW$DGS 



e. ALTMODIF 



Alter the queue set. 



f. Add the queue set again as a member 
of the same or another class chain, via 
the IPW$AQS macro __ 



Check if only the number of copies is to be 
changed. 
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QRECORD 



QRECNM- 
QRECNO- 



Yes No. 



ALTCOPS 



Change the number of copies. 




» Build error message 

=£>> Insert job name 

=C>> Obtain job number 

Call the BINTODEC 
subroutine to convert the 
job number to printable 
form 

Insert job number <^J 

Call MSG 
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I nclude Segment Cal I Subroutine 
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(10) 1R88I JOB xxxxxxxx ~xxxx CANNOT BE ALTERED 
job name job number 
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Change the priority, the disposition, the class, 
the number of copies, and the destination of 
the queue set to be altered. 



£>> Q) Check if the priority is to be altered. 

No Yes » Change priority zrz 

C> (2) Check if the disposition is to be altered. 
No Yes » Change d isposition Z 



C> \3) Check if the class is to be altered. 
No Yes » Change class : 



f 



C> \^ Check if the number of copies is to be altered. 
No Yes ' ^ Change number of 

1 copies HZZZZHZHZZZZ 

C> © Check if RJE to-l D is to be altered. 
No Yes 
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£>• Change to-l D ; 



C> \5x Check ** the compaction table name 
is to be altered 



Ho 
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- Change comp. : 
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Modify the number of copies in the queue set being 

altered. Locate the internal copy counter of the 

logical writer task processing the queue set and change it. 



z£> MjChange the number of copies in the queue set: 
^> \2\ Point register 1 to the disk request word, 
^n Rewrite the queue record via the IPW$WTQ 



=J>(^Point to the start of the TCB string : 



£>@Scan the TCB string until the TCB of the 
""* writer task which processes the same queue 
set, is found, or the end of the TCB string 
is reached zz 



Check if a TCB was found <J=: 
No Yes 

Modify the copy counter! 
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OP1 
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Determine from the first operand whether the 
queue status, active tasks, tasks waiting for 
operator response, all user type RJE messages, 
or job status is to be displayed. 



^> (Y) Check if the central operator issued a 
PDISPLAY command. 

Yes No — — ^_^_ 

^> (^yCheck if 'Q"b' was specified as first operand 
No Yes m Indicate command is 

valid — 
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DSPLYQ 



Display the queue status. 



^> (3)check if 'A"b' was specified as first operand. 



No Yes ■ 



► Indicate command is 
valid zzzzzzzzz^z^: 

DSPLYA 



Display the active tasks. 



C> (J)Check if 'M~b' was specified as first operand. 
No Yes » Indicate command is 

valid 



DSPLYM 



Display the tasks waiting 
for operator response , 



C> Qf)Check if 'Mb' was specified as first 
operand 

No Yes m Indicate command 
is valid 
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DSPLYT 



Display the time/ 
date and number of 
pages, number of 
tasks. 
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OP1 



CARMt: 



SWCANCEL 
I On or Off 

OPERANDS 



OP1 



SWCANCEL 



On or Off 



£> (5) Check if RDR, PUN, LST, or PRT 
specified as first operand. 

No Yes m Turn on the appropriate 

switches ; , .. _~"~~~ 



PDISPLAY(Part2of3) 

Z> © If RJE is supported, check if 'MSGB' was 
specified as firsfeoperand. 
No Yes » Indicate command is 

valid —————— zzzz 
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DSPLYMSG 



Display all user type 
RJE messages. 



O (7) Check if a different operand was specified 
Yes No 

:heck if 



Initialize for displaying 
job names in queues 
(DISPLYJOB segment) 

a. Indicate a queue was 
specified as first 
operand Z 



b. Shift OP2 to 0P1 

c. Shift OP3 to 0P2 

d. Indicate shifting 



was done 1 



@DSPLYJOB_ 



Check if job status messages can be 
displayed . 



D> no) Check if the operands are valid <** 
Yes No » Build message^ 

I Set up indicator 

CallMSG— — 




►MAINLINE (3), Chart CP2 



Chart CP35 



f \ 



PDISPLAY (Part 3 of 3) 



Chart CP35 
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Call Subroutine 


Chart 
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Answer the PDISPLAY Q command by showing 
free space in queue and account files. 



MJ Initialize message area to indicate a 
PDISPLAY Q command. 

fyindicate leading zeroes are to be 
suppressed 



(3) a. Insert the text related to the queue file! 



z£>> b. Obtain the number of free queue file records 



c. Call the BINTODEC subroutine to convert 
this number to printable form 



d. Insert the number of free queue file 
records. 



e. Call MSG 



O ©a. Check if POWER/VS job accounting 
was generated. 

Yes No ■ m Build text to indicate no 

accounting is supported 




Continued on next page 



O 

n 
n- 

o 



-c/> 

o 



a 

CO 

►a 

JO 



rt 
w 



Chart CP36 



f 



Chart CP36 



CAACt 



ACB 



CAACt 




DISPLYQ(Part2of2) 



b. Insert the text related to the account file : 



-^>c. Point register 1 to the account 
control block :zzzz=zzz3zm 



■^> d. Calculate the percentage of the account : 
file that is full. 

e. Call the BINTODEC subroutine to 
convert this percentage to 
printable form ___— 



f. Insert percentage <J: 
Qj)Call MSG — — — 
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Extended Description 


Include Segment 


Call Subroutine 


Chart 
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MSG 
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(V)d. ACMC in input gives the maximum capacity of the account file. 
ACAC in input gives the space available in the account file. 
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TCBFF(2) 
TCBFF(3) 
TCBFF(4) 

TCBDB 



TCB 



TCBPTf 



TCBQAV 



virtual queue 
area address 



Answer the PDISPLAY A command by printing a 
list of all existing reader and writer tasks, together 
with the class specified in the PSTART command 
and with the name, number and class of the job that 
is currently being processed. 







1 ) Initialize the message area to indicate 
a PDISPLAY A command - 



(2) Indicate TCBs are adressed by a 
loop pointer • 



C> (3)Point to the start of the TCB string- 



fa^Check if the TCB of a reader, writer, or 
execution task is in the circular list 
of TCBs. 



Yes No 

L 



-0 



Indicate at least one task 
was found 



TCBQV 



i£>b. Insert task identifier ) 

z£>c. Insert device address / 
^>d Insert all class characters specified 
in the PSTART command z^=z= 



z^> Check if list writer task 



No Yes » Insert number of buffers 

I specified in the PSTART 

command. 



l£> Check if the queue record is still 

addressable, or if the tape flag bit is on. 
Yes No m (?) 



MESSAREA 
C> l 1R48T"^ ^ 



O TCBPTt 

C> TCBPT J| first TCB I 



second 



TCB j 



=>r_ 



SWRDWR 
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_^ C DISPAREA 
-v-^ ^THRTI THR 



TCBTI,TCBCU,TCBDB 
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QRECORD 



QRECNM 

QRECNO 
QRECCL " 

TCBPTf 
TCBTN — 
TCBBI — 



TCB 



TCB 



TATM t : 
set in IPW$DPA 



:£> Obtain job name and store : 



^> Obtain job number. 

Call the BINTODEC subroutine to - 
convert the job number to printable 
form and store - 



Obtain class character and store: 



^> nQSave pointer to the next TCB in the string : 
(y Call the MSG subroutine 



to print the message 1 R48I built in Step (4J 

(7) Check if the TCB is still present. 

Yes No m P oint to the next TCB<^zr 

I in the string t 

=0 Point to the next TCB in the string ==z 



BINTODEC 



•MSG 



^* QRECNMdQRECNO"dQRECCL 



I 



ft 



C> TCBPTR f 



:£> ($) Check if the current TCB is an actual TCB . <J 
Yes No 

Set the loop pointer to the start 
of the TCB string 



:£> Qn Check if all TCBs were wanned. < ^ - 

Yes No »» (5) 

uCnlndicate TCBs are addressed again by 
TCBPTR. 

nT)Check if at least one TCB was found for the 
requested type of task. 
Yes No *» Build message to indicate — 

J this J 

Call MSG— J 



-► MSG 



:£> TCBPTf 



zf> TCfiPTt 
' I 



M£SSAREA 



C> 1 1R48I" 
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Extended Description 


Include Segment 


Call Subroutine 


Chart 


^U The pointer to the next TCB is saved since the TCB may be lost while message 1 R47I is written. 
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MSG 


CP75 



Chart CP37 



O 
00 



O 

O 
CO 

s 

< 
w 

hj 
o 
2: 

a 



en 

F 
O 

<£ 
H- 
O 



TATMfl 



TCB 



TCBSF— 

TCBTI — 
TCBCU- 

TCBMW- 
TCBTN- 



SWRDWR 

I OnorOfT 



Included by PDISPLAY, Chart CP35 
T DSPLYM (Part 1 of 2) 



LEVEL 3 



Chart CP38 




Answer the PDISPLAY M command by printing 
a list of all reader and writer tasks which are 
waiting for a deferred operator response. 



(Y)lnitialize the message area to indicate a 
PDISPLAY M command. == 



i> @ Point to the start of the TCB string ; 



£> ^3) Check if the task found is waiting 
for operator response — 



► a. Indicate at least 

one task was found = 

- b. Insert task identifier 

» c. Insert device address z 



z£> d. Copy the message which 
was issued by the task just 
before it entered the wait state. 



e. CallMSG- 



C> (*) Cneck if a " TCBs were canned. 

Yes No — — — — 



■® 



£> \b) Check if at least one TCB of the requested ^- 
type was found. 

No Yes — — — — — 



Build message 
CallMSG 



t; 



-►MSG 



■ PDISPLAY 



MSG 



MESSAREA 



^> 



1R47I 



^> TCBPTRtl fjrstTCB 



>^ 



J>/H second TCB 



Q 



SWRDWR 

^> l 1 I - 



DISPAREA 



=0 



MESSAREA 
z£> I 1R47I 
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Extended Description 


Include Segment 


Call Subroutine 


Chart 


(2) TCBPTR in output it used as a scan pointer. 








^) If necessary, a pending message is adapted to the length available in MESSAREA. 




MSG 


CP75 


TCBMW in input is a message request word in the TCB, used to address the 








message still outstanding. 








■©-© 








The scan of the TCB string is accomplished through the use of a DO UNTIL statement 








in the PLS code . 








(4) All TCBs have been scanned when the first TCB is reached again. 








(5) 1R47I NO MESSAGES PENDING 
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SAVER 1 



SWRDWR 

I On or Off b 



DSPLYMSG 



Answer the PDISPLAY MSG command by extracting 
ALLUSERS messages from the virtual message queue 
(via the IPW$WTM macro) and by displaying the 
ALLUSERS messages on SYSLOG or the remote 
printer. 



^T^Assume nothing to display ■= 

v£ySet up register 1 with an indicator for the 

display function 
(5) Get ALLUSERS message from the virtual • 

message queue via the IPW$RMS macro 



£> (?) Check if an ALLUSERS message is found. 

No Yes ■"■■^Indicate something to display : 



I nsert message into the output* 
area z=r===: 



*p=*S) 



Save register 1 
Call MSG ■—■ 



=C> Set up register 1 again for 
extracting next ALLUSERS 
message from the virtual 
message queue. 

■ ® 



v^® Check if at least one message was found. 

Yes N o ■■■i^. Bu i Id message noth i ng to 
display • 



Call MSG 



*ilPW$RMS 



•MSG 



■^ MSG 



t 



i>[ 



SWRDWR 



R1 



=^> lol I I 1 



= £ >{ R1t 



RMESSLEN 



®<C= 



RMSG 



SWRDWR 



=c> 



1 



MESSAREA 



0> 



SAVER1 



=D>! 



MESSAREA 
=£> 1 1R46I 
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mded Description 


Include Segment 


Call Subroutine 


Chart 
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To set up register 1 for the next ALLUSERS message, character D is placed in the high-order byte of 
register 1. Register 1 is then ORed with SAVER 1, which contains the address in the ALLUSERS 
message queue where the scan must be continued. 
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The IPW$RMS macro uses registers 0, 1, 2, and 3. They are restricted in this segment. 
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SWLST 



On or Off 



SWPUN 



| On or Off 
SWQ 



CPB 



CPBID 



OPERANDS 



OP2 



OPERANDS 



OP1 



On or Off 1 = 



SWQ 

I On or Off | = 



- OPLEN2 



J— 0PLEN1 
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DSPLYJOB (Part 1 of 4) 




Process the PDISPLAY commands with a first 
operand that is not 'Q' f 'A', 'M', or MSG. 

Note: If the first operand was RDR, LST, or 
PUN, the SWQ switch was turned on, the 
second operand was shifted to OP1, and the 
third operand was shifted to OP2. 



Qj Clear arguments for the QSCAN routine in 
the IPW$PS (print queue status) phase. 

\2) Set up for scanning the reader queue 



C> (5) Check if the list queue should be scanned. 

No Yes m Set up for scanning the list 



1 



queue : 



v> (4)Check if the punch queue should be scanned. 
No Yes m Set up for scanning the 
I punch queue 



0(5) Check if the first operand is a queue 
parameter . 
Yes No m Indicate RDR, LST, and 



PUN 



Indicate the appropriate queue to be scanned<^; 



C>@ Insert user-ID 

C> \7) Insert the destination of the status report 



^> (5) Check if a queue name is specified. 
>tes No 



C> Check if a second operand is specified 
Y_es No » Check if D QUEUE or 

A D QUEUE, ALL is specified. 
if Yes No 



Indicate command is valid 

:: C> Check if the first operand is omitted 
or ALL is specified. 
Yes No » (f3) 

Set up failing operand indicator for diagnostic 
message :z=z=zzzzzzz=zzzz=z==:==zz=====: 



Turn off switch ; 
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OPERANDS 



OP1 



OPERANDS 



OP3 



OPSWHEX 



^ 



OPLEN 



CPB 



CPBID 



SWCANCEL 
| On or Off | = 

CPB 



CPBID 



] 



OPERANDS 



OP1 



CATM t = 
SWQ 
I On or Off r = 



:£> (5) Check jf D ALL is specified. 



No Yes 



r 



=>©' 



Check if the second operand is omitted 
or a printer address. (The central 
operator may specify DALL, cuu). 
No Yes «m^> I ndicate command is 

I valid ======= 

Set up indicator showing 
which operand is invalid z 

J[0)Check if the results from syntax checking are 
still valid. 
No Yes > DSPLALL 



If D ALL, cuu is specified then 
assign free LUB to specified 
printer if not issued by the 
initiator or terminator. 



*(fl) Check if the first operand is LOCAL, if RJE 
is supported, and if the command is issued by 
the central operator. 
No Yes— ■►Indicate command is valid — 



Set up QARGS to get only queue 
sets for the central operator "zzzz 



^>y2)Check if the first operand is RJE and RJE is supported 
Yes No ■ ( 13) 

r£> Check if the first operand is QUEUE. 

Yes No ■■<► Set up indicator — - 

Set up indicator ■ 



Check if the second or third operand is 

omitted or a decimal number. 

No Yes ■■■■►I ndicate command is valid 
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SWCANCEL 
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QARGS 



=> 



000 



-QIDDEC 



ERRFLAG 
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C> @Check if D HOLD or D QUEUE HOLD is 
specified. 
No Yes » Indicate command is valid — 

Indicate P DISPLAY HOLD ^ 
command ^ rvB) 



@Check if D FREE or D QUEUE FREE is specified. 
No Yes » Indicate command is valid zz 



Indicate PDISPLAY FREE 
command zzzzzzzzzzzzzrz 



r£> (l5)Check if D * abc or D QUEUE * abc is specified. 
No Yes » Indicate command is valid" 



Sf© 



Insert length of operand 
Insert operand ZIZ 



=^kE) 



Z^> (]6)Check if D QUEUE, job name ( Job number ) or 
D QUEUE, class is specified. 
Yes No » (17) 

Check if D QUEUE,class is specified. 
No Yes 



Indicate command is valid : 
Insert class character = 



Check if a valid job name is specified. 



No- 



t ? 

Insert job name^^ 

Indicate command is valid zzzzzz 
Set up operand number indicator 



■® 



fix 



© 



®= 
©= 



QARGS 



c> 



^> 



w® 



£> Check if a valid job number is specified. 

Yes No » Indicate command is invalid: 



:£> Insert job number : 



C> (l7)Check if the command is still valid. 
No Yes » DSPLSTAT 



^>© 



Build the TCB for the 
IPW$$PS (print queue 
status) phase and attach it 




=> 



:£> 



SWCANCEL 



^> 



SWCANCEL 



=E> 



® 



SWCANCEL 



QARGS 






o : 



ERRFLAG 
=>1 3 



-QHOLD 

-QFREE 

- QABCLEN 
-QABCCONT 



- QCLASS 
-QJOBNAME 

-QJOBNO 



SWCANCEL 
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OPERANDS 



second operand 



^ 



OPLEN2 



TAOC t : 
RT3 



OPERANDS 



second operand 



-OPSHEX 



S WCANCEL 

On or Off E " 
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For a PDISPLAY ALL, cuu command not issued 
by the initiator/terminator task, assign a free LUB 
to the specified printer. If the initiator/terminator 
did issue the command, assume SYSLST can be used. 



J^> MjCheck if a printer address is specified. 
Yes No 



(5) Assume SYSLST can be used : 



£> \3J Check if the command is issued from the 



initiator or terminator. 
No Yes 



(3) Set up argument fields for the PASSGN 
subroutine, 
a. Insert LST indicator ZZHZZZZZZZI 



zj^> b. Insert printer address in printable form- 



^pf g. Insert printer address in binary form := 

(IT) Call the PASSGN subroutine to assign free 
LUB to printer PUB 



£> (5) Check if assignment was made. 

No Yes » Insert programmer LUB 

number . 



Suppress message 1R52I- 



-^DSPLYJOB 



-DSPLYJOB 



PASSGN 



QARGS 



S> 



-QLOGUNIT 



ASGNARG2 



=o 



1TLST 



ASGNARG3 



o 



c> 



ASG NARG1 
cuu 



QARGS 



=> 



--QLOGUNIT 



SWCANCAN 
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DSPLYALL(Part2of 2) 



Extended Description 


Include Segment 


Call Subroutine 


Chart 


(3) TAOC points to the permanent command processor TCB. 








© 




PASSGN 


CP76 


(g) Message 1 R52I is suppressed since the error was diagnosed already by the 
PASSGN subroutine. 
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OPERANDS 



OPDEC- 



NRRE 
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1 



DSPLRJE 



Check if the user-ID specified in a 
PDISPLAY RJE command is valid. 



(jj Check if a user -ID is specified. 

Yes No » Indicate thisz 



Z> (5) Check if the user-ID is valid. 

No Yes » I nsert user-l D : 



Indicate command is invalid - 
Turn off switch — - 



LEVEL 4 



"► DSPLYJOB 



If 



QARGS 



i> 



QARGS 



^> 



SWCANCEL 
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OPSWALFM 
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OPERANDS 



OP2 



QARGS 
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Build the task control block for the IPW$$PS 
(print queue status) phase and attach it. 



fOObtain space for the new TCB via the < 
IPW$RSW macro ======== 



:£> QyCopy the current TCB into the space 
obtained. 



(3) Identify the TCB as a TCB : 



(^Identify the TCB as belonging to the 
IPW$$PS (print queue status) task = 



QySet device address field in the TCB to 



blanks. 



Qy Check if a printer address was specified 
in the PDISPLAY command. 



No Yes 



& 



C> Insert the printer address^ 



lear the cancel code field - 



(Sj Clear the ECB pointer in CPB to prevent 
posting before the status report is complete 
(the IPW$$PS phase will post it)^^^ 

^ 

C> (In Insert the edited PDISPLAY parameter ^ 



LEVEL 4 



(tO) Insert the address of the save area in the 
TCB = 



© 



Insert the TCB address ; 
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CPB 



CPBID 



CAPSt" 



;£> u2) Insert an identification of who owns the 
report in the TCB — 



n3)lf the central operator issued the command, 
insert decimal zeros =z=z=zz=z: 



:£>(T4)Obtain the address of the IPW$$PS 

code IZ=C>© 

u5) Insert the address as base value = 



M6) Attach the new task via the IPW$ATT macro, 



-=£ 



ir 



IPW$ATT 




R1f 



:£> 






000 



R3 



TCBFL 



TCBIDDEC 



TCBR8 



DSPLYJOB (end) Chart CP40 



Extended Description 






Include Segment 


Call Subroutine 


Chart 














This segment uses registers 0, 1,2, and 3. 









H 

& 
3 



5 

H« 

tS) 

& 

ft 

R- 

O 

3 



Chart CP43 



O 



O 

o 
en 



en 
O 

@ 

< 

CO 

f 
o 

H- 
O 






CPB 




SWACCT 



On or Off 



SWCANCEL 



On or Off 



address of DUMTCBI 



OPERANDS 



0P1 
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z57 
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LEVEL 2 
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Build the TCB for the task which will save or 
delete the account file. 



© 



1 ) Assume command is valid - 



^> (2) Check if the central operator issued the 
command. 



Yes No < 



•►Build messagp 

Indicate command 
is invalid 

Call MSG • 



C^ (3) Check if POWER/ VS job accounting 
is supported. 
Yes No > Build message 



Indicate command 
is invalid - 

Call MSG — — 



£> (7) Check if the command is still valid. -^-- 
Yes No 



.♦ 



Assume operands are invalid • 



(¥) Build TCB for task which will save or 
delete the account file. 
=J^> a. Locate work area in which to build the 
TCB 



b. Clear work area. 



c. Clear storage descriptor. 



d. Identify the work area is a TCB = 



e. Identify task: save or delete account file : 

f. Check if the first operand specified 
s£s has three characters. 

u ^" No Yes » Insert first operand — 



-► MSG 



-► MSG 

►mainline(5) 



=0 



~^> Insert first operand ■ 



SWCANCEL 



:£> 



>- »! 



MESSAREA 



=0 



1R85I 



SWCANCEL 



=> 



1 



>- 



MESSAREA 



:£> 



1R69I 



] 



=> 



SWCANCEL 1 

ZJZZH-- { 

I 



SWCANCEL 



=£> 



1 



:£> TCBPTR t 



©© 



TCB Storage Descriptor 





TCBBI > \ \\ V 

TCBfc I J 1 \\ 
TCBTI f \ \ 

J> 1 fe ACT I * 



TCBCU 



=> 



feDEL 



=(> 



DISK 



TCBFL 



i or , 

1 tttt r xtpage 
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CPCB 




OPERANDS 



OP1 



EI 



^ OPLEN 



OPERANDS 



OP1 



OP2 



OPSWALFM 
OPS(2) 



1 



^^ 



OPLEN 



ORIGINAL 



® 
® 



OPERANDS 



OP1 



OPSWHEX 



7" 



SWCANCEL 



^ 



OPLEN 



On or Off 



SWCANCEL 



On or Off 



:£> g. Insert user-ID 

in binary form! 



in decimal form: 



h. Indicate no cancel code : 



(§) Clear fields used to pass PACCOUNT 
parameters ZZZZZ^ZZ~~ZZZZZZI 



£> (j) Check if no operands are specified. 

No Yes » Indicate command is 

A valid === 

Insert first operand l=ZZZZ= 



C> (8) Check if DISK was specified as first 
operand. 
No Yes 
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«_^ Check if the second operand was 
-£ • a valid file name. 

No Yes » I ndicate operand 
is valid 
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/^\-~f^?- Insert second 
v!-/ operand z=z= 

Build error message 

Call MSG — — — — 



C> (9) Check if DEL was specified as first operand. 
No Yes > Indicate operand is valid ™ 

C> (jo) Check if a valid device address was specified *♦ 
as first operand. 

No Yes m I ndicate operand is validzn 

I ACCDEV 



Process device address. 



Build error message: 
Call MSG — 
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LEVEL 3 
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Check if the devise address specified in a PACCOUNT 
command corresponds to a tape drive. Assign free 
programmer LUB to specified PUB. 



(T)Scan the PUB table. for an entry 
corresponding to the device address 
specified ' ' - - ~ ' - — - 



(?) Check if a PUB entry is found. 

Yes No m Build error message 
CallMSG — — 



Indicate operand is 
invalid '■■•■ : -- ~ 



(5) Save PUB pointer 



Set up fields for the PASSGN subroutine: 

£> a, hexadecimal device address .., ■ 

£> b. printable device address - ■ - 

(4) Check if the device is a tape. 

Yes No » Build error messageuzz 

I Call MSG — — — 



ACCOP23 



Indicate operand is 

invalid — 



Process operands 2 and 3 specifying 
density and file name . 



b Set up field for the PASSGN subroutine: 

Set up field for task which will 
save/delete account file '"■'■■•'<■■' ■ 



C> \5J Check if the command is still valid. 
Yes No ' 



* 



Call the PASSGN subroutine to assign free 
programmer LUB to wanted device 1 



MSG 
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► PACCOUNT 
► PASSGN 
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PUB pointer pointing to 
entry found or to the end 
of the PUB table. 
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MESSAREA 



1R74I 



SWCANCEL 



1 



=0 | TAPE | 
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LEVEL 3 



:£>Q0 Check if the assignment was made. 

Yes No — — — — 



a. Insert the device type obtained from the 
PUB = 

b. Insert the programmer logical unit number 
assigned to the device - 
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Check the validity of the second and third operands, 
if present, of a PACCOUNT command specifying a 
tape drive to save the account file. 



(j) Initialize the density field in the TCB= 
=C> (2) Check if the device is a 7-track tape. 
No Yes 



: C > Scan the table of valid densities for 
7-track tapes to find a match with 
the density specified. 

If a match is found insert density =z 
^£> (3^Scan the table of valid densities for 9-track 
tapes to find a match with density specified 

If a match is found insert density — 



(4) Check if the density is valid or omitted. 
Yes No— ««^ Build error message zz 



Call MSG 

Indicate operand is 
invalid — 



=£> (5) Check if the third operand specifies a valid 
file name. 
No Yes ^^h^ Insert the file name into 

Ithe parameter field for 
the save or delete taskz= 



Check if the third operand was omitted. 
Yes No ■•■■^►Build error message = 



Call MSG ' 



Indicate command is 
invalid 
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O l 



TCB 
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Attach the new task to save or delete the 
account file via an IPW$ATT macro. 



(7) Obtain space for the TCB via the IPW$RSW fl 



£> (2) Copy the TCB built in the work space 
DUMTCB to fixed storage obtained via 
the IPW$RSW macro ========== 



C> © Pass PACCOUNT parameters 



t^> QO ' nsert the task save area address into the 
task register save area ' - 



(5) Insert the address of the TCB into the task 



C> ©Point to the start of the code ; 



(j) Attach the new task via the IPW$ATT« 




*IPW$RSW 



► IPW$ATT 



TCBCOPY 



R1t 
=0 



c> 



TCB 



=0 



=C> R3t 
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(T)and (7) The IPWSRSW and IPW$ATT macros use Registers 0, 1, 2, and 3 
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Insert a cancel code in all task control blocks. Assign 
SYSLST LUB to the specified printer address. Issue 
the SETPEA and DUMP macro if an immediate stop 
is required. Change initiator TCB and activate the 
terminator task. 



(Y) Assume command is valid 



SWCANCEL 



^> (2) Check if the command was entered in short format. 
No Yes m Indicate command is invalid Zl 



Build message - 
Call MSG — 



t> (3) Check if a remote user issued the command. 

Yes » Indicate command is invalid 



No 



Build message" 
Call MSG — 
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^*MSG 
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1 
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^> 



;£> (7) Check if POWER/VS intialization was completed. 
v/ ~- No » Indicate command is invalid . 



Yes 



^ MSG 



Build message I 
Call MSG — 



^> 



^> 



(5) Check if the command is still valid -^- 

Yes No » (To) 

PENDOP1 

Check the first operand for validity . 



^> (7) Check if a printer address was specified 
in the first or second operand. 
No Yes 



Check if the operand is valid. 
No Yes m Indicate reporting 

I is required ZHZZZ 



MSG 



Indicate command is invalid ! 



Build message I 
Call MSG — 
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SWCANCEL 



On or Off 



CANCOD 



:£> 8 Check if the second operand was specified. 
PENDOP2 



No 



Yes- 



Check second operand 
for validity. 



9 Check if reporting is required -^ 

No Yes ■♦►Assign SYSLST to printer. 



Call PASSGN 



O.10 Check if the command is still valid 
Yes No 



:£> Check if an immediate stop is 
requested. 

No Yes ^^ Build message 

Call MSG — 
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Issue the SETP FA 
macro to deactivate 
the POWER/ VS page 
fault appendate routine 
Issue the IPW$FCH 
macro to terminate 
POWER/VS 
immediately 



Check if the terminator task was already started. 
Yes No^^ATTTITCB 



Activate terminator task. 
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^MSG 



►SETPFA. 
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: ASGNARG1 = OPHEX 
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ASGNARG3 = ORIGINAL 
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Initialize the cancel code depending on the first 
operand of the PEND command. 



(iJCheck if the first operand is 'KILL'. 



No Yes —vindicate 'Kl LL' was ^Z^H 
specified 

Point to the second operand ; 



\2) Indicate 'KILL' was not specified " 

Point tO the first nppranri- 



CANCOD 
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(7) The CANCOD field is used to insert the cancel code 'E' into all TCBs used when PEND is issued. 

(2) If PEND 'KILL' was specified, the second operand, if specified, should be the device address of 
of the printer. 
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Process the second operand of the PEND command 
(printer address specification). 



£> (7)Check if the first operand was specified 
but was not 'KILL'. 



No 



Yes- 



►Build message: 
Call MSG - 



:£> ^2^ Check if the second operand is a valid 
printer specification. 
Yes No » Indicate command is invalid 



Build message: 
Call MSG — 



Indicate reporting is to be done : 
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Simulate the PSTOP command fot all non-SNA 
tasks. Turn on the stop bit in all line control blocks. 
Notify the central operator and all signed-on remote 
users that POWER/VS is going down. Change initia- 
tor TCB and activate the terminator task. 
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Build shutdown message 



Insert termination code in all TCBs except 
for SNA tasks and post tasks dispatchable 
if required zzizzzzzzzzzzzzzzzzzzzzzz: 



[3J Turn on stop bit in all line control blocks. 

>© 



Check if an RJE user is signed on. 

No Yes ^^- Indicate destination of 

(shutdown message ■ 
Call MSG — — 



£> (V) Check if SNA is active 



No 



© 



Yes 

t 



£> Check if a higher termination 
type has already been set 

Yes No 



Set termination type : 
Indicate SNA is to be 
stopped 



Post SNA work ECB : 

Terminate the POWER/VS session. 

a. Identify terminator task ■ 

b. Post terminator TCB dispatchable : 

c. Notify central operator :z^zz 

d. Call MSG — — — — 
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Include Segment 


Call Subroutine 


Chart 


(T) 1R99I POWER/VS IS IN THE SHUTDOWN PERIOD^ 








/^J) Termination code will be inserted in all TCBs <** ^ 








Except: . SNA task TCBs \ ^\ 

Execution writer TCBs ^ . ^ ^ 
Execution reader TCBs \ \ 














from writer-only partitions. ^ \ \ 








All TCBs will be set dispatchable ^ ^ 








\ \ 








Except: . Command processor TCB v \ 








Status report task TCB ^ 
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X \ 






Terminator task TCB 
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If the first operand is RDR, LST, PRT, or PUN, 
search the specified queue to find the queue sets 
specified by the first and second operands. 
Scan the RDR, LST, or PUN queue to find the 
jobs to be deleted. 



(T) Clear arguments for the QSCAN3 routine — ^""" - 
(Step0). 

•^ (?) Check if the first operand specifi es a valid 

queue name and store the result 

No Yes » (3) 



l£> Check if the first operand is MSG and RJE 
is supported. 

Yes No > Build error message . 

I Call MSG ■ 

Indicate command is valid : 



DELMSG 



Delete one or all ALLUSER messages 
from the virtual message queue. 



0> (3) Store ujer-ID for the QSCAN3 routine = 

(Step0). 
£> (4) Check if the second operand is ALL. 

No Yes ' * ■ I nd icate command is 

■v^ Q>) Check if the second operand is *abc. 

No Yes .» a. Indicate command is 
valid 



b. Store length of second 
operand for use by the 
QSCAN3 routine (Step(9) 

c. Store second operand ^^ 
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:£> QARGS 
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SWCANCEL 



On or Off 



OP2 



I 4 0PLEN 



OP3 



OPSWDEC-' 
OP2 

TOPTR t 



SWCANCEL 



On or Off 



CAQCt: 
QBEGIN 



^> (6} Check if the second operand is a job name 
or a class. 
Yes No » (i) 



Indicate command is valid : 



lC> Check if the second operand is one character. 



No Yes- 

a. Store job name. 



Store class character : 



^> b. Check if the third operand is a decimal 
number. 



Yes No. 



- Indicate command 
is invalid— 



Build error message - 
Call MSG — 



<8) 



Store job number : 



(7) Check if still another second operand is 
specified or already an invalid operand 
is found. 
No Yes — ■♦►Build error message ~ 

Call MSG — — 



(s) QSCAN3 (the syntax of the operand is 
now valid) 



-£> Address the reader class table in the disk manage- 
ment block in the POWER/VS permanent area — 



£> (9) Check if the list class table is to be scanned. 

No Yes » Point to the LST class ZZZZZZ 

£> @ Check if the punch class table is to be scanned. 
No Yes m Point to the PUN class : 

(Tj) Obtain a buffer for the queue record via IZ^Z 
the IPW$RSW macro _______ 



►MSG 



►MSG 

* MAINLINE 



♦ IPW$RSW 
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RELADR 
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TCBQW-- 
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QRECORD 



QARGS 
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^QRECQN 



QRECORD 



QRECNO-- 






PDELETE (Part 3 of 4) 



:£> Q2)Save pointers to real and virtual buffer 
addresses ^> 



LEVEL 2 



(l3) Assume there is nothing to delete — 

u4) Process each entry in the appropriate class list. 
__^^ a. Check if a class chain exists for this 
~^^ class list. 



Yes No. 



^(14) f. 
b. Reserve the disk management block via 
the IPW$RSR macro — — — ' 



c. Call the RELTOABS subroutine to convert 
the relative disk address to an absolute _ 
disk address 

d. Take the following steps for each queue set 
found in this class chain: 



-»^ > 1. Insert absolute disk address in disk request 
word ~ 



:£>> 2. Point register 1 to disk request wordzz 
3. Read record of queue set belonging to 
this class into the reserved buffer via 
the IPW$RDQ macro 



I^> 4. Point to the next queue set in this 
class chain. 
5. Call the SCANQREC subroutine to 
determine if the record just read is 
to be deleted 



6. Check if the queue record is to be 
deleted. 
Yes No »( g) 



""^ 7. Check if a job name was specified. 



No 



Yes 

£>* Insert job number for 

following selection :zz 



8. DELJOB 



Check if the job to be deleted is 
being processed. If not, delete the 
queue set. 



-► IPW$RSR 



-► RELTOABS 



"► IPW$RDQ 



-► SCANQREC 
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9. Check if there is a next queue set record< 
in this class chain. 
No Yes » @ d. 

e. Release the disk management block 
via the IPW$RLR macro — — — — 



o 



f . Check is there are more entries to be 
processed in the class list. 
No Yes » (14) 

Q5) Release the buffer used to read in queue 



records via the IPW$RLW macro « 



^> Q6) Check if there was anything to delete. 
Yes No » Build message ZZZZI 

f Call MSG — — 



LEVEL 2 




:£> Check if a message has to be sent to 
the remote operator 
No Yes » Bu i Id message zzz 
t Call MSG 
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(5) b. 1R52I OPERAND 3 NOT DECIMAL 
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LEVEL 3 



Delete one or all ALLUSER messages from 
the virtual message queue. 



:£> Q) Check if the second operand is omitted, 
or.ALL, or decimal. 
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-Build error message— 

Indicate command is 
invalid IZZZ 



Call MSG - 



Insert indicator for delete function: 

Insert message number 

Insert issuer-! D : z 



-►MSG 
-►PDELETE 



© 



Delete one or more messages via the 
IPW$RMS macro ——————— 

Check if the deletion is possible <C^ 

or allowed. 

Yes No » Build error message 1 



Indicate command invalid : 
Call MSG 



* Check if a message has to be sent to 
the remote operator 
No Yes — ^^ Build message ^= 
I Call MSG 
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(5) The IPW$RMS macro uses registers 0, 1, 2, and 3 
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Verify that the queue set found is being 
processed. Delete the queue set 
corresponding to the disk request word. 



Check if the job is being processed. 

No Yes —————— 



z> 



Suppress message NOTHING TO DELETE : 
Make disposition meaningless 



.PDELETE 
@d.9. 



SWRDWR 



1 



QRECORD 



Remove the queue set from the class chain via 
the IPW$DQS macro , 



Add the queue set to the list of free records via 
the IPW$FQS macro . 



IPW$DQS 
IPW$FQS 



C> 



X — QRECDP 
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LEVEL 2 



Provide the task control block specified by the 
first operand with a cancel code. 
Note that '• . . STOP' RJE commands are not 
supposed to be processed by this program. 



Qj Initialize the default cancel code and == 
clear all argument fields for the TCBSCAN 
subroutine. 

\2J Check if a valid partition identifier was 
specified. 
No Yes m a. Assume command is valid: 



b. Insert cancel code for 
execution reader = 



c. Set up fields for the 
TCBSCAN subroutine : 



Z> (3) Check if a device address was specified. 

No Yes » a. Assume command is valid 1 

Ib. Set up fields for the 
TCBSCAN subroutine : 

= C^ > (4) Check if one of the operands mentioned -^ 

above was specified. 



Yes 



No 

♦ 

Check if stop SNA was requested. 
No Yes 



Assume command is 
valid 



PSTOPSNA 



Stop SNA 



Build error message 
Call MSG — — 



\5J Initialize the line control block pointer 
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LEVEL 2 
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OPSWHEX 
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CALC t 

(set in IPW$DPA) 

LCB 



LCBPTR t 

LCDEVAD - 
LCCHAIN — 



OPERAND 



33F 



OPLEN 



■v^ \6) Check if a device address was specified. 

Yes No ► (7) 



0>~ a. Point to the start of the line control 
block list on first entry. Otherwise, 
point to the next LCB in line.- — — 

=£>b. Check if the LCB contains the same 
device address. 



Yes 



£>Point to the next LCB in the list 



Check if the end of the LCB lis 1 
is reached 

Yes No 



I ® 

Indicate the task belonging to this LCB has 

to be stopped and post ECB in line manager TCB 

£> (?) Check if RDR,LST,or PUN was 



specified 
No Yes- 



-CalltheTCBSCAN 
subroutine to scan the 
TCB string for reader or 
writer tasks matching 
the device address 
specified «— — — 



Call the TCBSCAN subroutine to scan the 
TCB string for execution tasks matching 
the partition identifier specified 



(?) Check if a matching TCB is found <3: 

Yes No »> Check if the LCB was found 
No Yes 





Build error message 

Call MSG 

Indicate command is invalid 
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Process the second operand 1 





u 



MAIN 



LINE Q) 



Chart CP2 



Extended Description 
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(4) TR52I OPERAND 1 MISSING OR INVALID 
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PSTOPSNA (Part 1 of 3) 



Check for SNA termination, set termination 
indicator and post the SNA work ECB. 



C^Cl) Check if the second operand specifies SNA. 



Yes 



No- 




- Build error message 
Call MSG 



fij Lock the SNA unit control block chain via 
the IPW$RSR macro —————— 



£> (3) Check if the third or fourth operand specifies 
EOJ 



No Yes- 

(4) Check if SNA is supported 



-Indicate this in cancel 
code 



Yes No » Build error message 
Indicate command is 
invalid ~ 

Call MSG — — 
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10 



Check if SNA is active 



Yes 



No- 



- Build error message z 

Indicate command is invalid 
Call MSG 




Check if ail SNA has to be terminated. 
No Yes 

:> Check if the SNA cancel code > 'E' 

No Yes p (10) 
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(end) 
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LUCB 



SUCB 



LUCB 



LUCB 



LUCB 



CANCOD 



PSTOPSNA(Part2of 3) 



1 f 

— ^>>. Set cancel code 



Indicate stop SNA requested 
Post SNA work ECB z= 



=> 



Point to first SUCB : 



fy Check if it was last SUCB of chain. 



No Yes- 



=> 



Point to first LUCB of current SUCB 
Check if a matching LU name was found 

Yes No— ►Point to next SUCB 

{ © 

f$\ Check if the cancel code is still E 

No Yes » (to 



=> 



Set cancel code 

Indicate stop session requested 
Set select byte ^zzzz:^^^ 
Post SNA work ECB — — — — 



© 



Build error message izz= 
Indicate command is invalid 
Call MSG -^— — 



nq) Unlock the SNA unit control block 
^^ chain via the IPW$RLR macro ' 



SNCB 



'E' 


-SNTT 
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-SNSS 
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Extended Description 


Include Segment 


Call Subroutine 


Chart 


(T) 1R52I OPERAND 2 INVALID 
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(3) The IPW$RSR macro uses registers 0, 1,2, and 3 which are restricted in this segment. 








(4) 1R65I RJE, SNA NOT SUPPORTED 
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(5) 1 R65I RJE, SNA NOT ACTIVE 
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(s) 1 R93I NO SESSION ESTABLISHED FOR xxxxxxxx 

logical unit name specified in PSTOP command 
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LEVEL 3 



c> 



Analyze the second operand of the PSTOP command 
and set the cancel code accordingly. 



("MCheck if the first operand of the PSTOP command 
is a partition identifier. 
No Yes 



*> Check if the second operand is specified. 
Yes No ■ (5) 



Indicate command is invalid 
Build error message rz— = 
CallMSG — — — — 



, ® 

£> (2)Check if the second operand is specified. ^^^ 

Yes No » ® 



^> a. Check if EOJ is specified as second 
operand. 

No Yes » Indicate this in 
I cancel code ZZZZ 



.©a 



b. Check if restart is specified for the 
writer task. 

No Yes •■■■■^Indicate this in 
1 cancel code 



:£>.c. Check if an invalid second operandi- - 
is specified. 
No Yes«»— ^-Indicate command 

is invalid , = 



Build error message : 
Call MSG — — — 



(*> (5)Check if the command is still valid ^-- ~--- (5) 
^ Yes No 
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tcbpt t 

TCBTI 



TCB 



CANCOD 



TCB 



TCBJB - 
TCBSTATE 



TCMD 



set in IPW$DPA 
CANCOD 



C 



:£> (A) Check if PSTOP was issued for an RJE task. 
No Yes » © 



:^> a. Insert cancel code in termination 
type field : 



1 E ^ b. Check if an immediate stop is required. 



^ Yes No 

c. Check if cancel code is still E or the task-^ 
is at job boundary. 

No Yes— ■► Indicate immediate stop 
1 in termination type field 

d. Check if the task is in C, M, or L state. 

No Yes ———————— 

^> Post task dispatchable ; 




(5) Scan all TCBs with the same device address 
and for each one found do the following: 

a. Insert cancel code = 



z£> b. Check if immediate stop is required. 

Yes No —————— 



Insert immediate stop indicator if 
CANCOD=E ' 



Post task dispatchable if not in C, M, or L 
state z=z=z=zzzz=zzzzz=^=zzzz 



Indicate scanning must continue z= 

Call the TCBSCAN subroutine to scan 
the next TCB ■""■ — - 



^» PSTOP 
(end) 



PSTOP 
(end) 



^* PSTOP 
(end) 



^TCBSCAN 
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S TCBTT 



TCB 



o> 



TCB 



C> 



TCB 
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TCBTT 
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TCSWCONT 
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LEVEL 2 



Insert the cancel code 'C into the TCB of the 
status report in progress. 



Qj Initialize cancel code field and clear argument : 
fields for the TCBSCAN subroutine. 

£> (2) Check if the operand specified 
was STATUS or omitted. 
No Yes m A ssume command 

is valid - 



^> Set up argument 
field for the 
TCBSCAN subroutine: 



Check if the central operator 
issued the cancel command. 
No Yes «^^ Set up argu- 

Iment field for 
the TCBSCAN 
subrou tine 



C> (3) Check if the command is still valid. 

Yes No » Build error message. 

Call MSG — 



Call the TCBSCAN subroutine to find • 
the TCB belonging to the print queue 
status phase (IPW$$PS). 
(4) Check if the TCB was found. 

Yes No i n Build error message 

Call MSG — — 



Indicate command 
is invalid — 



Z> (&) Insert cancel code into the TCB: 



»*>MSG 



■^MAINLINE 

<8> 



► TCBSCAN 



^»MSG 



-^MAINLINE 



® 




Chart CP58 



=>[ 



CANCOD 



o[ 



SWCANCEL 



© 



¥ 



=>: 



ARGTI 



PBPS 



ARGIDBIN 



*>[ 



ARGIDDEC 



000 



MESSAREA 
i> | 1R52I | 



MESSAREA 



:£> | 1R51I 
SWCANCEL 



=0 



TCB 



=£> 



- -TCBTT 



MAINLINE , Chart CP2 



O 

cr. 

rt 
o 

co 



</>■ 

O 



o 
> 

o 

w 



►d 






Chart CP58 



o 

D 

6 

CO 
N 

< 
CO 

s 

< 

CO 

tr* 
o 

H- 
O 



PCANCEL (Part 2 of 2) 



Chart CP58* 



Extended Description 


Include Segment 


Call Subrouitne 


Chart 


Qm- ARGIDBIN is used to indicate that only the remote operator can cancel a remote report. 








ARGI DDEC is used to indicate that only the local operator can cancel a local report. 
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(|) 1 RS2f OPE RAND T NOT 'STATUS' 




MSG 
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1R5TI NO STATUS REPORT IN PROGRESS 




MSG 


CP75 






Chart CP58 



o 
h 

3 

& 

3 
H- 
N 
OJ 
ft 
H- 

2 



en 



OPERANDS 



OPt 



1 0P2 

CPB 



CPBID 



0P2 



OPSWTAR 
0P2 



I 



^TDI 



ToPLEtf 



OPSWALFM 



QPSWTAR * 
OP2 



QPLEN 



m^*® 



OPSWALFM [ [ l [| ~t 



II 



t OPLEN 



SWCANCEL 

I On or Off fc : 

OP2 



^© 



4 OPLEN 



Included by MAINLINE, Chart CP2 
▼ PRELEASE (Part t of 4} 



LEVEL 2 



Chart CP59 



=0 Store tne "ser-ID for use by the QSCAN2-C> ® 
routine (Step (5)). 

£> @ Check if the central operator issued the command 
No Yes —■^►Indicate this — 

£> [4j Check if the second operand is ALL. 

No Yes m» I ndicate command is val id ~ 

I> (5/ Check if the second operand is « ABC. 

No Yes » Indicate command is validZZ 



Scan the RDR, LST, or PUN queue for the queue sets 
specified by the second and third operands. 



(y Clear arguments for the QSCAN2 routine 
(Step® I 

Z> (?) Check if the first operand specifies a valid 
queue name and store the results — 
Yes No » Build error message ^> (A\ 

I Call MSG —————— 



MSG 



.► MAINLINE 



/pV^>" Store length of second 
^r operand for use by QSCAN2 



^^ (Step® ,: . 

\C/-^>- Store second operand - 



£> (&) Check if the second operand is 'jobname' 
or 'class* 
Yes No » Q 

ndi 



N\ 



Indicate command is valid : 



^> Check if the second operand is one character. 
No Yes 



i_.l 



(e)zzzC> Store class character 
lC> a. Store job name 
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QARGS 



- •QJOBNAME 




i> 



SWCANCEL 



^>L 



QARGS 



• -QBEGIN 



- *QIDBIN 



-.QIDDEC 



- -QABCLEN 



-QABCCONT 



--QCLASS 
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PRELEASE(Part2of4) 



£> b. Check if the third operand is a 
decimal number. 

^Indicate command 
is invalid. ZZZ= 



LEVEL 2 
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Build error message: 
Call MSG 



Z> Store job number 



<2) 



C> ^h Check if still another second operand is 
specified or already an invalid operand 
is found. 
No 



Yes. 



►Build error message : 
Call MSG — 



► MSG 



-»»MSG 



(5) QSCAN2 (the syntax of the operands is now valid). 
* Address the reader class table in the 
£> disk management block in the 

POWER/VS permanent area ' 



O ^) Check if the list queue is to be scanned. 

No Yes m Point to LST class table: 



(id) Check if the punch queue is to be scanned. 
No Yes r Point to PUN class table 'Z 



©rI 



serve a buffer for the queue record 
via the IPW$RSW macro ■ 



(l2) Save pointers to the real and virtual : 
buffer addresses. 

(ij) Assume there is nothing to release n 



(14) Process each entry in the appropriate 
class table: 



^> a. Check if a class chain exists for 
this class. 

Yes No » (H) 



b. Reserve the disk management block 
(DMB) via the IPW$RSR macro — 

£> c. Call the RELTOABS subroutine to. 
convert the relative disk address to 
an absolute disk address. 



►MAINLINE 

(Si 



IPW$RSW 



-^ IPW$RSR 



^RELTOABS 



3WCANCEL . 
.MESSAREA 



=T^ I 1R52I [ 
.QARGS 



=> 



- -OJOBNO 



MESSAREA 



:£> 1R52I 



z£> CLASSPTR t 
RO R1 R2 R3 



TCB 



=> 



TCBQAV 



SWRDWR 



=> 
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TCBQV 

/qrecord 



QRECN 
QARGS 



QJOBNAME 



QRECORD 



QRECNO 



PRELEASE(Part3of4) 



d. Take the following steps for each queue 
set found in this class chain. 

1. Insert the absolute disk address zz^z: 
in the disk request word 



LEVEL 2 
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2. Point register 1 to the disk <^= 
request word 

3. Read the record of the 
queue set belonging to this 
class into the reserved buffer 
via the IPW$RDQ macro — 



=t> 4.. Point to the next queue set in this 
class chain - 



5. Call the SCANQREC- 



subroutine to determine if the — 
queue set read must be released 



6. Check if the queue set is to be <^Z 
released 



Yes No- 



»@ d.9. 



: > 7. Check if a job name was specified. 



No Yes 

£> Insert job number for following 
selection = 



8. RELJOB 



Change HOLD to DISPATCHABLE. 
Change LEAVE to KEEP. 



9. Check if there is another queue <lz 
set record in this class chain and 
the task is not canceled. 

No Yes a @ d. 

e. Release the disk management block via 
the IPW$RLR macro 



f. Check if there are more entries to be 
protean J in the class list and the task 
is not canceled. 

» © d. 



Yes. 



»IPW$RDQ 



-SCANQREC 



IPW$RLR 



TCB 



- -TCBQW 
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PRELEASE(Part4of4) 



(l5) Release the queue control block via the 
IPW$RLR macro . 



y^* Qo) Release the buffer used to read in queue 
records via the IPW$RLW macro . .j.j. 



C^* QJ) Check if there was anything to release. 
Yes No ^ Build message z== 



Call MSG ■ 



^> Check if a message has to be sent 
10 the remote operator. 



No 



Ye$« 



• Build message 
Call MSG — 
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-► IPW$RLW 
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Extended Description 


Include Segment 


Call Subroutine 


Chart 


(3) 1R52I OPERAND 1 NO VALID QUEUE 




MSG 


CP7& 


(&)b. 1R52I OPERAND a NOT DECIMAL 




MSG 


CP75 


(7) 1R52I OPERAND 2 INVALID 




MSG 


CP75 


©b. 

d. 
d. 8 


RE L JOB 


RELTOABS 
SCANQREC 


mm 

CP85 
CP6D 


@ 1R88I NOTHING TO RELEASE 
tR88l CP READY 




MSG 
MSG 


CP7S 
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QREDORD 



QRECXS 





QRECORD 






QRECDP 








QRECDP 









QRECORD 



QRECDP 
QABCLEN 
QJOBNAME 



RELJOB 



LEVEL 3 
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If the disposition of the queue set found is HOLD, 

change it to DISPATCHABLE. 

If the disposition of the queue set is LEAVE and 

the operand is JOBNAME (JOBN UMBER) or (*ABC), 

change it to KEEP. 

These changes are only made when the queue set 

is not being processed. 



£^fl) Check if a job is being processed 
NO YES — — 

>(¥) Check if the disposition is HOLD 
YES "" 



\3J Su press the message 

NOTHING TO RELEASE : 







* PRELEASE 

© 



Qlj Insert * as the disposition _ 

(5) Remove the queue set 

from chain via the IPW$DQS 

Csj Change the disposition 
to DISPATCHABLE - 



(7) Add the queue set again 

as a member of the same class 
chain via IPWJ5AQS macro — - 

= (8) Check if the disposition is LEAVE 



YES NO . 



(9) Check if the operand is *ABC 
^^ or JOBNAME 



YES NO 



? MO) Suppress the message 

W NOTHING TO RELEASE 

Ml) Insert * as disposition = 



IPW$AQS 



PRELEASE 

© 



»- PRELEASE 
(14) 



Qi) Remove the queue set from 

chain via the IPWSDQS macro " ^ |PW$DQS 

@ Change the disposition to KEEP 

(14) Add the queue set as a member 

nf tho camo ohain t/ia ^ IPW&AQS 

IPW$AQS macro 
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TCBPT 



TCB 



TCBJB 



SWCANCEL 



1 On or Off ^ 



TCB 



TCBPT f 




SWCANCEL 



On or Off 



SWCANCEL 



On or Off 
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LEVEL 2 
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If the second operand is a valid signed or unsigned 
decimal term, or not specified, insert the second 
operand in the task control block at label TCRS. 



(T) Clear argument fields for the TCBSCAN 
subroutine. 

Z>*(2) Check if the command was issued by the 
central operator. 

RESTOCL 



No Yes. 



RESTREMT 



Find the TCB of the 
task to be restarted 
by the central operator. 



Find the TCB of the writer task to be 
restarted by a remote operator. 



^^(SjCheck if the command is valid and the 
task is at job boundary. 

No Yes » Indicate this : 



Build message- 



Call MSG 



>0 



4 ) Check if the command is valid and a 

PSETUP or PRESTART command was issued. 
No Yes wh4^> Indicate command ZZZ 

I is invalid 

Build message 
Call MSG 



•MSG 
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1 



MESSAREA 
I 1R57I 



SWCANCEL 



^vO Check if the command is valid-^-- 

Yes No — — — — — 



•@ 



Process the second operand 

{6J Assume the command is invalid- 
(second operand) 
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^1 



OPERAND 
OP1 



OPDECn 



OP2 



OPSWDEC 



OPSWMIN- 
OPSWPLUS 
OPSWSTAR^ 



OP2 



OP2 



OPSWDEC 
OPSWSTAR 



^: 



n 



PRESTART(Part2of4) 

\7j Check if the second operand was 
i-r^ decimal and too large. 



No Yes « 



-Indicate this ' 



Set operand to 
maximum :zzz 



C> \8J Check if the second operand was omitted. 

No Yes «»#- Indicate command is valid : 



o© 



Insert default value : 



9) Check if the second operand was a valid 
decimal number. 



No Yes . 



» Indicate command is 
valid zzzzzzzzzzz: 



1 Insert operand in the 

appropriate TCB fields. 
(To)Check if the second operand is valid ^- — 
Yes No 



-^ Build message 1 

1 Call MSG 

Ml) Check if the decimal number specified 
was too large 
No 
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OPDEC- 9999 | | 



=>[ 



SWCANCEL 



TCB 



5T 

ified^ :_ >^ 



Yes 



Build message - 
Call MSG — 
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MESS ARE A 
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MESSAREA 



MSG 
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i!/02) Check if command is still valid. 
Yes No IHHHl^H 

t 

Process the third operand. 

u3) Assume the command is invalid 
(third operand). 



v^Qi) Check if third operand was omitted. 
No Yes 

H^> Indicate command is valid. 



fe- Mainlin 





v^Cjv Check if the third operand is a valid decimal 
number and if the device is a 3800 Printer. 



Yes 



Indicate command is valid. 

Insert operand in appropriate TCB 
extension field. 

Adjust remaining copy count. 



> 



See 
next page 
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•- t TCB extension 



TCB extension 






Current copy 

group index 



Extended Description 


Include Segment 


Call Subroutine 
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SWCANCEL 



ON or OFF 



TCB 



-\^\2) Check if the third operand is valid. 
Yes No: 




Build message. 
Call MSG 



Reset restart information 
in TCB. C 



:> 



-TCBCCC 



MESSAREA 



MSG 



£> 1R52I 
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TCBRSNUM 
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Extended Description 


Include Segment 


Call Subroutine 


Chart 
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RESTLOCL 
RESTREMT 




CP62 
CP63 


(5) 1R57I COMMAND IGNORED, TASK IS AT JOB BOUNDARY 




MSG 


CP75 


(4) 1R82I 'PSETUP' OR 'PRESTART' IN PROGRESS 




MSG 


CP75 


@ The output field TCBRSNUM contains the number of pages or cards. 








The output field TCBRSTYP contains: 

bit 4 : no sign 
8 : plus sign 
12 : minus sign 








@ 1R52I OPERAND 2 NEITHER DECIMAL NOR OMITTED 




MSG 


CP75 


(ll) 1R67I OPERAND 2 REDUCED TO 9999 




MSG 
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OPERAND 



^ 



\\\\ -H)PLEN 



OPSWHEX 



Included by PRESTART, Chart CP61 
$ RESTLOCL (Part 1 of 2) 



LEVEL 3 



Find the task control block of the writer task 
to be restarted by the central operator. 



s *^ > fi) Check if a device address for the writer task 
was specified. 
Yes No n Build message 



Call MSG 



@\ Set up arguments for the TCBSCAN subroutine 



(3) Call the TCBSC AN subroutine - 
to find the TCB associated with 
the writer task = 



(4) Check if a TCB was found <J=I 
Yes No m Build message : 



Call MSG 



(b) Check if a writer task was specified. 
Yes No » Build message = 



1 Call MSG - 

Indicate command is valid Z. 




-MSG 

'PRESTART 
(3) 



TCBSCAN 



-►MSG 



MSG 
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Extended Dttcription 




Call Subroutine 


Chart 


1R70I NO DEVICE ADDRESS SPECIFIED 




MSG 
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<D 




TCBSCAN 


CP82 


1R51I OPERANDI DESIGNATES NON-EXISTING TASK 




MSG 
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1R66I NO WRITER TASK SPECIFIED 




MSG 
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V RESTREMT 



LEVEL 3 



£> (T) Check if a writer task is specified. 

Yes No » Build error message I 



Find the task control block of the writer task 
to be restarted by a remote operator. 



Call MSG • 



:£> I nsert user-l D in argument field for the 
TCBSCAN subroutine :====== 



Z> v^) Check if PRT is specified as the first operand. 
No Yes ■ ■ m Change PRT to LST 



(?)Call the TCBSCAN subroutine to scan the 
TCB list for a writer TCB with the same 
user-ID ^zzzzzzzzzzzizzzzzzzzzizzz: 



MHCheck if a match is found << ^ ~ 

Yes No * Build error message: 

I Call MSG — — 



Indicate the first operand is valid: 



►MSG 
-PRESTART 



-► TCBSCAN 



-► MSG 
^RESTART (D 



Ch?rt CP63 



MESSAREA 
=0 | 1 R66I 



ARGIDBIN 



^> 



OP1 



=> 



LST 



=^>TCBPTt 



TQS_ 
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MESSAREA 
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=> 



PRESTART (?) , Chart CP61 



O 

h 
n- 

o 

o> 



H 

O 



■5d 
W 
en 



B! 



H 

U3 
H 
OJ 
3 

O 

h 

0> 

H- 
N 

ft 
H- 

3 



Extended Description 



Include Segment Call Subroutine 



Chart 



(7) 1RQ6I NO WRITER TASK SPECIFIED 

© 

(4) 1R51I OPERAND 1 DESIGNATES NON-EXISTING TASK 



MSG 

TCBSCAN 

MSG 
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CP82 
CP75 
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CARMf 



OPERANDS 



■^ 



OPLEN2 



OPERANDS 



OPDEC 



OP1 



OPSWDEC 



CATMf 
NRRE 





CASOt 
RMCB 






RMER - 




RMHR - 
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LEVEL 2 
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Check the validity of the first operand (to-IO). 
Plug in thefrom-ID. 

Call the MSG subroutine to display the message 
on SYSLOG or to transfer it to the virtual 
message queue. Note that the surrounding 
quotes have already been stripped off and 
the double quotes have! been reduced to 
single ones by the subroutine SCANOPND. 



C>© Check if RJE is supported. 

Yes No —•►Build message 



Call MSG 



Set message length to zero. 

^> (5) Check if the message length is zero -^ 
r No 



Yes 



Build message 
Call MSG 



(5) Check if the first operand is ALLUSERS. 
No Yes iMndicate this == 

-^* 

Z>\4j Check if the to-terrninal ID is valid. 

Yes No ► Build message = 

1 Call MSG 

(5) Indicate command is valid. : 



=*=£>(§) Call the BINTODEC subroutine to convert 
from-terminal ID to printable decimal form • 
Insert from-term in al ID =zz=z= 
(7) Insert text of message i=zz^~zzziziz: 



\Sj Insert to- terminal ID 
(5) Call MSG 



Qg) Restore from-terminal ID 



MSG 



■► MSG 
•MAINLINE® 



MSG 
MAINLINE 

CD 



BINTODEC 




MSG 



MESSAREA 
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MESSAREA 
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OPDEG 



C> (l])Check if ALLUSER message could be stored 
or a remote user is signed on. 

No Yes ____________ 



♦ 



^> Check if the ALLUSER message queue 
is full. 



Yes No — 
Build message! 



-Build message ; 



(l2) Call MSG " 



Indicate command 
is val id — 



* MAINLINE (9) 
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MESSAREA 
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Extended Description 


Include Segment 


Call Subroutine 


Chart 


(T) 1R65I RJE-BSC NOT SUPPORTED 




MSG 
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(2) 1R52I OPERAND 1 OR 2 INVALID 




MSG 


CP75 


(4J The to-terminal ID is valid when a decimal number within the range or when ALLUSERS is specified. 








1R52I OPERAND 1 INVALID DESTINATION 




MSG 


CP75 
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BINTODEC 


CP83 
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MSG 
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nl) This is determined by the IPW$WTM macro that was issued in the MSG subroutine. 








1R93I REMOTE xxx CURRENTLY NOT SIGNED ON 
remote- ID 














1R92I ALLUSER MESSAGE QUEUE IS FULL 




MSG 
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OPSWHEX 
| On or OfT 



-OPLEN 



SWCANCEL 
I On or Off 



TCB 



TCBSF- 



SWCANCEL 
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LEVEL 2 
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Locate the TCB of the list: writer task and make sure 
it is waiting for operator response. Provide the 
TCBRS field of the list writer task with the number 
of pages to be printed. 

Note that '• . . SETUP' FIJE commands are not 
supposed to be processed by this program. 



(T) Clear fields for the TCBSCAN subroutine. 

O (2) Set up argument fields for the 
TCBSCAN subroutine. - 



C> (3) Check if a valid hexadecimal address 
was specified. 
Yes No e» Build error message : 

I Call MSG — — — 



Insert address in argument field - 

Call the TCBSCAN subroutine to scan the 
TCB list for the specified writer task. __ 
Found Not found 

Build message Z=ZZZZZ=ZZI 
Call MSG — — 



Indicate task exists. 



-© 



^ 



:£> (4) Check if a task was; found and waiting for 
operator response. 
Yes No m Build error message! 

Call MSG 



►MSG (A) 



yy 



7 



-TCBSCAN 



-MSG 



® 



Indicate command 
is invalid. ZZZ^ZZ 



Z> (5) Check if the status is still valid. -^- 
Yes No 




MSG 



►MAINLINE 
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^ARGIDBIN 
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OPERAND 



ORIGINAL 



OPDEC 



U 



■QPSWITCH 



OPERAND 



ORIGINAL 

rn 



OPSWITCH. 



-OPLEN 



M5) Assume the second operand 
is invalid 



C> (7) Check if the second operand is a decimal 
number greater than 99. 
No Yes 



Indicate this by setting switch : 



Reset operand to 99 



C> (s) Check if the operand was omitted. 

No Yes » Indicate command 

I is valid — - 

O Q)) Check if the operand is a valid 
decimal number. 

No Yes » Indicate command 

is valid IZZZZZZZ. 



SWCANCEL 
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1 



SW99 
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PSETUP (Part 3! of 3) 



LEVEL 2 



Chart CP65 



S WCANCEL 

On or Off \z 



OPDEC 



I contains 99 or less 



SW99 



On or Off 



Z> ©Check if the command is valid «♦ - ' ^ - - Qg) 

Yes No*" » 6ui Id error message — 



Call MSG 



a. Indicate SETUP was issued in TCB of task : 
l£> b. Insert number of pages in TCB - 



c Check if the number is equal to zero. 
No Yes ^Insert default 1 . 



QjjPost task dispatchable 



Z> (12) Check if the decimal number specified was - 
greater than 99. 
No Yes — » Build message ~ZZ 

I Call MSG — — 
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♦ MSG 



^MAINLINE © 
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-@ 



MSG 



MESSAREA 



TCB 



c> 
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X'10' 



- TCBRSTYP 
-TCBRSNUM 

-TCBSF 



MESSAREA 
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Extended Description 


Include Segment 


Call Subroutine 


Chart 


(3) 1R74I NO PRINTER ADDRESS SPECIFIED 




MSG 
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1R661 xxx LIST WRITER TASK DOES NOT EXIST 
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MSG 
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1R77I TASK NOT WAITING FOR OPERATOR 




MSG 
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© 1R76I NUMBER OF PAGES NOT DECIMAL 
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<J2) 1R67I NUMBER OF PAGES REDUCED TO 99 
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LEVEL 2 



I 



OPERANDS 



I OP1 



"I 
I 
I 
I 



r— I 



0P2 



t 



OPLEN 2 



SWCANCEL 

| On or Off b 



OPERAND 



ORIGINAL 

33 



CPB 



OPLEN 



CPBID 
I 1 



OPERAND 



OPSWHEX 
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PFLUSH (Parti of 4) 



Provide the task control block specified by the 
first operand with cancel code F for flush or H 
for flush without deleting the current queue 
entry. 



(Y) Initialize the cancel code field and : 
assume the command is valid 



^> 



Check if a second operand was specified. 



^ 



No Yes « 



Check if the second operand 

is HOLD. 

No Yes — ► Indicate this in 

J termination^! 

type code 
Indicate command is invalid 3 
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Build message I 
Call MSG — 



C> (^ Check if the command is valid.- 

Yes No — — — 



(4) Assume the first operand is invalid and clear '. 
argument fields for the TCBSCAN subroutine. 

■£> CD Check if the central operator specified the 
PFLUSH command for a valid partition. 
No Yes i . m Indicate command 

is valid ~ 
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Set up arguments for 
the TCBSCAN subroutine 

to find TCB of the 

partition to be flushed 

"^ > QO Check if the central operator specified a 
PFLUSH command with a device address. 
No Yes » Indicate command is valid! 

Set up arguments for the 
TCBSCAN subroutine to 
find the TCB of the writer 
task to be flushed. ^=1 
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OPERAND 
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£> (7) Check if the terminal operator specified a 
writer task (LST or PUN). 



LEVEL 2 
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No Yes »■» I ndicate command is val id : 

Set up arguments for the 
TCBSCAN subroutine to 
to find TCB of this task — 



Check if the command is still valid- 



Yes No ( 
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► Check if the central operator 
issued the command. 



Yes 



►Build message 



Build message : 
Call MSG — 



Check if execution task is to be 
flushed. 



Yes No « 



> Call the TCBSCAN — 
subroutine to scan the 
TCB string for the TCB 
associated with the 
reader or writer task to 
be flushed n 



Call the TCBSCAN subroutine to find - 
the execution reader task to be flushed ; 
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(Check if a TCB was found < C - 

Yes No »»Build error message: 

Call MSG — — 

Indicate command 
is invalid 
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Check if the TCB found belongs to a 
writer only partition. 



No Yes< 



» Bui Id error message' 
Call MSG — — 



Check if the task found is at job 
boundary. 

No Yes —^^ Build error message! 

I Call MSG — — 



Insert the termination type code- 



Check if an execution reader task is 
to be flushed. 

Yes No 

Point to the attention routine PIB — 



Scan the PIB table untill the PIB of<^z 
the corresponding partition is found T 



Check if the partition was stopped <^^ 

Yes No — ^»fc- Activate the execution 
reader task . — 



LEVEL 2 



O 



Chart €P86 



MSG 



- MAINLINE 



-► MSG 



■►MAINL INE @ TCBPTt 



'MAINLINE 

© 



MESSAREA 



MESSAREA 
C> 1 1R57I | 



TCB 



"TCBTT 



C> PIBPOItlTf 




C> PIBPOINTf 



TCBPT 



TCB 



TCBEBAC1 



Return to MAINLINE ®, Chart CP2 



as 



Chart CP66 



PFLUSH(IPtrt4of4) 



Chart CP66 



-4 
O 



8 

CO 
N 

< 
CO 

O 

w 



< 

CO 

o 

H- 
O 



Extended Description 


Include Segment 


Call Subroutine 
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@ 1R51I OPERAND 1 DESIGNATES NON-EXISTING TASK 




MSG 


CP75 
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Post the specified task control block dispatchable if it 
is waiting for a deferred operator response. 
Note that '• . . GO' RJE commands are not supposed 
to be processed by this program. 



C> (T) Check if a valid partition identifier was 
specified by the operator. 



No Yes 



<3> 



it up argument to find 
TCB with the same 
partition identifier ==: 

locate the address 

of the second operand- — 



£> (2) Check if the device address was specified by 
the operator. 

No Yes m Assume command is valid 

Set up argument to find 
TCB with the same 
device address — 



£>> (5) Check if the operand specified was valid. 
Yes No 



Check if the first operand is 
under investigation. 

No Yes i» Build message! 



Build message! 
Call MSG — 
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(4) Call the TCBSCAN subroutine to find - 
the TCB associated with the task to be 
stopped = - 
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(5) Check if a TCB was f ound.^r 11 
Yes No m Bu i Id message! 

Call MSG—- 



Turn on cancel switch" 



C> (5) Check if the task was waiting for the operator < 

No Yes m Post task dispatchable ZZ. 



Indicate command is invalid 



► TCBSCAN 
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OTCBPTt 



MSG 



-MAINLINE (9) 



Build message - 
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(5) 1R52I OPERAND 1 MISSING OR INVALID 
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LEVEL 2 



Display the status information for RJE lines. 
The status of a line may be: 

1. Not supported because no line table entry 
exists. 

2. Not initiated because no line control block 
exists. 

3. Inactive where a line control block exists 
but nobody is signed on. 

4. Processing RJE-ID because somebody is 
signed on. 
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Check if RJE is supported. 



Yes 



No 



i>© 



. ._ _ Build error message ^z 
J Call MSG — — 

Check for RJE/BSC 

Yes No — - — — — — 

Point to the first line table entry ZZZZZZ 

Check if the first operand is ALL. 

No Yes ♦* Indicate operand is valid 
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Process all line table entries 
by calling the SCAN LCBS— 
subroutine for each entry. 



-MSG 



►SCAN LCBS 
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Check if a correct line address was specified. 

No Yes ♦► Indicate operand is valid z 

Check if a line table entry 
corresponding to this line 
address is found. 



No 



Yes 



Call SCAN LCBS' 
to process the 
entry. 
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Build message 
Call MSG — 
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LEVEL 2 




=> Check for RJE/SNA. 

Yes No — ^Build error message 



♦ 



Call MSG 



£>M) Check if RJE/SNA is supported. 

Yes No — — — 



{5J Lock the SNA unit control block 
chain via the IPW$RSR macro « 

>(j6u Check if the first operand is ALL. 

Yes No i 



♦ 



£> Point to the first SNA unit control block 



(?) Check if any logical unit is active •<£ 

Yes No —*► Build error message — 

I Call MSG — — • 
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1R83I 



► IPW$RSR 



=0 Point to first LUCB. Scan LUCB for active LU 
Build message for 

a) LU processing zz=zzz 



b) LU loggged on 

At end of LUCB chain set 
=£> pointer to next SUCB — 




and its LUCB chain 



I / ~ Check if a line address was specified. 
^ 09 No Yes 



t 

=C>Check if RJE/BSC is supported. 

No Yes ( messa 9 e si ready issued 1^*^ 



Build error message 
Call MSG — — 
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(9J Check if a logical unit name was specified. 



Yes 



I 



No« 



► Build error message 
CallMSG — — 
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(10) Point to the first SNA unit control block 

Take the first SUCB of the SUCB chain- 

(w) Check if it was last SUCB of chain 

No Yes m 



MSG 



03} 



Point to the first Logical Unit control block 
Scan the LUCB chain of the current 
SUCB for a matching LU name 
u2) Check if a matching LU name was found 



Yes No- 



- Point to the next SUCB 
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Check if LU is processing 



No Yes- 



• Build message (processing) 
Call MSG -____ 



T ^{14) 

Check if logged on 

Yes No m iP'"!* 4 Message (Not logged on) 



MSG 



Call MSG ■ 
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Build Message (Logged on): 
Call MSG .■ ■ 



MSG 
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Q3) No corresponding LUNAME found 
Build message - 

Call MSG __■____ 



► MSG 



(l4) Unlock the SNA unit control 

block chain via the IPWSRLR macro 
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Extended Description 


Include Segment 


Call Subroutine- 
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1R95I LINE xxx 4 NOT SUPPORTED 

t 

RJE line address 
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1R83I OPERAND NEITHER 'ALL' NOR LINE ADDRESS 




MSG 
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(5) The IPW$RSR macro uses registers 0, 1, 2, and 3 which are restricted in this segment. 








(jM 1R56I NO LOGICAL UNIT LOGGED ON 
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1 R56I xxxxxxxx PROCESSING xxx 

logical unit name remote ID 
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1 R56I xxxxxxxxLOGGED ON 
logical unit name 
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(s) 1R52I INVALID OPERAND 




MSG 
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(9) 1R52I INVALID OPERAND 




MSG 
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O2) 1R56I xxxxxxxx PROCESSING xxx 








♦ ♦ 

logical unit name remote I D 
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1 R56I xxxxxxxx NOT LOGGED ON 
logical unit name 
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Called by PINQUIRE, Chart CP68 LEVEL 2 

^ SCANLCBS (Subroutine included in PINQUJ RE) 



Provide status information for the line table 
entry being processed. 



Qj Convert line address from binary 
to printable hexadecimal z== 



@ Scan LCBs to find requested LCB 
containing the device address. 

=C> (5) Check if an LCB was found. 

Yes No— ► Build message line 
I not initiated — 

=0 (i) Check if the terminal is active. 

Yes No ^ Build message indicating 
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terminal is inactive- 



Build message indicating who logged on 
© Call MSG 
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1R56I xxx NOT INITIATED ^ 

1 ^^ ^ 

RJE line address ^ ^ 

1R56I xxx INACTIVE -^ ^^^ 

RJE line address ""* ^ ^ ^ ^. 
1R56I xxx PROCESSING yyy -^ _ "" ^ - ^ ^ ^ „ 

RJE line address remote-ID "*" ~- — ^ ___ 
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SCANOPND (Part 1 of 2) 



Collect the operands and insert them into the array 
OPERANDS. If the second operand is the second 
operand of a PBROCST command, include segment 
SCANMSa 



(T) Clear receiving field " 
:£> Initialize input and output pointers 



Initialize variable which controls the scan loop iJz£>(a) 



C> (2) Check if the command entered exists, 

Yes No . 



I 



(5) Scan the operands until the maximum number 

allowed is reached, or the delimiter is blank, 
^.^ and save number of entered operands 
(4) Check if the operand is the second operand 
of the PB R DCST command, or if it is the 
fourth operand of the PSTART command. 



£> 



No 



Yes* 



SCANMSG 



SCANOTH 



Strip enclosing quotes 
from messages and 
reduce double quotes 
to single quotes. 



Convert operand. 



O (5) Check if more operands were specified than 
allowed. 
No Yes m Build message- 

I Call MSG — — 



C>C£y Check if the delimiter is blank 

Yes No m Build message - 



SetSWCANCEL- 
Call MSG 
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£> FROMPTR f 



* MAINLINE 
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-►MSG 
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Extendet 


i Description 


Include Subroutine 


Call Subroutine 


Chart 


o 


Register 14 is saved as return register. 

Input field CBPOP in CPB is built by either the IPW$ICP macro or the attention interface. 

DELIM is a field to control the scan loop. When it contains a comma the scan continues. When 
it is blank the scan stops. 
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The index number of the command entered is compared with the dimension of the array 
COMMANDS. 
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The CPOP field is scanned as long as a comma delimits each operand and the 

maximum number of operands is not reached. 

Registers 1 and 2 are used in translate and test instructions. 

The TOPTR is updated to point to the location where to store the next operand. 
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IFROMPTR 



-MSGIN- 
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W SCANMSG (Part 1 of 2) 



LEVEL 3 
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Move broadcast message to fixed form operand. 
Strip off the enclosing quotes and reduce double 
quotes to single one. 



:£>-MjCheck if the first character is a quote. 
Yes No m Build error message^ 



Indicate message does 
not start with quote zz 



Call message ■ 



(^Generate TRT table to find additional quotes : 

(yPoint to character before the starting quote zr 
and make this a quote to force entering - 
the scan loop. 

MJ Repeat the following steps as often as a 
double quote is found. If no double quotes 
are found » nT) 
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-^MSG 

♦ SCANOPND (Y)b. 



TRTTAB 



=c> 



a. Point past pair of quotes . 

b. Add 1 to message length : 



:£>»c. Find next quote in character : 
string (if any). 



d. Check if a quote was found < ^ 

Yes No m force diagnostic by 

(setting too long MSG 
length ===== 

e. Check if the message length is greater <Cj 
than the maximum allowed length. 

No Yes » Build error message - 

Call MSG 



Reset message length 
to1. 



MSG 
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MSGIN 



| xxxxx'X' \ z 



R1 



=£> Point register 1 to 
the first character 
past the double 
quotes. : 



Check if a PSTART command 

No Yes ^ Set filename field 
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to blanks - 



:£> g. Move the part of the message just 
scanned including the quote 



h. Add number of characters just moved 
to the message length. 



=C> i- Point to the next quote 

k - m (4j To repeat the above 



sequence in case- 
double quotes 
appear again in 
this position in 
the character 
string. 



(bj Replace the ending quote by a blank 
and adapt the message length =z=z 
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Extended Description 



Include Segment Call Subroutine 
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(7) 1 R81 1 MESSAGE DOES NOT START WITH QUOTE 
(4)e. 1R81I MESSAGE TOO LONG OR NO CLOSING QUOTE 
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Collect the first operand and insert it into the array 
OPERANDS. Set the input pointer FROMPTR one 
byte past the delimiter for the next iteration. 



^C> Qy Check if a comma or blank delimiter of the * 
operand being scanned can be found. 
Yes No — ^a. Simulate operand 
I length too long. 



b. Simulate blank 
delimiter found. 

2) Save delimiter and its address and <J: 
calculate the length of the operand ^— ~ 



® 



: C> (3) Check if the operand just scanned is <^p 
too long. 
No Yes •■■■■►Reset length to zero : 



:£> (4) Check if the operand length is zero < ^ (4) 

- ■ ©^ 



No Yes « 



^® 



: C^ > (5) Check if first character is a +, — , or * sign. 

No Yes •■■■*»> Turn on appropriate 

switches ' 



Skip first character : 



Subtract 1 from OPLEN : 

(6) Check if operand length is zero ^ 

Yes No > SCANOTH2 V== 



Further checking 



(?) Point to the first character of the next operand, 
if present. 



Chart CP72 



R1 



C^ I address of delimit 



£>C 



R2 



Wank or comma 



DELIM 




=£> FROMPTR t 
OPERANDS 



1 OPLEN 



=£> FROMPTR f 
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Extended Description 
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Call Subroutine 


Chart 


Mj OTHIN in input is part of the operands field in which the operand being scanned resides. 
OTHIN is always addressed by the FROMPTR. 
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OPERANDS 




OPLEN 



OTHIN 



part of original 
operand in CPB 



TRTTAB 



OPERANDS 



KEYOP- - 



OPERANDS 



OPSWKEY 
CPB 



J 



? 



OPLEN 



OTHIN 



KEYW=OPERt 
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SCAN0TH2 (Part 1 of 3) 



If the operand is surrounded by X' ', strip them off. 
If the operand is a keyword operand, format it. 
If the operand is convertible, convert it to binary form. 
Check the validity of alphameric strings. 



£> MJCheck if the operand is hexadecimal. 
No Yes » a. Strip off X'....' 

b. Subtract 3 from OPLEN 

c. Turn on z^nzzzzzzz 



d. Insert stripped operand: 



-© 



£> (?) Check if a keyword operand was specif ied,f or PALTER 
No Yes «#- F : ormat the keyword operand 



a. Turn on OPSWKEY = 

b. Determine the keyword 
length and the operand 
length to the right of the 



= sign ,: 

Check if the keyword length 
is valid. 
No Yes 

I Insert keyword 
in operand - ~ 



:£>■ d. Check if the parameter length 
is valid. 



Yes No- 



•Truncate length 
to KEYOP field 
length 



C> ©NO KEYW 

Check if the operand length is greater than zero. 



No Yes- 



^ 



Check if it is a keyword operand.: 
No Yes 



== £>» Insert operand part of 

keyword into ORIGINAL 

I field. 
z£> Insert complete operand 

into ORIGINAL field " 



Continued on next page 
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OPSWX 



=0 
=0 



1 



opsd) 



ORIGINAL 



OPSWKEY 



=£> 



1 



OPERANDS 



=0 



OPLEN 



OPERANDS 



5 /~\t^ 



=0 



©' 



KEYWORD 



OPERANDS 



c> 



=£> 



S 



OPLEN 



OPERANDS 



=> 



--KEYOP 



Chart CP73 



O 

B" 

H 
ft 

O 

^1 

U) 



►d 
O 



CO 

o 
o 

K 
to 



<+ 
en 






V 



o 



LEVEL 4 



Chart CP73 



H 

a 

3 

O 
H 

H- 
N 

ft 
H- 
O 



OPERAND 



TRTTAB 



0,1. 



ORIGINAL 



® 3- 



30PLEN 



OPSWX 



OPERAND 



ORIGINAL 



cj 



^ 



® 



OPLEN 



TRTTAB 



OPERANDS 



OPSWX 




TRTTAB 



SCANOTH2(Part2of3) 



>(4) Check if the operand specified could be 
decimal. 
Yes No . 

Check if valid decimal characters 
were specified. 

No Yes m Covert value to 
binary • 



b>© 



Check if converted 
value is maller^r ^ — — 
than 32768 
No Yes 

a. Turn on 
OPSDWDEC: 

b. Insert 
converted 
operand 



c> 




® 



NOTDEC 

Check if the stripped operand specified could 
be hexadecimal. 

No Yes m^ Check if valid hexadecimal 

characters were specified. 
No Yes —^Convert values 
to binary and 
store : 

Turn on 
OPSWHEX- 

)NOTHEX 

Check if the operand specified could be 
alphameric. 
No Yes 



^. 



-Check if a valid alphameric 
string was spec if ed. 

No Yes m Turn on 

I OPSWALFM= 



ENDSCAN2 



:> 



CONV2 



OPERAND 



=o 



1} 



OPDEC 



ft 



OPSWDEC 



OPERANDS 




OPSWHEX 



OPERANDS 



^ 






OPSWALFM 
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Extended Description 



Include Segment Call Subroutine Chart 



M) If the operand is surrounded by X'....' and therefore hexadecimal, the operand length 
(OPLEN) is 5 or 6 bytes. 

c. OPSWX is turned on to indicate that no conversion to decimal is necessary. 

\2j A translate and test (TRT) table for locating an equal sign (=) is generated!. Using a TRT 
instruction, the operand is then scanned for an equal sign. If an equal sign is found, the 
operand is split into the keyword part and the operand part and inserted into a fixed 
formatted array. If the operand part specified is longer than 8 bytes, only the first 
8 bytes are stored. 

\4j Asunder \2j, for detecting a hexadecimal, decimal, or alphameric string, an 

appropriate TRT table is generated and a TRT instruction is executed. Registers 1 and 2 
are therefore restricted. 
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From calling segment 

NOTFOUNO 



4 



LEVEL 2 



Chart CP74 



Diagnose invalid POWER/VS command 



(y Build error message: 
@ Call MSG 



MSG 



U 




Return to calling segment 



Extended Description 



Include Segment 
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1R98I INVALID POWER/VS COMMAND CODE 




MSG 
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From calling segment 



LEVEL 2 
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MESSAREA 



m 



SWAUTOST 

[ On or Off | z 



CPB 



^ 



^ CPBID 



"COMOP 



SWREPLY 

| On or OfT~ \ £ >© 



1 



MSG (Part 1 of 2) 



Plug in the command code if an error message is 
to be handled (that is when the first column in 
MESSAREA is blank). Issue the message via an 
IPW$WTO or IPW$WTM macro, or if a reply is 
requested by the caller, via an IPW$WTR macro. 



C> (J) Check if an error message is to be handled. 
No Yes«—^- Insert message number 



Insert blank: 



Insert text of message 
Insert command code£>(^ 
Insert message in output area zz=z=: 
Insert blanks in remaining part — 



(2^ Calculate the number of characters to be 
printed for the IPW$WTO macro and 
point to the first byte before the output 
area — 



C> (3) Check if autostart processing is in 
progress. 
No Yes ■ 



c> 



Check if the central operator is involved. 
No Yes 



Check if a reply is required. 
Yes No«^*lssue the message 

J via the IPW$WT0 

macro «^— ^ 



Turn off SWREPLY switch' 



Insert length of reply 



Issue the message via the 
IPW$WTR macro 




Continued on next page 
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LEVEL 2 
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a. Check if ALLUSER messages are to be 
outputted. 

No Yes —^-Insert issuer-ID into the 
I register high order byte;z: 

Insert the sequence number of the command 
into register in high order 2 bytes 

b. Issue the message via the IPW$RMS macro ^ 



(4j Check if a reply is required. 

(message during autostart are suppressed) 

Yes No ■—■—■—■—■— ——— 



a. Turn off SWREPLY switch : 



^> b. Point register 1 to initiator ECB. 



£> c. Provide the initiator task with the address 

of the command processor (IPW$$PS) TCB: 

d. Post the initiator ECB. 

e. Unpost the command processor ECB. 

f. Wait via the IPW$WFC macro until the - 
iniator task posts the command 
processor ECB. 



- IPW$RMS 

* Return to 
calling segment 

■.Return to 
calling segment 




*IPW$WFC 



t 



RO 
R0 



_ SWREPLY 
=0 I -'"o 



-TCR7 



Return to calling segment 





Extended Description 




Include Segment 


Call Subroutine 


Chart 
















The IPW$WTO f IPW$WTR, and IPW$RMS macros 
use registers 0, 1,2, and 3. 
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PIK 



SWCANCEL 



From calling segment 



On or Off 



1 



LEVEL 2 



PASSGN(Part1of2) 



Assign the free LUB represented by 
LUBINDEX to the PUB represented 
byPUBINDEX. 



C> (T) Initialize field to set POWER/VS ownership 

in PUB = 



SEIZE THE SYSTEIV ^Reqister 1 is restricted) 

(Interrupts are not disabled) 
(Do not change PSW key) 



0RNDLUB_ 



Find free LUB. 



© FINDPUB 



Find free PUB. 



(^ VALIDITY 



Check if device type is consistent with the 
operation to be performed (task type). 



-£> (5) Check if an error condition exists. 
^ No Yes— ►Call MSG — - 



Set LUBINDEX to zero 
SetPUBINDEXtozero 



z^ 



Assign the LUB to the PUB : 

Indicate the device is owned by -Cj^^A) \Bj 

POWER/VS I— = 



RELEASE THE SYSTEM: 



CD 



MSG 



ORMASK 
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=>C 



PUBNDX 



PBOWNFLG 



c>r^ 1 



► Return to calling segment 
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Extended Description 




Include Segment 


Call Subroutine 


Chart 


(J) PIK = '10'X 


ORMASK = '01 'X 








'20'X 


'02'X 








'30'X 


'04'X 








'40'X 


'08'X 








'50'X 


'10'X 








'60'X 


'20'X 
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'40'X 


FINDLUB 




CP77 







FINDPUB 
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VALIDITY 
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MSG 
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ASGNARG2 



LUBTAB 



OURLUBPTt 



FF FF 



or FE FF 



PUB 



PUBCUU-- 



LUBTAB 



LUBINDEX 






SCAN 



Extended Description 
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FINDLUB 



LEVEL 3 



Chart CP77 



Look for a free logical unit. Set LUBINDEX 
to the corresponding value (SYS000 corresponds 
to the first LUB). Then set OURLUBPT to the 
address of the LUB found. 



:£> (7)Check if SYSLST is to be assigned. 

Yes No » (?) 

[ >>? Point to SYSLST LUB of the POWER/ VS 



partition 



=£>b. Check if SYSLST is already assigned. 

£es No ■■■"■■■■""■"■■■^^■™ 



Che 



zz^> c. Check is assignment matches with the device 
_^J/ ^sked for. 

■^ No Yes — 

Efuild error message 



Indicate an error found 



lJ>f2)Point to the last programmer LUB in the 

POWE R/VS partition ===== 

l£>r3)Find free programmer LUB 

;£> MJCheck if a free entry is found 

Yes No»«"^- Indicate an error found. 



.». PASSGN 

© 



^ PASSGN 



=£> OURLUBPTT 



MESSAREA 
| 1R64I 

SWCANCEL 
I 1 



Build error message - 



Point LUBINDEX to the entry found 



PASSGN (5} 



=£>OUTLUBPTt 

=0 LUBINDEX 



SWCANCEL 

I i 

MESSAREA 



Ol 



1R64I 



:£> LUBINDEX 



PASSGN (?) Chart CP76 
Include Segment Call Subroutine 



Chart 



{7) c. 1R64I SYSLST LUB NOT AVAILABLE 
(4) 1R64I NO FREE LUB AVAILABLE 
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PUBTAB 



PUBINDEX 



I 



PUBCUU-- 



FF 



ASGNARG1 



ASGNARG3 



SWCANCEL 



On or Off 



PBOWNFLG 



On or Off 



CPCB 



CPBCM- 



PBOWNFLG 



On or Off 



ORMASK 



ASGNARG3 



Included by PASSGN, Chart CP76 
▼ FINDPUB (Parti of 2) 



LEVEL 3 
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^> (7) Scan the PUB table to find a match with the 
device asked for i^l 



Find the PUB corresponding to the 
device address in ASGNARG1. 



(2} Check if the end of the table is reached. 

No Yes — ^^ I ndicate an error occurred : 



^> Build message indicating 
the device is not defined: 



£> \3J Check if no errors are found and check 
if the PUB is used by someone else. 
Yes No ________ 



<D 



£> (T^Check if the PASSGN subroutine was called 
^ > by the PEND command and if the PUB is 

owned by this partition. 

Yes No •— ^ Indicate an error occurred : 



=£> Build message indicating the 

device is in use :zz=zi 



Qu Check if the device is down. 
No Yes 



Build message 
Indicate an error 
occurred z=zz=z 



Z^> PUBINDEX 



o>r 



SWCANCEL 



1 



MESSAREA 



i> 



1R58I 



SWCANCEL 

MESSARE A 
=£> J 1R581 



MESSAREA 
= > I 1R58I | 



SWCANCEL 



c> 



1 
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Extended Description 



FINDPUB (Part 2 of 2) 



Include Segment 



Call Subroutine 



Chart 






1R58I DEVICE xxx NOT KNOWN 
device address 











1R58I DEVICE xxx IN USE 

t 

device address 








© 


1R58I DEVICE xxx IS DOWN 
device address 
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ASGNARG2 



PUBTAB 



PUBINDEX 



SWCANCEL 



On or Off 



ASGNARG2 



PUBDEVTP 



Included by PASSGN, Chart CP76 
* VALIDITY 



LEVEL 3 



Check the validity of the device type. 



(T)Set up fields for the INVDEV subroutine. 
r£> a. Insert device type asked for ~ 



b. Insert device type from PUB : 



c. Indicate diskette reader is allowed I 



(?)Call subroutine INVDEC to check the validity 
of the device type : 



^> (3) Check if a valid device type and no errors <C^ 
exist. 

No Yes -i 



© 



Indicate an error occurred : 



^Z^ > Build error message indicating for which 
type of device an invalid PUB was foundl 



-►PASSGN 

© 



DEVARG1 



^> 



DEVARG2 



:0 



SW3540 



=> 



1 



SWINVDEV 



=0 



SWCANCEL 



1 



MESSAREA 
=C> I 1R73I 
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Extended Description 




Include Segment 


Call Subroutine 


Chart 


Q) ASGNARG2 contains TAPE, RDR, 1RDR, PUN, LST, or SLST 










(4) 1R73I INVALID DEVICE TYPE FOR xxxx 

RPR (for RJE line) PRINTER, PUN, 










or TAPE. 
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From calling segment 



LEVEL 2 



OURPIBPTt : 
ASGNARG1 



4 



PUNASSGN 



Reset the LUB assignment made for a 
task which cannot be attached due to 
serious errors. 



£> fi)Set up registers 0, 1, and 3 for the 
IPW$U LP macro, 
^y Reset the LUB assignment via the 
IPW$ULP macro __«_ 



-*> IPW$ULP 



Extended Description 



Return to calling segment 
Include Segment Call Subroutine 




Chart 



(ij Register = means: unassign the LUB identified by the CCB pointed to by register 3. 

Register 1 points to the PIB of the POWER/VS partition. 
Register 3 points to six bytes before the LUB identifier. 

(3) The IPW$ULP macro uses registers 0, 1, 2, and 3. 
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From calling segment 
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LEVEL 2 
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INVDEV (Part 1 of 2) 



DEVARG1 



SW3540 

| On or Off | £ >0 



DEVARG2 



Check the validity and consistency of input 
arguments and turn the SWINVDEV switch 
on or off accordingly. 



^) Clear the translate table. 

^H Assume the device type is valid : 



£> f3)Check if the device type must be a tape. 
No Yes m Build translate table 

Ito select supported 
tape types zzzzzzz 



£> MJCheck if the device type must be a reader device. 
No Yes 



. Build a translate table to select 
the supported reader types 



. Check if a diskette reader can 
be accepted. 

No Yes-^Change the translate 
I table to indicate thisz 



£> Q>) Check it the device type must be a.punch device. 
No Yes » Build a translate table 

Ito select supported 
punch types — 



®< 



£> QnCheck if the device type must be a list device. 
No Yes » Build a translate table 
I to select supported 
printer types 

7 ) Check if the device type is 1RDR (RJE 
device supported). 
No Yes m Build a translate table 

Ito select supported 
RJE devices— Z_ : 



■^ > ^D Check if the device specified is valid <C^Z 
Yes No » Indicate the specified 

I device is not valid ZZZZ 



SWINVDEV 



TRTTAB 



=£> 



SWINVDEV 



=o 
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Return to calling segment 
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Extended Description 



include Segment 



Call Subroutine 



Chart CP81 
Chart 



(3) The input field DEVARG1 can contain: 

TAPE 
fcRDR 
t PUN 
tLST 
1 RDR 
SLST 

The following is a list of supported devices: 












tape devices 
reader devices 
punch devices 
printer devices 
RJE devices 


2400 f 3420, 3410 

2501, 2540R, 3504, 3505, 1442N1, 2520B1, 3525RP, 2560, 5425, 3540 

2520B2, 2540P, 1442N2, 3525P, 1442N1, 2520B1, 3525RP, 5425 

1403, 1443, 1403U, 3211, 3203, 3800, 5203, 5203U 

2701,2703 




Qy The input field DEVARG2 contains the device type code obtained from the PUB. 
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TCSWCONT 



On or Off 



TATMf 



TCBARG 



ARGCU — 

ARGTI — 

ARGIDBIN- 

ARGIDDEC 



From calling segment 



LEVEL 2 



1 



TCBSCAN 



Scan the string of task control blocks starting at TATM, 



c>© 



1 jCheck if the previous scan is to be continued. 



Yes No- 



^7 



Initialize pointer to start 
of the TCB string zz== 



Use current value of pointer. 



o© 



2) Scan the TCB string until the end is reached 
or until the requested TCB is found rzzrzz 

FOUND NOT FOUND 



Indicate the requested TCB was 
not found 



Turn off all switches ; 



TCB 



£> TCBPT t 



TCB 



^>TCBPTt 



TCBPT 



TCSW 



Return to calling segment 
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Extended Description 


1 nclude Segment 


Call Subroutine 


Chart 


(7) In this subroutine the pointer TCBPT and not TCBPTR is used to qualify TCBs. 








Qn The end of the TCB string is reached when TCBPT=TATM. 








One to four criteria set up by the calling routine in the TCBARG field have to be met. 
TCBARG can contain: 








1 ARGCU: device address or X'00' in last byte 

2 ARGTI : task identifier or X W in last byte 
3ARGINBIN: binary RJE user-ID or 

4 ARGIDDEC : decimal RJE user-ID or XW in last byte. 








The four TCBARG fields are compared with the following fields in the TCB: 








1 TCBCU 

2 TCBTI 

3 TCBFL 

4 TCBIDDEC 








A criterion is met if the argument field matches the corresponding field in the TCB or if 
the argument field contains zero. 
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SWSUPPR 



On or Off 



CON V BIN 



Fromcatling segment 
BINTODEC 



)mcH 

I 



LEVEL 2 



Chart CP83 



Convert the binary number to a printable 
decimal number. 



MjSet up field for edit instruction! 



^> Q£jlCheck if leading zeroes are to be suppressed 
No Yes » Insert significance starter — 

Insert significance starter ^ *(*) 

:£> (^Convert binary to decimal and edit to 

printable form — ■ 



C 



position 2 




position 9 



=>c 



CONVDEC 



Return to calling segment 
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From calling segment 
▼ RELTOABS 



LEVEL 2 
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RELADR 



CAQ1 1 



MCB 



MCBLQ • 



--MCBLH 



DMB 



CAQCt 



QCB#R ■ 
QCB#T- 



Convert the relative disk address to an 
absolute disk address in the queue file. 



fi} Clear disk address. 
C> @) Compute record number — 
O (5) Compute track numberizz: 
£> (4) Compute cylinder number: 



£>* (s) Check if the absolute head number 
is too high. 



No 



Yes 

1 



r^> Calculate new head numbers 



& 



Add 1 to absolute cylinder number- 
(&) Insert module number of the queue file ZZZZ 



^® 



Hi) 



=0 



M BB CC HH R 



£P 



l£> 



Extended Description 



Return to calling segment 
Include Segment Call Subroutine 



Chart 



(^ The record number is computed by deviding the relative disk address 
by the number of records on a track and adding 1. 
The 1 is added since the first record is the master record. 

(3) The absolute head number (HH) equals the ralative head number plus 
the starting head number (MCBLH). 

(4) The absolute cylinder number (CC) equals the relative cylinder number 
plus the starting cylinder number (MCBLC). 
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QARGS 



QJOBNO-f 

QIDBIN 

QIDDEC-+ 



QRECORD 



QRECNO-- 



QRECFJ- 
QRECTJ- 



QRECNM- 



=F^>® 



QARGS 



QABCLEN-- 
QABCCONT - 




I 



From calling segment 

^ SCANQREC(Part1of2) 



LEVEL 2 
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Determine if the queue record read must be altered, 
deleted, or released. 



© 



1 JAssume record is to be bypassed, 
(zero all QSWITCHS) ===== 



Q2)Check if a job number is specified. 
Yes No syndicate job number 

J is valid ============== 
' 

^>^Check if the job number matches the 
job number in the queue record. 
No Yes —^Indicate job number 
is valid. 



<D 




£>(3)CI 
No 



iheck if 



central operator issued the command. 
Yes —^Indicate identifier is valid== 



•0 



® 



l£> Check if identifier issued matches the to-terminal 

J/J or from-terminal identifier in the queue record. 

' No Yes m Indicate identifier is valid== 



£> (7)Check if the central operator issued the command 
No Yes » Indicate this . 



w 



♦ 



Check if the to-terminal and from-terminal 

identifier in the queue record is zero. 

No Yes «■■— ^- Indicate identifier is zero : 



♦ 



C^" (jy Check if the second operand is *abc. 

Yes No m Indicate operand is not *abc 




■© 



Z^> Check if the job name part in the queue 
record matches the specified character 
string. 
No Yes » ■ Indicate a match is found : 



QARGS 



c> 



LiQSWNO 



QSWITCHS 



© © © © ©© 



rn m 



QSWIDBIN 



QSWIDDEC 



QSWCLASS 



(the operand may be valid) 



from next page 
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QSWABC 
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QCLASSi-i 
QJOBNAME" 



QARGS 



QRECORD 



QRECCL 



^7 



® 



SCANQREC(Part2of 2) 



Q6) Check if a class character is specified. 

Yes No m Indicate no class character 

I is specified = 



•<z) 



'^ •> Check if class character matches class 
x-n^/ character in the queue record. 
v27 No Yes- 



♦ 



► Indicate a match is found I 



t> (7) Check if a job name is specified. 



Yes No« 



►•Indicate no job name is 
specified z=^^ZI 



(the operand is valid by default) 



Check if the job name matches the job name 

in the queue record. 

No Yes i » Indicate a match is found= 



^Return to calling 
segment 



T+ 



to previous page (g\ 
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A QSWNAME 



Return to calling segment* 
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CAQCt^= 
set in IPW$DPA 
CLASSARG2 



From calling segment 



LEVEL 2 



Chart CP86 



1 



CLASS 



Provide the newly created TCB with pointers to the 
master class table entries (in the DMB) belonging to 
the classes specified in the PSTART command. 



BLDTRTAB 



Build translate table. 



^) Point to the disk management block 
\3J Point to the reader class : 



^n Check if a reader task was specified. 
No Yes ■ ® 



(5) Point to the list class ■ 

(6) Check if a Hst class was specified. 

No Yes « ■ © 



\7j Point to the punch class : 
® BLDCLTAB 



Build class table pointers. 



DMB 



z£> CLASSPTRt 



RDR 
Class 



LST 
Class 



PUN 
Class 



Return to calling segment 
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BLDTRTAB 




CP87 


©andQ 

Register 15 is used to address the disk management block. The displacement for the master class 
table in the DMB is added in register 15. Register 15 then points to the start of the RDR class. 
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CLASRG3 



Included by CLASS, Chart CP86 
▼ BLDTRTAB 



LEVEL 3 



Build translate table to convert class characters A 
through Z and through 4 into displacements in 
the RDR class, LST class, or PUN class. 



(7) Clear translate table to binary zeros. 

£>(2) Check if RDR was specified. 

Yes No ■ (3) 

\ 

=C> Check if physical readers are handled. 

No Yes 1 Build TRT table == 



=£> Check if BG was specified for execution readers. 
No Yes ■ Build TRT table for BG : 



: C> Check if Fn was specified for execution readers 
No Yes _MM»»Build TRT table for Fn : 



© 



Build TRT table for characters A-Z. 



t^ 



CLASS (T)ChartCP86 
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Chart CP87 0> 

ft 
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^1 



TRT TAB 



i> 



indicates classes 
0-9 are valid 



TAB 



=0 



indicates 
class is valid 
for BG 



TRT TAB 



=0 



indicates 
class n is valid 
for Fn 



TRTTAB 



=> 



Indicates 
classes A-Z 
are available 
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CLSARG1 



CLASSPTR t: 
CLSARG1 



CLSARG1 



SWCANCEL 



On or Off 
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LEVEL 3 
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Insert one or more pointers to class table entries 
into the task control block of a new reader or 
writer task. 



o© 



Process all class characters until a blank is 
found or the maximum number of class 
characters allowed is reached. 
When ready r i ■■ ■ 



c> 



For each character take the following steps: 
a. Copy the class character z~rrz~~ 



<D 



b. Convert class character to a displacement <^. 
by using TRTTAB 



c. Test if the character under 
investigation is valid < ^j"~ 

Yes No » Build error message : 



Call MSG 

Indicate operand is invalid" 



=> 



KD 

d. Insert pointer to this class table entry — — — 



z^> e. Insert class character: 



f. Insert end of class list indicator in next 
entry of class list in TCB , -■"-" . '-"-"" 



o© 



<D 



Check if the maximum number of class 
characters allowed were processed and 
still more were specified and no errors 
were found previously 

No Yes '■■»» Build error message : 

1 Call MSG — — 




CLAS 



=E> 



CLS 



^>> 



MSG 



MESSAREA 



:£> 



1R54I 



SWCANCEL 



© 



=> 



1 



TCB 



m 



^> 



MSG 



■TCBFF(I)' 
TCBFF(2) 
TCBFFI3) 
TCBFF(4)t 



TCBCT(1) 






■ FF 













TCBCT(2) 
TCBCT(3) 
TCBCTI4) 



MESSAREA 



£> 



1R87I 



CLASS (end), Chart CP86 
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b. The CLS field containing the converted class character is at the same location 
as the class character (CLAS). 










c. 1R54I CLASS x INVALID 
class character 




MSG 


CP75 












f. The end of class list indicator (FF) is placed in the first byte of the next 
class list entry for each class character that was processed. 








© 


1R87I TOO MANY CLASSES, FIRST x PROCESSED 

maximum number of class characters allowed 




MSG 


CP75 
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From calling segment 



LEVEL 2 
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ATTACH (Part 1 of 3) 



SWCANCEL 
| On or Off 



TCB 



TCBTI- 



£ 



can contain: ^?' 
R1DENSIT fcLST-",>' 

*drdr-~*""~ 

E 



Attach the physical reader or writer task, or the 
execution reader task to the POWER/VS main task. 
Before attaching an execution reader task the 
BUILDPCB segment builds a partition control block 
in the f ixable area. 



CQ taskadr 



Point register 3 to the task code. 



1 *^ > (2) Check if an erroir occurred. 
No Yes — 



(5) Save register 3 



J> (*) Obtain work space via the IPW$RSW macro « 
and save the workspace address zzmzzzz: 



__ (5) Check if the task is a list or punch task. 
No Yes 1 Indicate this Z=I 



♦ 



v '^ v6J Check if the task is a reader task. 

No Yes m Indicate this — 

^* 

C> \Z) Check if the task is an execution reader task. 
-^ Yes No m fit) 

(5) buildpcb 



** Return to calling 
segment. 



-a»»IPW$RSW 



Initialize the partition control block. 
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ATTACH (Part 2 of 3) 


LEVEL 2 




Chart CP89 
- TCBCU 

-TCBRD 
-TCBTCB 






COMREG 




(9)1 
F 


ndicate the partition is controlled by 




PCONT 

01 1 I 

PACC 


SWACCT 

1 r. _ _^^- 1 




'OWER/VS 

*heck if job accounting is supported. 








| un or utt f 




















Ol 1 I 


SAVR1 


1 










-*^ > /^N ▼ 








c: 










R1 

| | 




" v ^^ vl/ Point register 1 to reserved work space 

(12) Check if the task is an SNA manager task. 
No Yes <^> Indicate SNA manager 

— — ■ ■ r * > »». TPR orirlrocc 


r-^ 


SNTCt 




TBB 








Identify TCB as an SNA 




,^> 


TCB 




TCBTAPFL 

I h- 










r ^> /O* ^ 


"heck if a tape control block was previously 


-5SNA J 


L „„, .,, ,.,l — | 

TCBMCB 

I H 






^>(J3)C 








No Yes ^^ Point register 2 to the tape 






1 1 






Make the new TCB owner 
of the tape control block. 

1 ' 


r^ TCBCOPY 




TCB 




TCBTI - 
TCBR6- 












~>U4)C 


,heck it a partition control block was 






-w^v^/ 








previously creaiea Tor in is tasK. 














No Yes "^ Point register 2 to the 
1 1. **-^ partition control block 




SAVR1 






address -4. 

Make the new TCB owner 
of the partition control block. 
J 




I 






~^>(l5) Point register 2 to reserved work space -4 and 
prevent the command processor from being 
owner of this work space. 










DUMTCB 
















1 i^»-^ Copy TCB to fixed storage — —_____— — _ 




1 u>^ 
r^^ 




- |K ^>/^i 


nsert task save area address ' 














__ k^ 




SAVR1 


'oint register 3 to task code. 

Attach the task to*the POWER/VS main task 




j %^ 






I | 1 








L 1 1 




-v^ Mo/ ' 

©< 

1 





















►Return to Calling Routine 



to 
o 



Chart CP89 



to 

O 



8 

en 
x 
< 

en 

»d 
O 



en 
o 
o 



ATTACH (Part 3 of 3) 
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Extended Description 






Include Segment 


Call Subroutine 


Chart 




(VJWhen this is list writer task and two 
data file buffers are used, the TCB 
storage acquired is 32 bytes longer. 




> 


TASKADR 
BUILDPCB 




CP90 
CP91 


© 


Registers 0, 1 , 2 and 3 are 
used in this subroutine. 
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TCBTI 



TCB 




© 



CAPRtz 



CAERt: 



CAPL t- 



R10EVTYP 



CAPP t: 



Included by ATTACH, Chart CP89 



TSKAPR (Part 1 of 2) 



LEVEL 3 



Load register 3 with the address of the physical reader, 
writer, or execution reader task code to be executed 



^> (Y)Check if a reader task is to be attached. 
No Yes 



®: 



O Point register 3 to the physical 
reader code. 

Check if the reader is a diskette. 



& 



No Yes 



I 



:£p Point register 3 to the 
diskette reader code. 



:£>• (2) Check if a list task is to be attached. 
No Yes 

It 

y^>Point register 3 to the physical list 

I code. 

£> (3) Check if a punch task is to be attached. 
No Yes 



OPoint register 3 to the physical punch 
code. 
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CAXRt 
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Extended Description 



TSKADR (Part 2 of 2) 



LEVEL 3 



=C> (4) Check if an RJE reader task is to be attached. 
Yes No » (5) 

} 

P01 



:£> Point register 3 to the IPW$$TM module.! 



Check if RJE is supported<r ^ 
Yes No » Build message to indicate 

this =z=z=z 



Call MSG — — 

Indicate command is 
invalid zzzz=zzzzz 



(5) Check if an execution reader task is to be 
attached. 
No Yes 



»Poi 



^> Point register 3 to the execution reader 
code. 



"C^Gv Check if an SNA manager task is to be 
attached. 

No Yes 

I t 

1 -^ Point 
▼ code. 



>int register 3 to the SNA manager : 



■►MSG 



t: 



R3 



=>l 



MESSAREA 
=0 1 1R65I [ 



SWCANCEL 

=> ! ~ 



R3 



=CH 



ATTACH (7), Chart CP89 

Include Segment Call Subroutine 



Chart CP90 



Chart 



(2)lR65l RJE-BSC NOT SUPPORTED 




MSG 


CP75 
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TAOC H 
R11 



address of OPS(1) 



SWAGAIN 



On or Off 



Included by ATTACH, Chart CP89 
T BUILDPCB (Part 1 of 4) 



LEVEL 3 
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Build the partition control block for the partition to be 
started. 



^> (j) Check if the command is issued by the 
initialization routine. 
No Yes m Indicate AUTOSTART 

I cards were read — 



{2j a. Build message asking which devices should be 
spooled - 



and initialize counter for number of devices 
to be spooled — 

Call MSG —————————— 



b. Initialize field specifying how many devices 
for each type may be entered — 



c. Build prompting message for spooling device 
specification — 



Indicate reply is requested: 
Call MSG — — — — 



Call the SCANOPND subroutine « 



to convert answer given, to fixed format. 

z^> Point to first device address entered 

Assume the device specification is valid — 
d. SCANANSW 



Interpret answer given to 
prompting message. 



I^> e. Check if the answer given specified a valid 
spooling device address. 



©c. 



Yes No ' » Keep prompting 

Repeat sequence fromfy b. until reader, 
printers, and punches have been specified. 

(3) Calculate storage requirement for the partition 
control block ^ZI 



-**MSG 



-MSG 
^SCANOPND 



SWAUTOST 



=£> 



1 



MESS ARE A 



=0 



1R86D 



SPOOLNO 



=0 



MAXOP 



c> 



MESSAREA 



=> 



1R50D 



SWREPLY 



=> 



1 



C> TOPTRt 



OPERANDS 



=J> 



SWAGAIN 



OP1 



OP2 



R1 



(4) Obtain storage for the PDB via the<d= 
IPWSRSW macro -—-——— 



► IPW$RSW 



=0 
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TCBTI ' 



SP00LN0 



OTHPIK 



COMREGAN 



PIBPOINTfZ 
SAVPDBOC 



SAUPDBMT 



OTHPIK 



SPOOLTAB 



SAVR1 



ANDMASK 



PUBDEVTP 



\ 



© 



BUJLDPCB (Part 2 of 4) 

(?) Initialize the PDB 

a. Initialize the storage descriptor: 
:£>• b. Insert the partition identifier zz 



LEVEL 3 



r^> c. Insert the number of spooling devices : 



C> d. Insert the COMREG address of the 
partition ~~ r v :.". ; " . ' :. :. 



Z^> e. Insert the PI B address of the partition : 



C> f- Insert saved output class : 



:£> g. Insert multitask indicator.! 



C> (6) Calculate the mask byte used to turn off the 
ownership bit in the PUB ownership table rzz 

(jj Build one reader entry in the PDB. 

^ > a. Insert PUB address of reader (or LOG) -m 



z£> b. Insert address of TCB belonging to this task:: 



^. 



z^^ c. Turn off ownership' flag of the partitionto be 

started =£>© 
~^> d. Insert spooling device type — - 
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=ci> 



=cj> 



ANDMASK 



=J> 



PDBRDR (in PDB) 



PDBPU 
■PDBTC 



£J>PDBDT 




PUB ownership table 
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SPOOLTAB 



t 

c 



SPOOLCNTt 



SAVR1 



PUBDEVTP 



R1 



SWAUTOST 



I On or Off 



(s) Build writer entries for ail printers and punches 
specified to be spooled: 



l£> a. Insert PUB address of the writer device 



^>b. Insert TCB address 

c. Turn off ownership flag of the partition to be 
started ^£> (a) 

:£> d. Insert the spooling device type 



£> (5) Insert PDB address in partition COMREG and 
in task register 6 of the TCB 

Z> ©Check if AUTOSTART cards were being 
processed. 

No Yes » Build message indicating 

partition was autostarted 

Indicate AUTOSTART is 
finished zzzzzzzzzzzz 
Call MSG — — — 







Chart CP91 






BUILDPCB (Part 4 of 4) 



Chart CP91 



8 

CO 

< 
CO 

o 



< 

CO 

f 
o 

H- 
O 



Extended Description 



Include Segment 



Call Subroutine 



Chart 



Qj Register 1 1 points to the TCB of the task running. 

TAOC is the address of the permanent command processor TCB. 








If register 1 1 is not equal to TAOC, the task is a temporary command processor task 
so the PSTART command was not issued by the central operator. 








(5) a. 1R86D PLEASE SPECIFY DEVICES TO BE SPOOLED 




MSO 


CP75 


b. MAXOP contains the maximum number of operands allowed, that is MAXOP«DIM (OPS) 








The types are: Reader : MAXOP=1 only one spooling reader is allowed 
Printers : MAXOP=8 
Punches : MAXOP=8 








This step is implemented via a DO LOOP 








The loop variable is SPOOLCNT: SPOOLCNT=1: prompting for reader 

SPOOLCNT=2: prompting for printers 
SPOOLCNT=3: prompting for punches 








c. 1R50D xx READER = 
or 
xx PRINTERS = 




MSG 
SCANOPND 


CP75 
CP70 


or 








xx PUNCHES = 

A 








partition identifier 








Depending on the number of writer entries for specified spooling writers register 1 is used in 
the calculation. 








d. 


SCANANSW 




CP92 


(Yj SPOOLTAB contains displacements in the PUB table of all specified spooling devices. 
The first entry is reader or LOG, the next entries are writers (print or punch). 
SPOOLTAB entries are built by segment SCANANSW for each specified valid spooling device. 








UH This step is implemented via a DO LOOP: Loop variable is SPOOLCNT, limiting variable 

is SPOOLNO. 
SPOOLTAB is an array indexed by SPOOLCNT. 








(lO) 1R75I xx AUTOSTARTED 

t 








partition identifier 
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0P1 



SPOOLCNT 



jfOPLEN © 



© 



MAXOP 



SWAGAIN 



On or Off 



OP1 



OPSWHEX- 



-OPLEN 



Included by BUILDPCB, Chart CP91 
V SCANANSW (Part 1 of 3) 



LEVEL 4 
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j—-r (j^) Check if an answer to the prompting message 
^\ was entered. 

Yes No —*- Indicate prompting message 
I is to be sent again ZIZZZZI 



^4 



Interpret answers to messages prompting the operator to 
specify which devices must be spooled for a partition to be 
started. 



£> \2) Check if NO was answered for a reader device. 

No Yes •—■^►Calculate displacement of the 

SYSLOGLUB. 

Insert SYSLOGLUB 

add ress — 



Store PUB number^ 



•o 



b 



(i) Check if NO was answered for a writer 
device. 

No Yes «— — — ■ — — — *m 

Z> (^Process all entered device addresses up to the 
maximum number allowed. For each address 
take the following actions: 

"^ > a. Check if the device address syntax is valid. 
Yes No ——^Indicate an invalid 
I answer is givenZI^ 



<D 



SCANPUBS 



~0' 



Determine whether the device type is 
valid and store the PUBINDEX in 
TRYTAB. 



b. Check if the device address entered can 
be used. 
Yes No — ■^►Build message 



Call MSG 



c. Check if all device addresses have 
been processed. 

Yes No ■ 

rfocess the next entered address if 
the maximum number allowed has 
not yet been reached » (j) 
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SWAGAIN 

| On or Off \ z 

SWAUTOST 

1 On or Off"" 



SWAGAIN 



TRYTAB 







5 j Store the number of valid device addresses i 
entered. 



£>• QO Check if there were any errors in the 
AUTOSTART cards. 

No Yes ( ►Allow messages to be sent! 

Build message ; 

Call MSG < 

Prompt the central operator 
instead of IPW$$12: 




►BUILDPCB 



O (V) Check if any valid device addresses were 
entered. 
Yes No 



^<Z) ©a. 



J 



£>• \S) Store all device addresses : 
(9)DUPCHECK 



►BUILDPCB 
©c 



Check for device duplication. 



MO) Update the number of spooling devices. 
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SPOOLTAB 
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SPOOLNO 
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Extended Description 
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m) The SPOOLCNT field is used to indicate for which spooling device an answer is 
expected SPOOLCNT = 1 for a reader 
SPOOLCNT = 2 for a printer 
SPOOLCNT = 3 for a punch 








The answers given to the prompting message 1R50D xx READER = are 

* PRINTERS = 
PUNCHES = 








partition 
identifier 








hexadecimal addresses of readers, or punches. They are contained in input as 
OPS(1),OPS(2)etc. 








(T) and (3) The SWAGAIN switch is used to indicate an invalid address 
was entered and the prompting message should be issued 
again in segment BUILDPCB 








The MAXOP field gives the maximum number of device addresses allowed to be 

specified as spooling devices. 

MAXOP is set in BUILDPCB and = 1 for reader 

= 8 (= dimension of OPS) for writers and punches 
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SCANPUBS 
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02. 1R71I OPERAND x IS NO VALID READER 
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(5) 1R79I ERRONEOUS AUTOSTART CARD (S) READ 
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OPERAND 



first operand 



OPHEX 
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PUBTAB 



PUBCUU . 



I3B 



FF 



PUBDEVTP 



I 



SCANPUBS 



Scan the PUB table and check the device type of the 
spooling device specified. 



C> ©Scan the PUB table until a match between the 
device address entered and a PUB table 
entry occurs, or the end of the table is reached : 

£> (2) Check if a match was found. 

Yes Nobm#> Indicate an unknown device 
I address was entered ■ 



(3) Set up argument field for use by the INVDEV 
subroutine — 



(4) Call the subroutine INVDEV to check if the 
requested device is a valid spooling device mm 

Yes No ■-■—■■•*► Indicate an invalid device 
I type was entered = 

(5) Store the displacement of the device ' 



-►SCANANSW 

0b. 



INVDEV 
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:£> PUBINDEX±: 
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SWAGAIN 
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DEVARG2 
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SWAGAIN 

=!> I 1 
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TRYTAB 



SWAUTOST 
\ On or Of f 
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LEVEL 6 



DUPCHECK 



Diagnose device duplication in the operator response 
when he is prompted to specify which devices must be 
spooled in the partition to be started via the P6TART 
command. 



Y>Cl) Check all previously entered device addresses 
to find whether the device was already 
specified as a spooling device. 
Yes No 



>(D 



2) Check if AUTOSTART was processed by 
the initiator. 
No Yes w A llow for prompting 

message 



Build error message 
Call MSG — — 



Build error message 
Call MSG — — — 



(3) Set up switches and loop counters for the 
segments SCANANSW and BUILDPCB so : 
that segment BUILDPCB is executed 
again, and prompting message 1R50D will 
be issued. 



SCANANSW 
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"U 



MSG 



■^ MSG 



SWAUTOST 



MESSAREA 
=£> 1 1R79I 



MESSAREA 
zO I 1R94I 



SWNOAUTO 
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SPOOLCNT 
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SWAGAIN 
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IR79I ERRONEOUS AUTOSTART CARDS (S) READ 
1R94I INVALID DEVICE DUPLICATION 
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MSG 
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SAVER1 



OHAMMSSF 



NRPC 



ISIRTC 



Included by PDISPLAY, Chart CP35 
V DISPLYT (Part 1 of 2) 



Answer the "PDISPLAY T" command 
by displaying the time/date, number of 
tasks and number of pages fixed. 



(7) Initialize the message area with 
'1R46I TIME IS' message. rzzz 



(5) Issue IPW$R0C macro to read time. — 
£> (3) Place time in message. 

(4) Move date from COM REG to message. 
(J) Call MSG -_«.-___-___ 



(6) Initialize message area with 
'1R46I xxx PAGES'. 



LEVEL 3 



£> (7) Convert 'N RPC to decimal in message. : 
£> (8) Convert 'NRTC to decimal in message. 1 

(9) Call MSG. —————-_-——- 
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MM Read clock and place in register 1 








QT) Edit time from SAVER1 into message 








(4) Get current date from partitions COM REG 








(V) Print line 




MSG 


CP76 


(T) and (IT) Convert NRPC and NRTC to printable 




BINTODEC 


CP84 


(9) Print line 
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MULT ASK 



Move valid multi-task Indicator 
to save area SAVPDBMT 



:£> Check if operand length equals 2, 
and if operand is alphabetic. 
No Yes 



:£> Save multi-task indicator : 



Build message 



Indicate invalid command 
Call MSG — — — 
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CHART CQ: IPW$$PS - PRINT QUEUE STATUS (23 PARTS) 



Chart CQOO: IPW$$PS - Print Queue Status , General Flow and Macro Calls 



r~ ipw$$cp "~i 

| Command | 

| Processor | 



( 









IPW$$NU 

Task Management 

(Attach the task) 




FUNCTIONS 






entry 






SERVICES 


IPW$$MS 




IPW$$PS 
(PRINT QUEUE STATUS) 




IPW$$NU 






Task Management 






Storage 
Management 




Message Service 


IPW$$LU 


** 
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Disk Service 








exit 
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IPW$$NU 

Task Management 

(Detach the task) 
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TCB 



dLOGUNit 




TCB 



QBEGIN- 
QEND— 



QARGS 



TCBTT 



From PDISPLAY {in IPW$$CP) via POWER/VS 
task management 

W MAINLINE (Parti of 4) 



LEVEL1 



Chart CQ2 



Determine if the status report should- go to a line 
printer. Determine which queues are to be scanned. 
Set up the header line for the status report and 
diagnose whether there is anything to display. 
Unassign the line printer if a programmer LUB was 
assigned to it. 



(7) turn of all switches to be used by this 
program ■■'■ - ■ ■ \ . ,, . : 



O© 



Check if the status report should go to 
a line printer. 
No Yes 

Indicate to the MSG subroutine 
that the report is to be printed 
on the printer specified ' 



Indicate to the MSG subroutine 
a skip to a new page is needed Z~ 

Call the MSG subroutine to 
issue the SKIP command 



SWITCHES 



=C> 



UPPR | I \ 

/VRDWR / ] 

SWNOSQ2 / 



SWSUPPR 
SWRDWR 



SWPRINT 



SWPRINT 



:0 



1 



] 



(5) Insert the status report message number: 



v> {*) Repeat the following steps for one 
queue or all three queues as long as 
the task is running (not canceled by 
the operator) : 

a. Check if the status report is to go 
to a printer and the reader queue 
is hot processed. 

No Yes * Indicate to the MSG 
subroutine 'space 
3 lines* is neededzzzz: 

Call the MSG 
subroutine to issue 
the SPAC£ command « 
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CLA$$NDX 



MAINLINE (Part 2 of 4) 



b. Insert the status report header "for the 
reader into the output field for the 
MSG subroutine ZZ 



=>c. 



Od. 



Check if the list queue is being 

handled. 

No Yes — m Insert the status 
report header for 
the list queue into 
the output field for 
the MSG subroutine!! 

Check if the punch queue is being 

handled. 

No Yes — » Insert the status 
report header for 
the punch queue into 
the output field for 
the MSG subroutines: 



e. Assume there is nothing to display : 

f. QSCAN 



Scan the reader, list, or punch queue 
and extract the queue sets to be 
displayed. 
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SWRDWR 



On or Off 



TCB 



TCBTT- 



QLOGUNIT 



CPEAT 



:z[> g. Check if there Is nothing to «^ 

display and the task is not being 
cancelled. 

No Yes » I nsert the message 
applying to the 
appropriate queue 
for the MSG 
subroutine 



Indicate the message 
must not be squeezed: 

Call MSG — — 



(5) Return to step (4) a. if there are more 
queues to be handled. 

Z>~ \G) Check if the print status report task is 
canceled by the operator. 

No Yes » Build message text 

indicating this 

Indicate message must 
not be squeezed zz= 

Call MSG 



C> (7) Check if a programmer LUB was assigned 
to a printer. 

No Yes » Unassign the LUB via 

I the IPW$ULPmacro 



£> (5) Check if an ECB is supplied. 

No Yes — ■^►Post processing 
I complete z= 



(5) Return to POWER/VS task selection 
(lO) SUBROUTS 



Subroutines for the IPW$$PS phase. 





POWER/VS task selection. 
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Extended Description 


Include Segment 


Call Subroutine 


Chart 


© 


The print queue status report program is a reenterable program coded in PLS, The PLS/II compiler generates 
a GETMAIN assembler macro to obtain the dynamic storage required for variables. 








© 


The status report is printed on a local printer, a remote printer, or SYSLOG depending on the command 










entered. 




MSG 


CQ8 




The I/O is done 










a. for a local printer via an EXCP macro 










b. for the system LOG via an IPW$WTO macro 










c. for a remote terminal via an IPW$WTM macro. 










QARGS was set up in the DSPLSTAT segment {Chart CP45) of the PD1SPLAY processor in the IPW$$CP 
phase and copied into the TCBDW field in the task control block created for use by this program. 










In IPWSSPS, QARGS is defined upon TCBDW. 
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a. 

f. 


QSCAN 


MSG 


CQ8 
CQ3 




9- 




MSG 


CQ8 
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Registers 0, 1,2, and 3 are used to unassign the programmer LUB. 

Register 1 is used to address the PIB pointer of the POWER/VS partition via the COMREG. It is then 

used to point to the POWER/VS PIB. 

Register is set to zero to indicate the unassign function. 

Register 3 points to six bytes before the LUB index in QARGS. 




MSG 


CQ8 
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The PLS/ll compiler generates a FREEMAIN macro to release the acquired dynamic storage. 








© 
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CAQC t: 
CLASSNDX 

I i — 



CLASSNDX 



DMB 



RDRCLASSO) 
(2) 
(3) 




RDRCLASS(32] 
LSTCLASSd) 



RELDSKAD (1) 



RELDSKAD(32) 



Included by MAINLINE, Chart CQ2 
T QSCAN (Part 1 of 3) 



LEVEL 2 



Chart CQ3 q 

a> 
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Scan the reader, list or punch queue and extract 
the queue sets to be displayed. 



:£> MjAddress the reader class table in the DMB in the 
POWER/VS permanent area 



o 



(2) Check if the reader class table is to be 



scanned 
No Yes 



■^(6 



(3} Address the list class tables 



£> (7) Check if the list class table is to be scanned. 
No Yes » (|) 



Address the punch class table 



© 

[6j Obtain a buffer for the queue record « 
via the IPW$RSW ™~»™ 



(V)Save pointers to the real and virtual<J= 
buffer addresses ~ 



Qy Process each entry in the class table 
unless the status report atsk is canceled: 

— »^>a. Check if a class chain exists for 
this task. 
Yes No * Return to Step(i) 

I until the end of the 

queue is reached. 

b. Reserve the DMB via the IPW$RSR 
macro ^m_«_^___i 



=£> c. Insert the relative disk adress of the 
first record of the first queue set 
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QRECORD 



QRECQN 
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d. RELTOABS 



LEVEL 2 



Chart CQ3 



Convert the relative disk address to 
an absolute disk address. 



e. Take the following actions for each queue 
set found in this class chain and 
print the status. 

1. Insert the absolute disk address 
into the disk request word === 



2. Point register 1 to the disk request 
word. 

3. Read the queue record via the 
IPW$RDO macro _— — . 



z£> 4. Insert the absolute disk address 
of the next queue record in this 
class table z 



5. INSPECT 



Determine if this queue record 
must be used to print a line of 
the status report. 



6. Check if a line is to be printecK^J 
for this queue record. 
No Ye;; 



ONELINE 



Print one line of 
the status report 



LINETWO 



Print second line 
of status report 



Qn Check if another queue record exists 
in this class. 



No Yes. 
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R1 



L_> 



(10) Release the DMB via the IPW$RLR 



mj Check if there are more entries to be 
processed in the class table. 



Nc 



p Yes. 



.©. 



£>M2) Release the buffer used to read in 
queue records via the IPW$RLW 



-► IPW$RLR 



-** IPW$RLW 
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Extended Description 


Include Segment 


Call Subroutine 


Chart 
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The displacement of the master class table in the DMB is added to register 15 (label QCCT in the 
DMB). Register 15 can be used after Step(3) 








© 


Register contains the real address of the buffer obtained. 
Register 1 contains the virtual address of the buffer obtained. 








© 


a. All 37 entries of a class table are handled. 










d. 


RELTOABS 




CQ4 




e. Queue sets belonging to a class entry are chained via the QRECQN field in QRECORD. 
QRECORD contains the absolute disk address of the first record of the next queue set. 
For the last queue record this field contains binary zeroes. 










e.5. 


INSPECT 
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ONELINE 
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RELTOABS 



Convert the relative disk address to an absolute 
disk address in the queue file. 



MJ Clear disk address. 
Z^> (2) Compute record number z: 
-T> (3J Compute track number zz: 
^> (7) Compute cylinder number 



nQCheck if the absolute head number 
is too high. 



No Yes . 



©'' 



Calculate new head 
number - 



Add 1 to absolute 
cylinder number — 



isert module number of the queue 
file — 



^^ QSC 
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Include Segment 
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Chart 



\2J The record number is computed by dividing the relative disk address by the number of 

records on a track and adding 1. The 1 is added because the first record is the ma:;ter record. 

\3j The absolute head number (HH) equals the relative head number plus the starting head 
number (MCBLH). 

(4) The absolute cylinder number (CC) equals the relative cylinder number plus the starting 
cylinder number (MCBLC). 
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<J1 



QJOBNO 



QRECNO 



QIDBIN 



QRECFJ 



QRECTJ 



QIDDEC 



I oo 1 = 



QRECFJ 



QRECTJ 
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▼ INSPECT (Part 1 of 3) 



LEVELS 



Determine if the queue record just read is to be used 
to print a line of the status report. 



(Y) Assume no status to be printed for this 
queue record zzzzzzz^zzzzziizzzzz: 



£> \2) Check if the status is requested for a 
specific job number. 
No Yes 

a. I 



£> Check if this queue record 
corresponds to the specified 
job number. 



Yes No . 



■<D 



ndicate the status is to be printed for 
this queue record — 



C^ (j3) Check if the status is requested for a 
specific binary RJE user-ID. 

No Yes 

£> Check if this queue record 
corresponds to the specified 
binary RJE user-ID. 



Yes No — — 

Indicate the status is to be printed for 
for this queue record :==z=z 



-0 



v-^ (4) Check if the status is requested for 
a specific local user-ID. 



No Yes 



^ > Check if this queue record 
corresponds to the specified 
local user-ID. 



Yes No ... 

Indicate the status is to be printed for 
this queue record — 



-® 
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QIDREM 



QRECFJ 



QRECTJ 



QHOLD 

I 1 = 



QRECDP 



QFREE 



QRECDP 



INSPECT(Part2of3) 



LEVEL 3 



£> (5) Check if RJE was specified without 
next operand. 
No Yes 

I 

£> Check if this queue record 
contains to or from RJE 
user-IDs greater than zero. 



No 



Yes. 



-Indicate the 
status is to be 
printed for 
this queue 
record — — —— 



-® 



Indicate no status to be printed for 
this queue record zzz^zzzzzzzzz 



^ > \$) Check if the status is requested for a job in 
the HOLD state. 



No Yes 



O Check if this queue record 
corresponds to the job in the 
HOLD or LEAVE state. 



Yes No- 



-© 



Indicate the status is to be printed for 
this queue record : 



C> Qy Check if the status is requested for a job in the 
FREE state- 

No Yes 

O Check if this queue record 
corresponds to the job in the 
'K' or 'D' state. 



Yes No 



-® 



Indicate the status is to be printed for 
this queue record — 
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QSWIDBIN 
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QSWHOLD 
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QSWFREE 




INSPECT (Part 3 of 3) 



LEVEL 3 



Chart COS 



O 

o 
n 

& 

H« 
N 

O 



QABCLEN 



QRECNM 



QABCCONT 



QCLASS 



QRECCL 



QJOBNAME 



QRECNM 



O (^ Check if the status is requested for a specific 
partial job name. 

No Yes 

'♦' 

C> Check if this queue record 
corresponds to the specific 
partial job name. 



Yes No «■ 



■*- ® 



Indicate the status is to be printed for 
this queue record : 



^^ @ Check if this status is requested for 
a specific class. 

No Yes 

Check if this queue record 
corresponds to the specified 
class character. 



Yes No 

ndicate the status is to be printed for 
this queue record : 



-® 



O (jo) Check if the status is requested for 
a specific job name. 

No Yes 

\^> Check if this queue record 
corresponds to the specified 
job name. 



Yes No i 

ndicate the status is to be printed for 
this queue record — 



-»» QSCAN 
(§)e.6. 




QSWABC 
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QSWCLASS 



:£> 



QSWNAME 
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DISPAREA 



QUEUE 



QRECNM 



QRECNO 



QRECPY 



QRECXS 



QRECDP 



Included by QSC AN, Chart CQ3 
^ ONELINE (Parti of 4) 



LEVEL 3 



Chart CQ6 



Set up the contents of a status report line from 
information found in an approved queue record 
and call the subroutine MSG to print it 



(Y) Indicate there is something to display: 



Z> (2) Check if a header is still to be printed. 

No Yes » Call the MSG subroutine 
to print the header — > 



I 

(3) Indicate no suppression of leading 



C^ QO Insert the job name in the output 
line 



: ^ > C§) ^ et U P tne m P ut f' e 'd w ' tn tne J°k 

number for the BINTODEC subroutine: 

(5) Call the BINTODEC subroutine to 
convert the job number to printable 
decimal form ~__— — — — — 



(V) Insert the converted job number -^Cp 

in thp output linp 



£>. (8) Insert the priority in the output line: 



O (9) Check if the queue entry is being processed 
by a reader or a writer task. 

Yes No 

O Insert the disposition in the 

output line — 



a. Identify the entry being processed! 

b. OTHREC _____ 



Locate the writer task TCB and 
calculate the number of copies 
and pages/or cards still to be 
written 
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► BINTODEC 



SWRDWR 



SWSUPPR 




DJOBNAME 



CONVBIN 



:£> 



CONVDEC 



=0 



DISPAREA 



-DJOBNO 



c> 



-DPRI 



DISPAREA 
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ONELINE(Part2of4) 



LEVEL 3 



Chart CQ6 



QRECCL 



QRECFJ 



QRECQI 



QRECTJ 



C^ QO) Insert the class character in the output 
line — 



Z> (vj) Set up the input field for the BINTODEC 
subroutine with the RJE from-ID: 



(\2) Call the BINTODEC subroutine to 
convert the RJE from-ID to 
printable decimal form — — — — 




(\3) Insert the converted RJE from-ID <C^= 

in the output line ~ 



"^> (l4) Check if the queue entry under 
investigation is a list or a punch 
queue entry. 

Yes No 



^> © Set up the input field for the BINTODEC 
subroutine with the RJE to-ID = 



© Call the BINTODEC subroutine to 
convert the RJE to-ID to printable 
decimal form — — — — 



@ Insert the converted RJE to-ID in <CF 
the output line 



(l8) Indicate suppression of leading 



*- BINTODEC 



f 



►BINTODEC 



CONVDEC 



=0 



DISPAREA 



4 



"DFROMID 



CONVBIN 



=0 



CONVDEC 



=0 



DISPAREA 
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SWSUPPR 
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DTOID 
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QRECQI 



QRECNP 



QRECLG 



QRECNC 



QRECDT 



QRECC6 



QRECFI 



P>09) 



ONELINE(Part3of4) 



Check if a list queue entry is being 
handled. 

No Yes 



LEVEL 3 
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C> Set up the input field for the 
BINTODEC subroutine with 
the number of pages 



o> 



Set up the input field for the 
BINTODEC subroutine with 
the card count :z==zznzz: 






Call the BINTODEC subroutine 
to convert the number of pages or 
the card count to printable decimal 
form «■■■-■■■■-■■-■■»-■«■--->■■■■ 



Insert the converted number in the <0 
output line 



Set up the input field for the 
BINTODEC subroutine with the 
number of copies zzz=z=zr= 



I Call the BINTODEC subroutine to 
convert the number of copies to 
printable decimal form ■ 



® 



Insert the converted number in <Cr 

the output line zzzzzzzzzzzz: 






Check if the output is destined for a 3800 

Printer. 

No Yes * Indicate transmission count 

4 instead of CC — 

Insert the forms-ID in the output 
line 



Call the MSG subroutine to print a 
line of the status report «■— — — 
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QRECQI 



QRECCP 



-^^ (28) Check if a list queue is to be handled 
NO YES 



Check if the compaction 
table name = blank or X'O' 



YES 



NO 

Insert compaction table name 

in the output line. 

Clear rest of line — 



DISPAREA 



CALL MSG Subroutine to print 
the second line of a status report 



t^ 



-^- MSG 



CMPACT=XXXX 



QSCAN 



Extended Description 


Include Segment 


Call Subroutine 


Chart 
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MSG 


PS8 


© 




BINTODEC 


PS9 


® b. 


OTHREC 




PS7 
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BINTODEC 


PS9 
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MSG 


PS8 
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BINTODEC 
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^ OTHREC(Part1of2) 



LEVEL 4 



Chart CQ7 



Locate the TCB of the writer task processing the 
current queue set and replace the copy counter 
and card or page counter in the input buffer by 
their current values. 



(T) Indicate TCBs are now addressed by TCBPT 
instead of register 1 1. 



£> @ Point to the start of the TCB string: 



C> (5) Scan the TCB string until a writer task is 
found which processes the same queue set, 
or the end of the TCB string is reached — — 



£> (4) Check if a TCB is founded 

Yes No » (S) 

I 

C^* CD ^ e P' ace tne copy counter in the queue 

record by the current value - 



(6) Check if the queue entry is 
0> destined for a 3800 printer. 



No Yes 



Replace the copy group 
index in the queue 
record by the current 
value. 



X> TCBPT t 



I> TCBPT t 
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TCB 



TCBACCB-" 




CURRSTRT-- 



QRECQI 



account work space 



CURPGCNT- : 
CURCDCNT- : 



QRECQI 



account work space 



CURRSTRT 



OTHREC(Part2of2) 



LEVEL 4 



Chart CQ7 



J> (7} Check if the account work space is 
available. 



Yes No« 



£> (^ Check if a restart or setup is in progress 
Yes No 

> Check if this is a list queue entry. 
No Yes 

J> Calculate the number of 
pages left to be printed ; 



>• Calculate the number of cards to 
be punched — 



<D 



^> Check if this is a list queue entry. 
No Yes 



Calculate the number of pages 
left to be printed "HZZI 



►0 



lj> Calculate the number of cards left to be 
punched - 



(9) Re-establish the normal base (register 11) 
for the TCB. 




QRECNP 



=> 



^>[ 



QRECLC 



QRECNP 



^L 



QRECLC 



:> 
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Address of MESSOUT : 



QARGS 



COMID 



From calling segment 

^ SUBROUTS (MSG) Part 1 of 2 



LEVEL 2 



Chart CQ8 



Perform the I/O for : 

a. SYSLOG via an IPW$WTO macro 

b. a terminal via an IPW$WTM macro 

c. a line printer by including segment PRINT. 



=C> ©Check if RJE is supported 

Yes No*- Take out to - and from - ID. 

I Shift line to the left . 

Insert ***** at end of line . 

(2) Calculate the number of characters 
to be printed . 



:£>(3) Insert the address of the output 
area into the message request 
word in the status TCB , 



:£>MjCheck if the destination of the status 
report is the central installation. 



Yes No 



♦ 



Insert the address of the 
output area ~ 



Insert the terminal-ID of 
the destination of the 
status report ~ 



Print the status on a terminal 
via the IPW$RMS macro — — 



► IPW$RMS 
••Return to 
calling segment 



MESSLEN 



c>C 



C> TCBMWf 



R1 



=>C 



RO 



=> 
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SUBROUTS (MSG) Part 2 of 2 



LEVEL 2 



Chart COB 



SWPRINT 

| On or Off | = 



^> Check if the status report should go to 
a specified printer. 

No Yes m PRINT 



Write the status report 
lines on the printer 
specified. 



Print the status report on SYSLOG via 
the IPW$WTO macro 



IPW$WTO 



!► 



Return to calling segment 



O 

3 
O 

0> 
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Extended Description 


Include Segment 


Call Subroutine 


Chart 


(j) The format of a status report header in an RJE 

system is : "bt LIST QUEUE P D C FROM TO PAGES CC FORM 








The format of a status report header in a non-RJE 

system is : t>t> LIST QUEUE P D C PAGES CC FORM »♦*»» 








(J) and (3) 

Registers 0, 1,2, and 3 are restricted in these steps 


PRINT 




CQ9 



to 
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DlSPAREA 



OF 
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R11 



QLOGUNIT 



DlSPAREA 



MESSAREA 



Included by SUBROUTS (MSG), Chart CQ8 



PRINT 



LEVEL 3 



Chart CQ9 



Write the lines of the status report to a I me 
printer specified' in a PDISPLAY ALL, cuu 
command. 



■^ (T) Check if a skip or space command is 
requested. 



No Yes 



a. Clear TCB pointer, CCB, 
and CCW. 



J> b. Insert pointer to TCB 



C> c. Insert logical unit number 

of printer ~~=^ 

d. Insert address of CCW 



£>■ e. Insert skip or space 

command code 
C> f. Insert input address 

g. Turn on*SLI bit 

h. Insert the length of the 
message area 



(?} nsert write and skip one line command 
code 



(5) Point register 1 to the CCB . 

M) Write status report line to the printer 
via the EXCP macro . 

(S) Wait for completion via the IPW$WFC 
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SWSUPPR 
| On or Off 



CONVBIN 



From calling segment 

* (SUBROUTS) BINTODEC 



LEVEL 2 



Convert the binary number to a printable 
decimal number. 



MjSet up field for edit instruction 

^>{2J Check if leading zeroes are to be 
suppressed. 

No Yes » Insert significance 

i starter — 

Insert significance starter 



^> \3j Convert binary to decimal and edit 
to printable form ==== 



=^@ 



£ 



Chart CQ10 



position 2 
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V PATTERN / 



position 9 



^>C 



CONVDEC 



Return to calling segment 
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QRECDT 



QRECFL 



QRECPS 



I 



LI NETWO (Parti of 2) 



Z^>MJ Check if output is destined for 3800 Printer. 
Yes No 



© 



i 



^QSCAN 



Blank Print line. 



Assume nothing to print for 
2nd line. 



^/5) Check if flash-id is blank or X W. 
Yes No: 



Insert the flash-id in the 
output line. E- 



Set print 2nd line switch. 



Z/C^y Check if paper should be threaded 
through BTS unit. 



No Yes: 



Insert 'BURST in the 
output line. L- 



Set print 2nd line switch. 



DISPAREA 



:> 



SWP2DL 



=>l 



DISPAREA 



£> 



SWP2DL 



CH 



DISPAREA 



:> 



BURST 



SWP2DL 



=> 
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Chart CQ11 




5 J Check if copy groups are specified. 

No Yes: 

Indicate suppression of leading 



>Set up the input field for the 
BINTODEC subroutine with the 
number of copies. 



Call the BINTODEC subroutine 
to convert the number of copies 
to printable decimal 



Insert the converted number in 
the output line. 



Set print 2nd line switch. 



\6J Check if 2nd output line must be printed. 



No Yes: 



Set no squeeze of print line flag. C 



Call MSG 



^ 



►bintodec 



►MSG 



QSCAN 



SWSUPPR 



> 1 



CONVBIN 



CONVDEC 



:> 



DISPAREA 
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SWP2DL 



t> 



SWNOSQZ 



CH 
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CHART CR: IPW$$SA - SAVE ACCOUNT (14 PARTS) 



Chart CROO: IPW$$SA - Save Account , General Flew and Macro Calls 



v._y 



Functions 



Account Functions 


Module 


Macro 


Ref. 


Chart 


IPWSSGA 
IPWSSGA 
IPWSSGA 


IPWSOAF 
IPWSCAF 
IPWSGAR 


1 

II 
III 


FB 
FB 
FB 



Miscellaneous 


Module 


Macro 


Ref. 


Chart 


IPWSSLU 


IPWSULP 


IV 


GC 



Module 


Macro 


Ref 


Chart 


IPWSSNU 
IPWSSNU 
IPWSSLW 


IPWSOLI 
IPWSCLI 
IPWSPLR 


V 
VI 
VII 


AC 
AC 
JC 



IPWSSCP 



Command Processor 





IPWSSNU 










Task Management 
(Attach the task) 

Ji 




IPWSSA Save Account 


Label 


Routine 


Functions/ 
Interfaces 


Services 


SAOO 


Function Entry 


1 


F 


SALR 


Spool Account File to Punch Queue 


V,VI 




SADL 


Erase Account File 


II 


D,E 


SATP 


Save Account File to tape 




A,C 


SADA 


Save Account File to disk 




A,C 


SACL 


Function Exit 


11,1V, 


B,C,G,H 


SAGT 


Read Account Record 


III 




SAPL 


Pass Account Record to Punch Queue 


VII 






\ 


7 










IPWSSNU 








Task Management 
(Detach the task) 





Services 



IPWSSNU 


Macro 


Ref. 


Chart 


Task Management 


A 
B 
C 

D 
E 

F 
G 

H 


AA 

AB 
AC 

AD 


IPWSWFC 
IPWSDET 
IPWSFCH 


Resource Management 


IPWSRSR 
IPWSRLR 


Storage Management 


IPWSRSW 
IPW$RLW 


Message Service 


IPWSWTO 






248.2 DOS/VS POWER/VS Logic 



r 

| Labels 


_ T 

| Chart CR01: IPW$$SA - Save Account 

L _ «. «. __ _ _ _ .. 




T 

| Modified Data 
(Fields 

j ___- 


— T 

(Reg. 
j Usage 

__x 


| Calls 

I ^ ^^ 


| SASD 


T ""* ~ 1 

|The first 16 bytes constitute the 
j section description: 

I'CASA V7M0 

| On entry , the following register 
j contents are relevant: 

| file 

|The following registers are used by 
|IPW$$SA: 


r ~ 


1 — 


— -j- 

|R1 


T 




j 8: Account file CCB address 

j 9: SACS base register 

| 10: Address of POWER/VS permanent 

j area 

|11: Address of TCB 

| 12 : Asynchronous address register 

j 13: Address of task save area 

j 14 : Link register 

1 15: Base register 




j IPW$DPA 
| IPW$DTC 


|R8 
|R9 

(RIO 

|R11 
|R12 
|R13 

]R14 
|R15 




| SAOO 


(The entry parameter register 1 is 
| saved in register 5. 

j A buffer is reserved to contain the 
JDTFPH for tape or disk output when 
| necessary. 

j If the Save Device specified is DEL,, a 
(branch is made to erase the account 
j file > 


SADL 




|R5 


J IPW$$RSW 
(Chart AC 




|The account file is opened in GET 
j mode . 


| JPW$OAF 
| Chart FB 




j The address of message 1Q78I is 
| loaded in register 4. 






|R4 






(The address of close exit SC16 is 
(loaded in link register 14. 






(R14 






jlf open failure, branch............ > 


SAO 4 










| Link to read an account record...... > 


SAGT 




|R2 






(If the file is not empty (zero 

j condition code on return signals end 

j of file) i, branch. ............ - . • • • • > 


SAO 8 




|R4 
|R14 






j Otherwise,, the address of message 
J1Q83I is loaded in register 4,, the 
(address of close exit SCI 2 is loaded 
|in link register 14. 






(Cancel open tape is indicated in the 
(TCB,. 




)TCTT(IPW$DTC) 







L X X JL X X J 



Program Organization 249 



Labels 



Chart CR02: IPW$$SA - Account Save 



Modified Data ]Reg. 
Fields ] Usage 
x 



Calls 



/if """v 



SA04 



SA08 



SALR 



LR0 4 



LR08 



If device is not a tape* exit...... > 

Otherwise,, the JJJB index in register 
5 is sto red in a dummy .CCB„ and 
branch to exit. ................... , > 

If the account file has to be written 
to tape f a branch is made..,...,.,.... > 

If it has to be saved on disk, a 
branch i s made > 

Otherwise,, the account file j_s 
spooled via the logical reader to 
punch queue. 

This routine spools the account file 
via the logical reader to the punch 
queue. 

Register 5 is loaded with the address 
of the IPW$$SA output area. 

The logical reader interface is 
opened. 

Register 3, to be used as a first 
time switch, is initialized to one. 

Branch to. ...... > 

(Note: First record is already 
present. Read in SAOO routine.) 

A link is made to read an account 
record .•••...•••........ > 

If EOF is detected (account record 
length zero in register 0), a branch 
is made to close the logical reader 
interface ...............> 

This routine updates account record 
length (register 0) and address s 
(register 1) pointers to ignore the 
DASD record control field part, and 
passes the updated pointers back in 
register 6 (true record length) and 
register 7 (true virtual record 
address) . 

Account record. length is copied to 
register 6. 

Account record address is copied to 
register 7. 

Using register 1 as a work register, 
9 is subtracted from the record 
length in total, to obtain internal 
(machine instruction format) length. 



(R14) 



SCO 4 



SATP 



SADA 



LR0 8 



SAGT 



LR28 



PHLU 



IR8 



IR5 



!R3 



|R2 



IR6 



JR7 

I 

jRl 

IR4 



i 

-X- 



IPW$OLI 
Chart AC 



V.. 
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Reg. j Calls 
Usage j 



| Labels 



Chart CR03: IPW$$SA - Account Save 



Modified Data 
Fields 



ILR12 



ILR16 



The account record address is 
incremented by 8 to point past the 
DASD control field. 

The record ID is moved to the output 
area. 

The card sequence field is 
initialized to (packed decimal) zero. 
The data length -1 (7 bytes) is 
loaded in register 1 (machine 
Tength) . 

If more than one card is required to 
contain the current account record a 
branch is made to > 

If only one card is required to 
contain the current account record: 

• The I/O area is blanked out. 

• The account record, pointed to by 
register 7„ is moved to the I/O 
area, pointed to by register 5, 
using the record length in 
register 6. 

• Record length is set to zero 

and made negative to signal end of 
account record. 

This routine processes an account 
record that does not fit in one card. 

The internal (machine instruction 
format) length of the 71 -bytes 
account data field that will fit on 
the current card is loaded in 
register 1. 

If the residual account data size is 
greater than 71 bytes-, a branch is 
made to move 71 bytes of account 
da ta . . . , .............. > 

Otherwise,, register 1 is reset to the 
actual residual account data size. 

The I/O area is blanked, except the 
first and the last three bytes 
(record identifier plus sequence 
number) . 

Using the data length in register 1, 
account data is moved to the I/O 
area. 

Account data pointer register 7 is 
incremented by the length of the data 
field just moved to point to the data 
to be moved next. 

Residual data length in register 6 is 
decremented by the length of the data 
just moved. 



R7 



RCID 



SQCT 



Rl 



LR12 



ACRD 
ACRD 



R6 



Rl 



LR16 



Rl 



ACRD 



DATA 



R7 



R6 
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Labels 



LR20 



LR24 



LR28 



Chart CR04: IPW$$SA - Save Account 



The card sequence number is 
incremented by one,, and unpacked into 
the I/O area. 

Branch if not first spool record... > 

Otherwise, provide logical reader 
with dummy read command (2nd hopper,, 
MFCU 5425). 

Set register 1 to one as minimum 
record length. 

A link is made to pass this dummy 
record. • •..•...••...,.,..•....• , # . . ... > 

(The address of the output card image 
is loaded in register by this 
subroutine SAPL. ) 

On return,, the dummy read command is 
cleared. 

The address of the queue record is 
loaded in register 2. 

The address of the DMB is loaded in 
register 4. 

The queue record is changed: 

• Job name PACC0UNT is moved to the 
queue record. 

• Record identifier is set to Punch. 

• Class indicator is set to Punch. 

• Priority to set to 1. 

• Disposition is set to HOLD. 

• The default number of separator 
cards is moved to the queue 
record. 

A link is made to pass the first and 
following card image records to the 
logical reader..........* > 

If current account record has been 
spooled completely, a branch is made 
to read the next account record..,.. > 

Otherwise, a branch is made to 
prepare the next card for the current 
account record...... > 

This is the normal exit address (end 
of account file) for logical reader 
spooling. 

The address of message 1Q79I is 
loaded in register 4. 

The output area is blanked out. 

•/£'• is moved to the output area. 



LR24 



SAPL+4 



SAPL 



LR04 



LR12 



Modified Data 
Fie] ds 



SQCT 
SQNO 

TCCC(IPW$DTC) 



TCCC(IPW$DTC) 



QRNM(IPW$DQR) 

QRQI(IPW$DQR) 
QRCL(IPW$DQR) 
PRPY(IPW$DQR) 
QRCL(IPW$DQR) 



QRSP(IPW$DQR) 



ACRD 
ACRD 



Reg. 
Usage 



ICalls 



R3 



Rl 



R2 



R4 



R4 
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r T 

(Labels [Chart CR05: IPW$$SA - Save Account 

L «. L .... 




T 

| Modified Data 
[Fields 


— T 

|Reg. 
[Usage 

_ 4. — _ _ 


_ T 

[Calls 

__j 


IP _ j. -..j 

| jCard count in queue record is updated 
| J with one for this EOJ card, using 




T 


T 
|R3 


t — 


j |A link is made to pass the EOJ record 
j jto the logical reader > 


SAPL 




[R2 




j (Register 1 is set to zero to simulate 
| |EOF condition of the physical reader. 






|R1 




| |A link is made to pass the EOF 

| (condition to the logical reader.... > 


SAP1 




|R2 




| (The logical reader interface is 
] j closed. 








| IPW$CLI 
[Chart AC 


| | Normal exit is taken... > 


SC08 








| SADL [This routine is entered when the 
| j account file is to be erased. 










j [The ACB is reserved. 








J IPW$RSR 
[Chart AB 


| |A IPW$CAF ERASE is issued to erase 
| [the account file. 








JIPW$CAF 
[Chart FB 


| (The address of message 1Q80I is 
| [loaded in register 4. 










| (Exit.. > 


SC16 




|R4 




| SATP |This routine is entered if the 

| j account file is to be saved on tape. 




| J The address of the DTFPH used for 
| | tape output control is loaded in 
| | register 8. 






|R8 




| (The DTF buffer is initialized with 
| jthe originally generated tape DTF 
| j (reuseability) . 










| [The DTFPH is prepared for tape 
| 1 output: 










| j • Accept unrecoverable I/O error is 

| | set ON,, 

| [• No-rewind option is set OFF 

| j • Rewind-unload option is set ON. 




|PHCM 

[PHCS 
| PHCS 






| | If no file name has been specified in 
| [the PACCOUNT command,, and therefore 
| | no file name has been posted in the 
| | TCB by the command processor,, branch 
| jto process unlabeled tape > 


TP04 








| [Otherwise, copy the file name into 
| jthe copied DTFPH in the DTF buffer. 




[PHNM 






| j Branch to bypass setting DTF to 

| j NOLABEL , . . ■ > 


TP08 




1 
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Labels (Chart CR06: IPW$$SA - Save Account 

i 

TP04 | The DTF type indicator (byte 20) is | 

[set to NOLABEL. | 

I 

(The NOLABEL option is switched ON,. 

I 

TP08 [The device- dependent information , 

(passed by the command processor in 
| register 1 and saved in register 5, 
j is now processed. 

I 

(The format of this information is as 
(follows: 

I 

| Byte 0: Density 
(Byte 1: Device type 
(Bytes 2-3: LUB index 

! 

(The density byte is stored in the 
(TCB. 

I 

| If no density has been specified 

| (density byte contents zero),, branch 

| to bypass updating the PUB entry... > 

I 

(Otherwise,, register 2 is loaded with 
(the address of the PUB entry of the 
j tape device concerned. 

! 

(With register 2 as address register,, 
(the PUB is now updated to reflect the 
(tape density keyed in by the operator 

I 

| Standard mode is reset. 

I 

J Standard mode is updated according to 

[specified density. 

1 

(The specified density is moved to the 
j PUB. 

! 

(Set mode command is initialized. 

I 

TP12 (The LUB index (programmer logical 
[unit number) is moved to the CCB. 

! 

(The address of the DTF is stored in 
(the OPENR parameter field. 

I 

(The tape DTF is opened, invoking 
(transient $$BOPENR. 

I 

| If unrecoverable I/O error is posted 
(in the TCB (by Terminator routine 
(IPW$$TR) , branch to.. ..... > 

I 

(When not standard labeled tape 

j processing, branch to ... , > 

i 

] Otherwise, test if file labeled 

J information has been found and stored 

j in the DTF. If so, bypass -cask 

j cancel condi tion. > 

JL 



TP12 



TP14 



TP16 



TP16 



. T 

Modified Data [Reg* (Calls 
Fields (Usage 

(PHTT I 



PHCS 



SADY(IPW$DTC) 



(PUBJCFLG 



I 



PUBJCFLG 
PUBOPTN 

PUBOPTN 
PHLU 

DTF 



R2 



4 



IPW$FCH 
Chart AA 






v,,V 



1> 
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| Labels 


- T 

] Chart CR07: IPW$$SA - Save Account 

_j — _ _ _ — — _ _ _ 


7 

j Modified Data 
| Fields 
x — 


— r 

3 Reg 
( Usage 

_ x 


- T 

I Calls 

I 

x 


|TP14 


1 T 

J Store task cancel condition in TCB. | 

| Load the address of message 1Q60I j 
j into register 4. | 

(Branch to abnormal task j 

j termination > j SC04 


T 

|TCTT(IPW$DTC) 

(PHIS 


T 


t — 

i 

i 

i 

i 

i 

i 
i 


|TP16 


| The tape DTF open indicator is set on | 


i 

i 
i 

i 




(Register 5, to be used as an output j 
(block counter, is set to zero. j 




|R5 


i 
i 

i 

D 




j Branch , - >] TP2 4 






i 




j(Note: First record is already ) 
(present. Read in SAOO routine.) J 


1 

1 
1 
1 

| 


|TP21 


JA link is made to read an account ] 

j record. ••••..•••••••••••••.....•••• >] SAGT 




]R0 


1 

] 
\ 




j On EOF account file (record length inj 


1 

1 

1 

1 
1 


JTP24 


j Otherwise, the block count is j 
| incremented by one, and J 
J stored in the DTFPH. J 

j Account record length which was saved) 
j in register 6 is copied into the tape] 
(write CCW,. ] 

(Account record address which was j 
| saved in register 7 is copied into ] 
(the tape write CCW. ] 


(PHBC 
JTCCW 


|R5 


1 

1 

1 

1 

1 

1 

1 

1 

1 

] 

1 

1 
i 




j tape, with suppression of incorrect ( 
j length. J 




|R8 


1 
1 
1 
1 

1 




(A IPW$WFC POWER/VS wait macro is ( 
(issued to wait for I/O completion. j 




|R1 


1 

| IPW$WFC 

(Chart AA 
i 




(If no unit exception (EOV) on tape is j 
(detected, a branch is made to process | 
j the next account record >|TP21 






1 
I 

1 
1 


L 


| On EOV: | 

j • FEOV switch is set on. | 
(• EOF switch is set off. | 
j • End-of -Volume is forced using j 
| fetch macro IPW$FCH for $$BCEOVl | 
j transient phase and SVC 2 call. ( 
| • The alternate tape is opened. j 
| • The block count is reset to zero, j 
j» The next account record is j 

j processed....**.. >|TP21 

_x. : x 


| PHIS 
|PHIS 

X 


]RO f Rl 
|R5 

X 


i 

|IPW$FCH 

| Chart AA 

1 

1 

j IPW$FCH 

jchart AA 

1 

1 

1 

1 

1 
_x 
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Labels 



TP28 



SADA 



Chart CR08: IPW$$SA - Save Account 



This is the normal (EOF) exit for 
tape processing. 

The address of message 1Q79I is 
loaded in register 4. 

A branch is made to exit*....,...*.. > 

This routine is entered if the 
account file is to be saved on DASD. 

The address of the ACB is loaded in 
register 5. The address of the DASD 
DTFPH is loaded in register 8. 

The DTF buffer is initialized with 
the DASD DTFPH ( reuseabil ity) . 

The following fields in the DASD 
channel program are now relocated,, 
using register 1 as a work register: 

• Seek argument in seek CCW„ 

• Search argument in search CCW,, 

• Sector value argument in set 
sector CCW„ 

• Reset set sector command X*23* 

• Sector value plus 1 argument in 
read sector CCW f 

• Search CCW address in TIC CCW /# 

• Count field address in first write 
count key data CCW. 

The DTF address in register 8 is 
stored in the OPENR parameter field. 

The DASD device type is copied from 
the ACB to the DTFPH. 

The file name for the DASD file is 
copied from the TCB, where it has 
been posted by the command processor, 
to the DTFPH. 

The DTFPH is set to accept 
unrecoverable I/O error. 

DASD CCWs are now chained: 



Seek CCW 

Set sector CCW 

Search CCW 

TIC CCW 

Write count CCW 

Write data CCW 



to set sector CCW 

to search CCW 

to TIC CCW 

to write count CCW 

to write data CCW 

(command + date) 

to read sector CCW 



The DASD DTFPH is now opened* 



SACL 



r t 

Modified Data |Reg. (Calls 
Fields J Usage | 
+ + 



SASK 
SASH 
SASS 



SARS 

SATI 
SAWC 



DTF 



PHDT 



PHNM 



P'HCM 



SASK 
SASS 
SASH 
SATI 
SAWC 

SAWD 



R4 



R5 
R8 



Rl 



/if ~\ 



\_y 



IPW$FCH 
Chart AA 



4^\ 
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r - T , ... 

(Labels [Chart CR09: IPW$$SA - Save Account 

L 1 .. „ _ ,. r ^ _ , _ 


T 

[Modified Data 
JFields 

— X — — — - «.„— 


— T T 

[Reg. [Calls 
[Usage j 

L— „„ —X 


r T - - ■■" ^t - 
| [If unrecoverable I/O error was posted | 
| j in the TCB, or if open was j 

| [with 1Q60I message address and a | 

| [branch is made to-. * • • >|SC12 


t 


— f f 

|R4 | 


| [Otherwise,, a test for RPS support is | 
| jmade. j 




| | If RPS is supported, a branch is made] 

| | to continue. > j DA04 


[SASS 
[SAWD 




| j [otherwise , the set sector CCW is | 
) [overwritten with a TIC * + 8 CCW, | 
| |and the last CCW (read sector) is J 
| [unchained. j 




|DA0 4 [Using register 3 as a work register , \ 
| [the extent capacity of the user j 
| [extent is calculated: J 




|R3 j 


| [Low cylinder number is subtracted j 
| [from high cylinder number. j 


\\ 




| [Number of cylinders available is j 
| j multiplied by the number of tracks ] 
| |P e r cylinder. | 






| | Track number of high limit is added. ] 






| [Track number of low limit is j 
| [subtracted. j 






| j One is added to obtain the number of j 
| [tracks available in the user extent. | 






| [The number of tracks is multiplied byj 
| [the track capacity to get the extent j 
| [capacity. j 






| [Extent capacity is saved. j 


[SAMC 




| [Using register 3 as a work register,, | 
| jthe size of the account file is j 
| [calculated by subtracting residual | 
| | account file capacity from total j 
| | account file capacity. j 




|R3 [ 


| [If the current account file size is j 
[ [greater than the user extent J 
| j | capacity , a branch is made to error | 
| [exit..... >| DA2 8 


| SACF 




| [Otherwise, the user's DASD count j 
| j field is cleared and set to the | 
| [extent lower limit. | 




| |The initial (begin) track number of j 
| [the IJAFILE to be saved is loaded in | 
| j register 3. j 

l X X 


X 


|R3 | 

.•X X 
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Modified Data jReg* (Calls 

Fields | Usage | 

• + + 



Labels 



QAQ 8 



DA12 



DAI 3 



DAI 6 



Chart CR10: IPW$$SA - Save Account 



Using register 1 as a work register, 
the track number of the highest track 
of a cylinder is calculated and 
saved. 



Branch .............. > 

( Note : First record is already 
present. Read in SAOO routine.) 

A link is made to read an account 
record „ > 

On EOF account file (zero record 
length in register 0) -.. > 

Otherwise,, record length is stored in 
count field and write data CCW. 

Record address is stored in write 
data CCW. 

Seek and search arguments are copied 
from count field. 

If the track number in the account 
file search argument has not been 
changed, a branch i$ made to update 
user's DASD record number.......... > 

Otherwise, a new track has been 
accessed on the account file and 
loaded in register 3 and as a 
consequence the track address of the 
user DASD file should be incremented 
too. 

If the upper head of the current 
cylinder in the user extent has not 
been reached yet, branch to update 
track number ...» > 

Otherwise,, the cylinder number is 
loaded in register 1. 

The count field is cleared to set 
head number and record to zero. 

Cylinder number is incremented by 
one, and stored back into the count 
field. 

Seek and search arguments are copied 
from the count field. 

Branch to update record number..... > 

Using register 1 as a work register, 
the head number in the count field is 
incremented by one. 



The record number is set to zero. 



DAI 2 



SAGT 



DAI 3 



DA20 



DAI 6 



DA20 



SAUH 



SACF 



SAWD 



SASA 



SACF 



SACF 



SACF 



SACF 



R2 



R6 



R3 



Rl 



Rl 



Rl 






v_ 
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| Labels 


| Chart CR11: IPW$$SA - Save Account 

- + T 

[Seek and search arguments are copied | 
| f rom the count field. j 


[Modified Data 
[Fields 
.^ + 

j SASA 


[Reg. 
[Usage 
-+ 


[Calls 


|DA20 


jusing register 1 as a work register,, j 
j record number in count field is j 
(incremented by one. j 

|Next sector value is set for the set | 

j sector CCW. On EOF account file... >|DA24 


[SACF 
| SASE 






|DA21 


j Tl^e account record is written. j 

|A IPW$WFC macro is issued to wait for| 
j I/O completion. j 

|0n completion, branch to get the next) 

j account record ••••.•••••••#•• >| DAO 8 






JIPW$WFC 
[Chart AA 


|DA24 


|This is the DASD normal (EOF) exit j 
j routine,. J 






[The write data CCW is unchained-. j 


| SAWC 








|An EXCP is issued to write the EOF j 
| record. | 










[An IPW$WFC macro is issued to wait | 
j for I/O completion. j 






|IPW$WFC 
[Chart AA 




jOn completion, the address of message) 
J1Q79I is loaded in register 4. j 




[R4 






[A branch is made to exit.. . .. >|SC08 








[DA28 


JThis routine is a DASD error exit j 
j routine,. j 

[The address of message 1QS1I is j 
j loaded in register 4. | 

[The user file name is moved into j 
] message 1Q81I. j 


i| FLNM 


|R4 






[Branch to error exit. •••.......... . >|SC12 


X 


X 




[&ACL 

L 


[This routine is the common close and | 
J exit routine. The output file is j 
[closed; its device is unassigned; if ] 
j no errors have occurred,, the account j 
j file is erased; a message is logged j 
j stating the action taken by IPW$$SA; j 
jthe IPW$$SA task is detached. j 


.- .X 



^p**^ 

%^/ ! 
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(Labels j Chart CR12: IPW$$SA ■- Save Account 
I J 



j Modified Data 
J Fields 

-fr 



_ T T 1 

jReg* (Calls J 

(Usage | | 

. + + 4 

j |IPW$FCH | 

J j Chart AA | 

I '■ I I 

I I 9 



vy 



I SC04 



! 



(The (tape) output file is closed. 
! 



I' 

This entry point to the exit routine j 

is taken when the account file open J 
procedure failed due to lack of work | 
space f or unrecoverable I/O error, orjj 
an attempt was made to save an empty J 
account file* j 

I 

Register 1 is loaded with the | 

POWER/VS PIB address, j 

I 

Register 3 is loaded with the CCB | 
address of the output file and its | 
device is unassigned. j 

I 

If the open tape file procedure was | 
unsuccessful,, branch to. ..... . .... . >|SC12 



I 



|R1 



IR3 



I ! 

1 1 

| IPW$ULP ] 
] Chart GC | 



I 



I 



ISC08 



| SCI 2 
4 



JSC16 



i SAEX 



SAGT 



j If the OPEN account file procedure j 
(was unsuccessful, a branch is made toj 
(message logging routine ( 1Q 7 81 ).... >|SC16 

i t i 

(Otherwise,, the account file is closed j 
(and erased. | 

\ 1 

(Branch to continue >|SC16 

I ] 

J An IPW$CAF KEEP is issued to keep the] 
j account file and reset and release j 
j the ACB„ and its work space,, if ] 
( present. j 

I '] 

[The address of the message to be | 
] logged,, kept in register 4„ is stored) 
]in the message request word, ] 
jand the message is issued. ] 

] I 

]The DTFPH work space is released. 



1 

The TCB account track indicator is J 
set inactive (X'UOM and the task is J 
detached. j 



|TCMW(IPW$DTC) 



I 



JTCAT(IPW$DTC) j 



| This subroutine reads an account j 

record from the account file. | 



i i 

i i 

j IPW$CAF | 
| Chart FB | 
1 .1 



jIPW$CAF | 
| Chart FB ] 



1 3 

j IPW$WTO | 

| Chart AD J 

I 1 

]IPW$RLW ] 

]Chart AC j 

|IPW$DET j 

J Chart AA \ 

! 1 

1 1 



Vv 



j An account record is read. 



1 



3 IP W$ GAR will return the account j 

| record length in register 0„ and the | 
j account record address in register 1. j 

1 I 

[Register is saved in register 6, ] 
i] and the condition code is set to j 

| provide a return code for the calling] 
(routine condition. Code =0 | 

] indicates EOF otherwise, no EOF. ] 

J I 

(Register 1 is saved in register 7* j 

I ! 

(Control is passed back to the calling] 
(routine. j 

-X x. 



]R0 

]R1 

I 
JR6 



]R7 



IR2 



j IPW$GAR J 
(Chart FB | 



I 
I 
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I Labels 



Chart CR13: IPW$$SA - Save Account 



Modified Data 
Fields 



Reg. 
Usage 



Calls 



SAPL 



SAPl 



This routine passes a card image 
record via the logical reader to the 
punch queue. 

The card image length is loaded in 
register 1. 

The address of the output card image 
is loaded in register 0. 

The card is passed to the logical 
reader. 

Control is passed fc>ack to the calling 
routine. 



Rl 



R0 



R2 



IPW$PLR | 
Chart JC | 



\*y ; 
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QUEUE FUNCTIONS 



CHART DA: IPW$$RQ - RESERVE QUEUE RECORD (3 PARTS) 






Chart DAOO: IPW$$RQ - Reserve Queue Records General Flow and Macro Calls 



JPW$$LR 




IPW$$XW 


Logic?! Reader 


Execution Writer 




1 




i 





I 



!PW$$RQ - Reserve Queue Function 



Label 



RQOO 
RO04 

RQ20 
RQ40 



Routine 



Function entry 
Test for record space 

Reserve queue record 
Function exit 



F 



Functions/ 
Interfaces 



1PW$$LR 



Logical Reader 



I 



IPW$$XW 



Execution Writer 



Services 



D,l 

A,B,C, 
E,F 

G 

B,C 



Services 



IPW$$NU 


Macro 


Ref. 


Chart 


Task Management. 


A 

B 
C 

D 
E 

F 

G 
H 

\ 


AA 

AB 

AC- 

AD 

AE 

AF 


IPW$WFC 


Resource Management 


IPW$RSR 
IPW$RLR 


Storage Management 


IPW$RSW 
1PW$RLW 


Message Service 


IPW$WT0 


Disk Service 


IPW$RDQ 
IPW$WTQ 


Tape Serv ice 


IPW$WTT 



/ >\ 
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r 

| Labels 

|RQSD 


I ' 

Chart DAG1: IPW$$RQ - Reserve Queue 

h 

|The first 16 bytes constitute the 
| section descriptor: 

| 'RQCS V7M0 • 


Re 


5cord 


T -| 

(Modified Data | 

| Fields | 

„ + j 


r t 

Reg. (Calls 
Usage | 

+ 


|RQOO 


| Function Entry 


> ! 


RQ04 


| IPW$DSV j 

| TCQA(IPW$DTC) 1 
|TCQV(IPW$DTC) | 




|RQ02 


|Save caller registers 14 through 9 

| Reserve queue record space (if not 
| available) . 
[Save addresses. 

| If no tape spooling, branch to..... 


| IPW$RSW 

(Chart AC 




| Write initial tapemark. 

| Write the record to tape (queue 

| record area) . 

(Exit . . 


> 


RQ44 




(IPW$CTT 
| Chart AF 
| IPW$WTT 
(Cnart AF 


|RQ04 


(Set addressability disk management 
[block (DMB). 
(Lock DMB. 

| Examine Free List Pointer in Raster 




R6 | 

|IPW$RSR 
(Chart AB 




| Record 




(RQ05 


] If no queue record available: 






| Issue message 1Q38I NO DASD SPACE 
(AVAILABLE 








| IPW$WTO 
(Chart AD 


|RQ10 


|Unpost ECB in DMB. 
1 Unlock DMB. 

|Wait for posting of ECB in DMB. 

| Lock DMB. 

| Examine free list pointer. If zero, 
| branch to retry. ................... 


r 
> 

2t 


RQ10 


|QCEB(IPW$DQC) 


| IPW$RLR 
(Chart AB 
| IPW$WFC 
(Chart AA 
|IPW$RSR 
(Chart AB 


1 RQ2 


j Reserve Queue Record 


|TCQW(IPW$DTC) 
]MRQF(IPW$DQC) 






(Read first free queue record from s< 
| Update first free queue record to 
| next record. 


I IPW$RDQ 
| (Chart AE 




[Update queue record field: 












| set first- in- set switch 

| set next-in-set pointer zero 

| set forward chain pointer zero 

| set previous chain pointer to queue 

J record itself 






|QRFS(IPW$DQR) 
|QRNS(IPW$DQR) 
|QRQP(IPW$DQR) 
] QRQN(IPW$DQR) 
1 
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263 



I— 



Labels 



Chart DA02: IPW$$RQ - Reserve Queue Record 



Modified Data 
Fields 



| Reg. 
(Usage 

-+ 



Calls 



f > 



RQ40 



RQ44 



Update record counters in CAT 
(statistical information). 

• decrement number of queue records 
available 

• maximum number of records in use. 

Function Exit 



Write master record back to queue 

file. 

Unlock DMB. 

Set function track indicator to 

(open for output) and return to 

caller.. 

Restore registers and return to 

caller. 



NRQF(IPW$DPA) 
NRQM(IPW$DPA) 

QCMW(IPW$DQC) 
TCTF(IPW$DTC) 



1 



IPW$WTQ 
Chart AE 
IPW$RLR 
Chart AB 



I 
I 

JR14-R9 
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CHART DB: IPW$$AQ - ADD QUEUE SET TO CHAIN (5 PARTS) 



Chart DBOO: IPW$$AQ - Add Queue Set to Chain, General Flow and Macro Calls 



IPW$$TR 




IPW$$LR 




IPW$$XW 




IPW$$CP 


Task 
Terminator 


Logical Reader 


Execution Writer 


Command 
Processor 




1 




ii 




ii 




1 











I 



IPW$$TR 



J 



IPW$$AQ - Add Queue Function 



Task 
Terminator 



Label 



AQOO 



Routine 



Function entry 



AQ10 


Examine class table 


AQ50 


Add to start of chain 


AQ55 


Add to middle of chain 


AQ60 


Add to end of chain 


AQ65 


Add complete chain 


AQ70 


Function exit 



Functions/ 
I nterf aces 



I 



IPW$$LR 



Logical Reader 



I 



IPW$$XW 



Execution Writer 



Services 



A,C,D 
E,F 

C 

D 

C,D 

D 

D 

B 



1 



IPW$$CP 



Command 
Processor 



Services 



IPW$$NU 


Macro 


Ref. 


Chart 


Resource Management 


A 
B 

C 
D 

E 
F 


AB 
AE 
AF 


IPW$RSR 
IPW$RLR 


Disk Service 


IPW$RDQ 
IPW$WTQ 


Tape Service 


IPW$CTT 
IPW$WTT 
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Labels 



AQSD 



AQOO 



AQ06 



AQ10 
AQ20 



Chart DBOl: IPW$$AQ - Add Queue Set to Chain 



The first 16 bytes constitute the 
section descriptor: 

•AQCS V7M0 ' 

Function Entry 



Save caller registers 14 through 9 

inclusive. 

Set addressability for queue record. 

Set function track indicator A (add 
in progress) . 

If tape spooling: 

• write trailer record to tape 
(queue record area) 

• write two tapemarks, backspace one 

• exit. ..,.,.,.. .............. > 

Set addressability disk management 
block (DMB). 
Lock DMB. 

If queue record area does not contain 
first- in-set: 

Update record pointers 

• set forward pointer to zero 

• set next-in-set pointer to zero 

Write the queue record back. 

Read first record back into the 

auxiliary queue area. 

Copy information in queue record area 

• overwrite record pointers 

• overwrite control seek address 

• reset first-in-set switch 

Examine Class Table 



Address class table entry: 

If pointers are zero add complete 
chain > 

Translate relative disk address of 
last in class pointer. 

• read last- in-class record in 
auxiliary queue area 

• cneck priority for add to end of 
chain. . . . . > 



AQ89 



AQ65 



AQ60 



Modified Data 
Fields 



IPW$DSV 



TCFT(IPW$DTC) 



QRQN(IPW$DQR) 
QRNS(IPW$DQR) 



QCQW(IPW$DQC) 



QRNS(IPW$DQR) 
TCQW(IPW$DTC) 
QRFS(IPW$DQR) 



QCQW(IPW$DQC) 



*T T 1 

]Reg. | Calls | 
j Usage | | 



I 



|R5 



IR6 



[IPW$WTT j 

J Chart AF J 

|IPW$CTT | 

| Chart AF | 

1 1 

I I 

I I 

JIPW$RSR | 

[Chart AB | 



I 



I 



|IPW$WTQ | 
| Chart AE j 
j IPW$RDQ j 
I Chart AE | 
1 I 



I ( 

I i 

| IPW$RDQ j 

(Chart AE | 

I i 

I I 









if 
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r 


~T 


T - T fl 1 


| Labels 


|Chart DB02: IPW$$AQ - Add Queue Set to Cha 


in (Modified Data (Reg. 
(Fields (Usage 


| Calls | 


L 


L . ,. 


__ j __ ___ «.A„„ — 


L m . M . M . a .«. M «. M .J 


r 


^ _ _ r 


1 1 


|. ^ 


JAQ25 


| Scan chain backwards, # until priority | 


|QCQW(tPW$DQC) J 


| IPW$RDQ j 




|of new set is equal or lower for add | 




j Chart AE ] 












|now contains previous queue record) >]AQ55 






|AQ50 


lAdd to Start of Chain | 


(CTQF(MCT) j 






(Translate and store first- in- class | 














|Set previous class pointer to zero. | 


|QRQP(IPW$DQR) | 






(Set forward pointer to next-in-class. | 


|QRQN(IPW$DQR) | 






| Write new record. | 




| IPW$WTQ | 
| Chart AE | 




| Reset backward pointer to first-in- j 


|QCQP(IPW$DQC) | 






|class. | 








| Write back old record from auxiliary | 




1 IPW$WTQ | 




|area. j 




| Chart AE | 


|AQ55 


|Add to Middle of Chain I 


|QRQP(IPW$DQR) | 






|Set backward pointer to previous- in- 1 






(class. | 








| Set forward pointer to next-in-class. | 


|QRQN(IPW$DQR) ) 






j Write new record. . | 




| IPW$WTQ | 
Chart AE ( 




(Reset forward pointer to next- in- | 


|QCQN(I.PW$DQC) j 






| class. | 








(Write previous record back-. | 




| IPW$WTQ | 




iRead next record,. | 




IPW$RDQ | 
| Chart AE | 




| Reset backward pointer to next-in- | 


|QCQP(IPW$DQC) | 






|class. | 








(Write next record back- | 




j IPW$WTQ | 
| Chart AE | 


|AQ60 


|Add to End of Chain ( 


(CTQL(MCT) | 






(Translate and store last-in-class | 






| pointer. j 








| Set forward class pointer to zero,. | 


|QRQN(IPW$DQR) | 




|AQ63 


| Set backward pointer to previous-in- | 
|class. J 


|QRQP(IPW$DQR) | 






| Write new record. | 




IPW$WTQ | 




(Reset forward pointer to last- in- | 


|QRQN(IPW$DQR) | 


| Chart AE | 




(class. | 








| Write back old record. | 




| IPW$WTQ j 
Chart AE | 


|AQ65 


|Add Complete Chain | 


(CTQF(MCT) | 






(Translate and store first-in- class,. | 






| Last- in- class pointers in MCT. | 


(CTQL(MCT) | 






|Set backward class pointer to zero,. | 


|QRQP(IPW$DQR) I 






|Set forward class pointer to zero. ( 


JQRQN(IPW$DQR) | 






(Write new record. | 


1 1 


| IPW$WTQ | 


L 


-J- lL 


i i 

J. i L 


| Chart AE | 

L J 
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r 

| Labels 

h 


-T 

| Chart DB03: IPW$$AQ - Add Queue Set to Chain 

- + T 

I Function Exit j 


_ T 

(Modified Data 
| Fields 

_x 


-i 

jReg. 
| Usage 

-+ 


— ^ 

(Calls 

-+ 


|AQ70 


j reader task or a non-RJE task,, branch j 

| to . . > 1 AQ 7 1 






| If the queue set is added for an RJE | 
jtask, branch to........................ >|AQ73 








|AQ71 


| Post the ECB in the class table | 
| entry. | 

(Branch to exit*,. ..,..,.,.,.,.,..,....,.,.,.. . >|AQ88 


|CTQL(IPW$DCT) 






|AQ73 


| Set up register 1 as a base register | 
jfor the LCB chain,. | 




|R1 




|AQ74 


|Scan the LCB chain for an LCB | 

|If not found # branch to....,.,.,.,..,..,. >|AQ80 








|AQ75 


|Set up a count for scanning the | 
| class bytes in register 2, and the | 
lvalues for the list or punch task in | 
| registers 3 and 4. | 




| R2 , R3 , 
|R4 


' 1 


|AQ76 


| Scan the class bytes in the LCB to | 
| check whether the class of the new | 
| queue set matches any of them. If | 
| so, branch to,. ........... . . • . ,. . ,. - . . - > | AQ77 










| Otherwise,, branch to exit....-.-.,.,.,.. >|AQ88 








JAQ77 


| Set output switches in the LCB.. ) 

| Branch to exit .••••••.....•....•..• > | AQ 8 8 


|LCBOUT(IPW$DLC) 






|AQ80 


1 Check whether RJE, SNA support has | 
| been specified at POWER/VS | 
| gene rati on. If not, branch to exit >|AQ88 

| Lock the SNA control block. ] 

| Establish addressability for the SNA | 
| unit control block chain in register | 
|3. | 




|R3 


|IPW$RSR 
(Chart AB 




| If no SNA unit control block is | 

| present, branch to................... >|AQ87 


-X 


3 

_x 




L 


-X X 


x 






'\y 
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r 

| Labels 

L - — - 


~T 

| Chart DB04: IPW$$AQ - Add Queue Set to Chain 

_x _ _ _ __ _ 


~T 

(Modified Data 
(Fields 

x— —— _«..-. - 


— T 

] Reg.. 
] Usage 


"T 

(Calls 

_X— „—-.«.„. 


r 

JAQ81 


j. - - — _ T _ _ 

| Scan tne SNA unit control block chain | 
|for an SNA unit control block | 

j If not found f branch to.,,. ..«.». >]AQ87 


T 


— t 


~T 


|AQ83 


| Point to first (next) device entry. ] 

| If device is RDR, f branch to. ....... >|AQ8 7 

|then branch to..-.,,,..,,,.,..,.,,,.. >|AQ83 

| If device is not started or device | 

| not available... >|AQ83 

| Scan for matching class. If not | 

| found , branch to. ................... . >|AQ83 








|AQ86 


(Set device not available and output | 
| available. | 


|SUL1(IPW$DSU) 






IAQ87 


| Unlock the SNA control block. | 






] IPW$RLR 
| Chart AB 


|AQ88 


(Check whether the TCB belongs to a ] 
| command processor task. If so,, ] 
(branch to. . . >| AQ8 9 

(Unlock the disk management block. | 






j IPW$RLR 
| Chart AB 


I AQ89 


| Set the function track byte in the | 
(TCB to C'E 1 to indicate processing ) 
(complete. | 

(Return to calling routine. | 

(Relative to Absolute Seek Address | 


|TCFT(IPW$DTC) 


JR0„R1„ 
|R3 


| IPW$RET 




(Conversion Subroutine | 




|AQ90 


(The relative queue record address | 
| passed in register 1 is converted to j 
(an absolute seek address which is | 
(stored in the eight byte receiving | 
| field addressed by register 2. | 






(Return to caller via register 14. | 




|R14 






(Absolute to Relative Seek Address | 




|RG,R1 






(Conversion Subroutine ( 




|AQ95 


(The absolute seek address addressed | 
| by register 2 is converted to a j 
(relative record address which is | 
| returned to the caller in register 1. | 






(Return to caller via register 14.. | 




|R14 
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CHART DC: IPW$$NQ - GET NEXT QUEUE SET FROM CHAIN (3 PARTS) 



Chart DCOO: IPW$$NQ - Get Next Queue Set from Chain,, General Flow and Macro Calls 






IPW$$LW 




IPW$$XR 


Logical Writer 


Execution Reader 













I 



IPW$$NQ - Next Queue Function 



Label 



NQOO 
NQ01 
NQ20 
NQ81 



Routine 



Function entry 
Examine class table 
Examine active class chain 
Function exit 



I 



IPW$$LW 



Logical Writer 



Functions/ 
Interfaces 



Services 



A,G 
D 

C,E,F 
B 



1 



IPW$$XR 



Execution Reader 



Services 



IPW$$NU 


Macro 


Ref. 


Chart 


Resource Management 


A 
B 

C 
D 

E 
F 

G 


AB 
AC 
AE 
AF 


tPW$RSR 
IPW$RLR 


Storage Management 


IPW$RSW 
IPW$RLW 


Disk Service 


IPW$RDQ 
IPW$WTQ 


Tape Service 


IPW$RDT 



(f ; 
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I Labels 



Chart DC 01: IPW$$NQ - Get Next Queue 
Set from Chain 



Modified Data 
Fields 



, --j 1 

Reg. | Calls 
Usage | 
+ 



|NQSD 



|NQ00 



|NQ02 



JNQ08 



INQ10 



|NQ14 



|NQ20 



|NQ30 



The first 16 bytes constitute the 
section descriptor: 

• NQCS V7M0 ' 

Function Entry 



Save caller registers 14 through 9 
inclusive. 

If tape spooling: 

Read header record into queue record 

area. 

Exit .... . i. . .. . . ...... . . . . . .. . . . . . . . ,. . > 

Set function track indicator to N 
(get next in progress). 
Set addressability for disk 
management block (DMB) . 
Lock DMB. 

Examine Class Table 



Scan task class list in TCB and 
examine each class task entry in turn 
If no entry is active (ECB posted) : 

Release queue space 
Reset space address 

Reset function track indicator 

(blank) 

Exit ...... .. ,. ,. .. * • .. . ,. .. ■. .. . ,. .. ; . -. ,. > 

Examine Active Class Chain 



Translate relative pointer to first- 
in* class . 

Read queue record in turn in 
auxiliary area. 

Spool management GETSPOOL request? 

If no,, branch to. ............... .*.. > 

Positioning requested? 

If no,, branch to . . , m ,. . . ...... ,. . ,. ,. - ,. ,. > 

Positioned on Q-record for job given 

in spool parameter list (SPO? 

If no,, branch to . . . . . . . .. » ...... - . .. ,. > 

Job for Q-record currently printing? 
If yes, branch to. ................ .,. > 

Q- record dispatchable? 

If yes,, branch to..................... > 



NQ8 5 



1MQ82 



NQ35 
NQ35 

NQ4 
NQ40 
NQ7 



IPW$DSV 



TCFT(IPW$DTC) 



TCQA(IPW$DTC) 
TCFT(IPW$DTC) 



QCQW(IPW$DQC) 



|IPW$RDT 
(Chart AF 



! 

|IPW$RSR 
| Chart AB 



I 



1 



j IPW$RSW 
| Chart AC 



JIPW$RDQ 
(Chart AE 
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Labels 



Chart DC01..1: IPW$$NQ - Get Next Queue 
Set from Chain 



(Modified Data 
(Fields 



Reg* 
Usage 



Calls 






NQ35 
NQ40 

NQ70 



NQ80 



Indicate that the record is not 
positioned. 

The record is tested for dispatching. 

If no record is dispatchable unpost 
class entry. 

Set execution switch,. 
Write record back. 

Reserve- queue space if necessary and 
save its real and virtual addresses. 
Store queue record seek address. 

Move queue record from auxiliary area 
to queue space. 



NQ01 



I 

| SPR3(SPL) 

I 



|CTQF(MCT) 

I 

I 
|QCXS(IPW$DQC) 

I 
I 
I 

|TCQA(IPW$DTC) 
|TCQW(IPW$DTC) 

I 

|QRDS(IPW$DQR) 

I 



I 



IPW$WTQ 
Chart AE 
IPW$RSW 
Chart AC 



I 

.JL- 
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( 



r 

| Labels 


~T 

| Chart DC 02: IPW$$DQ - Get Next Queue 
(Set from Chain 
_+ T 

| Function Exit I 


T 

(Modified Data 
(Fields 
„ + 

|TCFT(IPW$DTC) 


-c 

|Reg. 
(Usage 

-+ 


-1 

(Calls 
-+ ~ 


I NQ81 


[Set the function track byte in the | 
|TCB to CI' to indicate open for | 
| input. | 




|NQ82 


(Check whether the TCB belongs to a | 
| command processor task. If so,, | 
f branch to.. ........ . .. ......... > ) NQ 8 5 

(Unlock the disk management block. ] 






] IPW$RLR 
(Chart AB 


|NQ85 


(Check if queue space is present. If | 
(so, branch to. .................... . >]NQ89 










(Check if the requesting task is an | 
|RJE„SNA writer task. If not,, branch | 
|to ..... .*. * >|NQ89 










|Set up the no list r or no punch | 
| output available indicator in j 
| register 4,. | 




]R4 




(^NQ86 


(Establish addressability to the LUCB j 
| in register 8. ( 

(Establish addressability to the | 
| device entry in the SUCB in register | 
1 8. 1 

| Indicate no output available. | 


] SUL1S(IPW$DSU) 






|NQ89 


| Return to calling routine. | 
(Relative to Absolute Seek Address | 




|R0,R1, 
|R3 


| IPW$RET 




(Conversion Subroutine | 




|NQ90 


|The relative record address passed ( 
|in register 1 is converted to an j 
(absolute seek address which is stored| 
j in the 8-byte field addressed by ( 
(register 2. | 




L «. 


(Return to caller via register 14. | 

— JL IL 


X 


|R14 
— 1L 


-A 
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CHART DD: IPW$$DQ - DELETE QUEUE SET FROM CHAIN (3 PARTS) 



Chart DDOO: IPW$$DQ - Delete Queue Set from Chain,, General Flow and Macro Calls 






IPW$$TR 




IPW$$LW 




IPW$$XR 




IPW$$CP 


Task Terminator 


Logical Writer 


Execution Reader 


Command 
Processor 




I 




II 




If 




1 





I 



I 



IPW$$DQ - Delete Queue Function 



<£ 



Label 



DQOO 

DQ32 
OQ36 
DQ40 
DQ44 
DQ50 



IPW$$TR 



Task Terminator 



Routine 



Function entry 
Examine queue record 
Delete first in class 
Delete middle in class 
Delete last in class 
Delete complete chain 
Function exit 



Functions/ 
Interfaces 



Services 



A,E,F 

C,D 

C,D 

C,D 

C,D 

D,B 



I 



IPW$$LW 



Logical Writer 



I 



IPW$$XR 



Execution Reader 



1 



IPW$$CP 



Services 



Command 
Processor 



IPW$$NU 


Macro 


Ref. 


Cnart 


Resource Management 


A 
B 

C 
D 

E 
F 


AB 
AE 
AF 


IPW$RSR 
IPW$RLR 


Disk Service 


IPWSRDQ 
IPW$WTQ 


Tape Service 


IPW$CTT 
IPW$RDT 



v.„y 
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( 



Labels | 


Chart DD01: IPW$$DQ - Delete Queue 




Modified Data | 


Reg* 


Calls 




Set from Chain 


Fields | 


Usage 




™- 


I- r — _ — _„.| 


*. ^ 1 




DQCS | 


The first 16 bytes constitute the 
section descriptor: 

•DQCS V10M0 • 










DQOO 


Function Entry 




IPW$DSV | 






Save caller registers 14 through 9 


















Set addressability for queue record 






R5 






area. 












If no tape spooling,, branch to.*... > 


DQ01 










Read in the trailing queue record. 








IPW$CTT 
Chart AF 
IPW$RDT 
Chart AF 




Branch to. ••....••••.. <• • • • .. . .. * • .. .. . ,. > 


DQ55 








DQ01 


Set function track indicator to D 

(delete in progress) . 

Set addressability for disk 

management block (DMB) . 

Lock DMB. 




TCFT(IPW$DTC) . | 


R6 


IPW$RSR 
Chart AB 


DQ08 


Save "flush hold" indicator from 

current queue record. 

Save remaining copy count from 

current queue record. 

Save current copy group index 

Save remaining restart page count 

from current queue record. (It still 

exists if PSTOP r RESTART was 

entered) . 

Examine Queue Record 






R4 

R4 

R4 
R8 




Read first-in-set queue record. 


IPW$RDQ 




If the previous class pointer 








Chart AE 




addresses the record itself,, the 












queue set was not yet added to a 












class chain. • <••••••• ... -• . . . • <• •<•.....• > 


DQ52 
DQ20 










If request from command processor. . > 










If " keep' disposition* change it to 




QRDP(IPW$DQR) 








"leave". 












If FLUSH,, HOLD was entered 




QRDI(IPW$DQR) 








reset saved indicator and set saved 




QRCR(IPW$DQR) 


R4 






copy count. 












Set saved copy group index 




QRCI(IPW$DQR) 








Branch. . . <• .. ,. . . . . . .. .. . .. . . . . . . ,. . .. . .. . ,. .. > 


DQ16 










If "flush hold" disposition,, change 




QRDP(IPW$DQR) 








it to "hold",, reset saved 




QRDI(IPW$DQR) 








"flush hold" indicator and set saved 




QRCR(IPW$DQR) 


R4 






copy count- 










DQ16 


Reset execution switch. 




QRXS(IPW$DQR) 








Set saved remaining restart page 




QRRR(IPW$DQR) 


R8 






count. 










L J 


L 11 





i; 


„. 


L 
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Labels 



Chart DD01.1: IPW$$DQ - Delete Queue 
Set from Chain 



Modified Data 
Fields 



Reg. 
Usage 



Calls 



DQ20 



DQ32 



Reset execution switch. 
Rewrite the record. 



Exit. 



Determine position in class chain by 
examining the class chain pointers: 

Delete first in class........*....... > 

Delete middle in class............. > 

Delete last in class............... > 

Delete complete chain.. ........> 

Delete First- in-Class Set 



Read next first- in- set queue record 

in the auxiliary record area of the 

DMB. 

Zero its previous class pointer. 

Rewrite this record. 

Store new forward pointer in class 

table entry. 

Exit... . . ....... .... ...... ....... ..... 



DQ52 



DQ32 
DQ36 
DQ40 
DQ44 



DQ50 



QRXS(IPW$DQR) 



QCQP(IPW$DQC) 
CTQF(MCT) 



IPW$WTQ 
Chart AE 



IPW$RDQ 
Chart AE 



IPW$WTQ 
Chart AE 






x ...y 
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I Labels 



( 



Chart DD02: IPW$$DQ - Delete Queue Set 
from Chain 



Modified Data 
Fields 



Reg* 
Usage 



Calls 



JDQ36 



|DQ40 



|DQ44 



( 



JDQ50 



|DQ52 



|DQ55 



|DQ90 



Delete Middle-in-Class Set 



Read previous and next first-in-set 
queue records in turn. 

Exchange class pointers. 

previous record - forward pointer 
next record - previous pointer 

Write the records back in turn. 

Exit . > 

Delete Last- in-Class Set 



Read previous first-in-set queue 

record. 

Zero its next class pointer.. 

Rewrite this record. 

Store new backward pointer in class 

table entry. 

Set live bit (class ECB) . 

Exit . > 

Delete Complete Chain 



Zero forward and backward pointers in 
the appropriate class table entry. 

Function Exit 



Set previous set pointer. 
Reset execution switch. 
Rewrite the record. 

Set function track indicator to C'U' 
(unchained) . 

Unlock DMB. 

Restore caller registers and return. 
Absolute to Relative Seek Address 



Conversion Subroutine 



The absolute seek address addressed 
by register 2 is converted to a 
relative record address which is 
returned to the caller in register 1. 

Return to caller via register 14,. 



DQ50 



DQ5 



QCQN(IPW$DQC) 
QCQP(IPW$DQC) 



QCQN(IPW$DQC) 

CTQL(MCT) 
CTQL(MCT) 



CTQF(MCT) 
CTQL(MCT) 



QRQP(IPW$DQR) 
QRXS(IPW$DQR) 



TCFT(IPW$DTC) 



R14-R9 



R0, f Rl 
R3 



R14 



IPW$RDQ 
Chart AE 



IPW$WTQ 
Chart AE 



IPW$RDQ 
Chart AE 

IPW$WTQ 
Chart AE 



IPW$WTQ 
Chart AE 



IPW$RLR 
Chart AB 
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CHART DE: IPW$$FQ - FREE QUEUE SET STORAGE (2 PARTS) 



Chart DEOO: IPW$$FQ - Free Queue Set storage,. General Flow and Macro Calls 



w 



IPW$$LW 




IPW$$XR 




IPW$$CP 


Logical Writer 


Execution Reader 


Command 
Processor 










1 









I 



IPW$$FQ Free Queue Function 


Label 


Routine 


Functions/ 
Interfaces 


Services 


FQOO 

FQ50 
FQ52 


Function entry 
Examine queue record 
Update free queue 
Function exit 




A 
C 

C,D 
B 







I 



IPW$$LW 



Logical Writer 



I 



IPW$$XR 



Execution Reader 



1L 



IPW$$CP 



Command 
Processor 



Services 



IPW$$NU 


Macro 


Ref. 


Chart 


Resource Management 


A 
B 

C 
D 


AB 
AE 


IPW$RSR 
IPW$RLR 


Disk Service 


IPW$RDQ 
IPW$WTQ 



V 



s 
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c 



r 


_ T 




T 


— T " 


-T 


| Labels 


| Chart DE01: IPW$$FQ - Free Queue Set 




[Modified Data 


1 Reg. 


[Calls 




| Storage 




| Fields 


] Usage 






_j_ ^ 




j «_ 


x 


_JL 




.j r 


— .| — 


— T 


T 


|FQSD 


| The first 16 bytes constitute the 
(section descriptor: ! 

| ■ FQCS V7M0 ' | 

| Function Entry 




|IPW$DSV 








| Save caller registers 14 through 9 | 


















| If tape spooling for this task, exit j 












| to. .... * . ,. * ,. ,. ,. . . . . . ............ . .. ,. ,. > 


FQ65 








|FQ02 


| Set track action indicator F 

| Set addressability for: 

| Queue record area (QRA) 
|Disk management block (DMB) 

|Lock DMB. I 

I Examine Queue Record 




|TCFT(IPW$DTC) 


|R5 

|R6 


|IPW$RSR 
[Chart AB 




| If "leave' or 'hold' disposition,, 






| exit .... . .. .......... . ,. . ...*..,.... . . > 


FQ60 










| If the queue set was not yet added. > 


FQ5 










| Read first-in-set queue record (if 








JIPW$RDQ 




j any) . 








[Chart AE 




| Update Free Queue 




|QCBF(IPW$DQC) 






[FQ50 


| Clear auxiliary queue record area. 






| Set free record identifier. 




|QCQI(IPW$DQC) 






|FQ51 


[Copy forward pointer from master 

j record. 

[Copy track group pointer from QRA. 

| Set seek address in disk request word 

|in DMB,. 

[Write new first- in-set: in free queue.. 

[Update master record with first in 

j queue pointer. 

| Increment number of free queue record 

[and CAT. 

| If last- in- set,, exit. ........ .,.,..,.,. > 

[Read next~in-set queue record,, and 


JFQ5 2 


|QCNS(IPW$DQC) 

|QCDF(IPW$DQC) 
|QCQW(IPW$DQC) 

|MRQF(IPW$DQC) 
|NRQF(IPW$DPA) 




|IPW$WTQ 
| Chart AE 

| IPW$RDQ 




[ branch back. • ••••••.«•• •..••••••••.,• >. > 


IFQ51 






1 Chart AE 




I Function Exit 


JQCEB(IPW$DQC) 




I V^lidi. l_ iT.i_l 


[FQ52 


|Post ECB in DMB.. 




[FQ60 


[Set function track indicator to CE" 
j (processing complete) . 


\ 


|TCFT(IPW$DTC) 








[Unlock DMB. 






| IPW$RLR 












| Chart AB 


[FQ65 


[Restore caller registers and return. 






|R14-R9 
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DATA FUNCTIONS 



CHART EA: IPW$$PD - PUT DATA RECORD (4 PARTS) 



k 



,^y 



Chart EAOO: IPW$$PD - Put Data Record, General Flow and Macro Calls 



IPW$$LR 




IPW$$XW 


Logical Reader 


Execution Writer 




1 




i 











I 



IPW$$PD - Put Data Function 



Label 



PDOO 
PD40 

PD70 



Routine 



Function entry /ex it 
Increment disk address 

Write block to disk 



I 



Functions/ 
Interfaces 



Services 



A,B,C, 
D,F 

E,G 



IPW$$LR 



Logical Reader 



1 



IPW$$XW 



Execution Writer 



Services 



IPW$$NU 


Macro 


Ref. 


Chart 


Task Management 


A 

B 
C 

D 

E 
F 

G 


AA 
AB 

AE 
AF 


IPW$WFC 


Resource Management 


IPW$RSR 
IPW$RLR 


Disk Service 


IPW$RDQ 
IPW$WTD 
IPW$WTQ 


Tape Service 


IPW$WTT 



V, 
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( 



r 

| Labels 

|PDSD 


•1 

j Chart EAOl: IPW$$PD - Put Data Record 

^ , 

|The first 16 bytes constitute the 
| section descriptor: 


1 

r 


r 

Modified Data 
Fields 




— T 

|Reg. 
| Usage 

-+ 


~l 

(Calls 

-+ 




| ' PDCS V7M0 • 














|PDOO 


| Function Entry 


9 inclusive 




IPW$DSV 








| Save registers 14 through 






| If end-of -block posted in 


TCGP 


> 


PD19 










(Suppress trailing blanks . 
| and reset record length. 


in record 






TCRL(IPW$DTC) 






|PD10 


| Store address of this record. 






TCPR(IPW$DTC) 








(If record does not fit in 
1 block .................... 


current 


^> 


PD3 










| format record within current block: 














| store record length 
(store general purpose byt 
I store command code 
|move record to block 


e 






DRRL(IPW$DDR) 

DRGP(IPW$DDR) 

|DRCC(IPW$DDR) 

DRDT(IPW$DDR) 








| Store remaining capacity 

J block. 

(Update record counter. 


in current 






TCBC(IPW$DTC) 
QRNR(IPW$DQR) 






|PD17 


| If normal record, restore 
(and return to caller. 

| If data break record..... 

| If end of data record...-. 


registers 


> 
> 


PD20 
PD25 




JR14-R9 






( Handlinq of Special Conditions 












|PD19 


(Unexpected end of input: 








| Indicate end of block in ] 

| record if available 

| Write data block......... 


previous 


> 
> 


PD70 
|PDU0 
PD17 


DRGP(IPW$DDR) 








| Update disk request word. 
(Return to caller......... 






|PD20 


|Data break: 

(Write data block......... 




> 
> 

> 


PD70 
|PD4 
PD17 










| Update disk request word. 
(Return to caller........... 







|PD25 


(End of data. 

| Write data block*. • * >• . <• •• . • 




> 
> 


PD70 
|PD17 










| Return to caller......... 
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Labels | Chart EA02: IPW$$PD - Put Data Record 



h 



PD30 



PD40 



| No room in current block: 



I Indicate end-of-block in previous | 

| record. | 

| Write data block,. . . . • . .... » . . * * >. , , . > | PD70 

I Update disk request word, ... . . . . . . . > | PD4 

| Ha nd le c u r re nt record . ,. ,. . .+ . ,. . ,. . .. . .. ,. > ) PD 1 

I Increment disk address subroutine,. j 

I I 

) If disposition field indicates tape | 

spoo li ng t return,. .» . * <• . . ,. . . . . » . ,. . . . ,. > | PD 1 7 

I Set function track indicator to "R,. | 

I I 

j Set addressability for DMB. J 

j Update seek address record number. | 

I I 

| If track group is exhausted: | 

I I 

(Lock DMB. ] 
I If no queue record available (MRQF-0) | 

I I 

I • issue warning message 1Q38I ] 

]• unpost ECB in DMB J 
I • unlock DMB | 

I 1 

\ • wait for queue record (posting of | 

I ECB) j 
I • lock DMB I 

I ! 

(Address free queue record "and read it| 

| into the auxiliary area. | 

I I 

(Update next-in-set pointer and J 
j write current queue record. | 

I I 

| Update statistical information in CAT] 



decrement number of available 

queue records 

calculate maximum queue records in 



use 



I 

I 

(Update queue record area: 

I 

|« set first-in-set switch off 

| • set next- in- set pointer to zero 

| » copy track group pointer from 

j auxiliary 

I 

[Update logical work space in TCB: 



queue record seek address 
data record seek address 



I 

1 

I 

| Write master record back. 

I Unlock DMB . 

jSet function track indicator to 0. 

I Return to caller. 



(Modified Data 
| Fields 

I 
I 

|DRGP(1PW$DDR) 

I 
t 



I 
I 

|TCFT{IPW$DTC) 



1TCDWCIPW$DTC) 

I 

I 



]QCEB(IPW$DQC) 

I 

I 



I I 

1 1 

|QCQW(IPW$DQC) j 

}QCDS(IPW$DQC) ] 

I I 

]QRNSCIPW$DQR) | 

I I 

I 1 

I J 

I I 

jNRQR(IPW$DPA) j 

1 I 

|NRQM(IPW$DPA) 1 

1 I 

J ! 

I I 

I I 

|QRFS(IPW$DQR) ] 

|QRNS(IPW$DQR) j 

| QRDF(IPW$DQR) ] 

I 1 

I I 

! I 

I I 

jTCQW(IPW$DTC) j 

|TCDW(IPW$DTC) ] 

I I 

I 1 

i 1 

JTCFTCIPW$DTC) j 



J Calls 



(Reg. 
| Usage 

1 I 

1 I 

3 I 

1 I 



1 



-H 



IR6 



I 
I 

I IPW$RSR 

(Chart AB 

I 

I 

I 

| IPW$RLR 

(Chart AB 

I IPW$WFC 

(Chart AA 

|IPW$RSR 

(Chart AB 

j IPW$RDQ 

(Chart AE 

I 

| IPW$WTQ 
(Chart AE 



1 



I 



I 






| IPW$WTQ j 

J IPW$RLR | 

j Chart AB j 

i ] 



\^ 



v,..y 
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-T — 



( 



( 



| Labels 
|PD70 


| Chart EA03: IPW$$PD • Put Data Record 

|. -, 

1 Write Block Subroutine 




PD77 


| Modified Data 
| Fields 
-- + 


|Reg* 
| Usage 
-\ 




| If tape spooling in disposition 

| field in queue record, write tape 

| record .......... , . . . < , > | 






|Set function track indicator to P. 




|TCFT(IPW$DTC) 




|PD75 


|If this is not execution processor,, | 
| branch to.......................... > 


PD76 








|Turn off double buffering ECB, 




|TCED(IPW$DTC) 






| If TCDB not equal C'2',, branch to.. > 


PD78 








| Wait for second buffer to be written. 








|PD78 


1 branch to . • ••••••• '•••••••••••••••.• • > 


PD76 


|TCDB(IPW$DTC) 






|Set double buffer switch. 




|PD76 


| Write block to disk . 








|PD77 


|Set function track indicator to O. 




|TCFT(IPW$DTC) 




|PD77 


|The output block area is reset to 
| zeros. 

|The remaining block length is reset. 
|The previous record pointer is reset 
|to start of block. 




| IPW$DDR 

|TCBC(IPW$DTC) 
|TCPR(IPW$DTC) 





I Calls 



•+ ^ 



| IPW$WTT 
I Chart AF 



| IPW$WFC 
Chart AA 



| IPW$WTQ 
I Chart AE 
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| CHART EB: IPW$$GD -■ GET DATA RECORD (4 PARTS) 



Chart EBOO: IPW$$GD - Get Data Record,, General Flow and Macro Calls 



IPW$$LW 




IPW$$XR 




IPW$$XJ 


Logical Writer 


Execution Reader 


Scan 

Execution 

JECL 




I 




I 









I 



IPW$$GD Get Data Function 


Label 


Routine 


Functions/ 
Interfaces 


Services 


GDOO 
GD20 
GD40 
GD55 
GD60 
GD70 
GD80 


Function entry 

Double buffering processing 

Increment disk address 

Function exit 

Get next track group 

Check next data block address 

Increment disk address (subroutine) 




A,D 

B 

C 

B,C 







I 



IPW$$LW 



Logical writer 



I 



IPW$$XR 



Execution Reader 



I 



IPW$$XJ 



Scan 

Execution 

JECL 



Services 



IPW$$NU 


Macro 


Ref. 


Chart 


Storage Management 


A 

B 
C 

D 


AC 
AE 

AF 


IPW$RSW 


Disk Service 


IPW$RDD 
IPW$RDQ 


Tape Service 


IPW$RDT 



f - 
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( 



| Labels 

,. H 

JGDSD 


Chart EB01: IPW$$GD - Get Data Record (Modified Data I Reg. 

| Fields | Usage 
y T + + j 

The first 16 bytes constitute the | | 
section descriptor; | | 
■GDCS V10M1 ' | J 


Calls | 
«l 


|GD00 


Function Entry 




| IPW$DSV 






Save caller registers 14 through 9 
inclusive (IPW$SAV) . 




Set up addressability for the queue 
record. 






|R5 






If a data buffer is present,, branch 
to .......•..•.•...«•,•.• •> 


GD02 


|TCDA(IPW$DTC) 




IPW$RSW 
Chart AC 


Reserve a new data buffer. 
Store buffer pointers. 




Force end of buffer. 




|TCPR(IPW$DTC) 






GD02 


Check the record address. If the 
buffer is empty, branch to........* > 

If the data file is located on disk,, 
branch to ......................... ,. > 

Set the function track byte to 
C'G'. 


GD40 
GD03 


TCFT(IPW$DTC) 


jR8 






Read tape block. 

Branch to continue . ................. > 


GD40 




t 


IPW$RDT 
Chart AF 


GD03 


Set addressability for DMB 






R6 






If double buffer processing, branch 
to > 


GD20 




R3 




Load address of disk request word 
in Register 3. 




Check if the current data block 
still belongs to the track group; 
branch to > 


GD70 
GD05 








If yes, branch to > 




Otherwise, get next queue record and 
first data block; branch to > 


GD60 








GD05 


Branch to continue > 


GD40 
GD65 






1 


Get next data block, branch to..... > 


— , - - 


Continue; branch to > 


GD40 






i 


L— 1 
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Labels 


r i 

Chart EB02: IPW$$GD - Get Data Record 


Modified Data 
Fields 


Reg . 
Usage 


Calls 


GD20 


Double Buffer Processing 






RE 




Load register 14 with return address. 




If the next data block belongs to the 
next track group, branch to... > 


GD60 










If this is the first time through, 
branch to > 


GD65 










Swap the buffers pointers. 




TCDW(IPW$DTC) 
TC2DW(IPW$DTC) 


R0,R1 






Indicate that the buffer is empty. 




TCPR(IPW$DTC) 


R8 




GD2 4 


Address the disk request word by 
using Register 3. 












Increment disk address (update the 
record address to the next record on 
the track) , branch to > 


GD80 


TC2DW(IPW$DTC) 


R1 

RE 






Check if the next data block belongs 
to the same track group, branch to. > 


GD70 




RE 






If yes, branch to > 


GD30 


TCFT(IPW$DTC) 
TC2DW(IPW$DTC 






Set function track byte to C'G' . 
Update disk request word with old 
seek address. 




Read old data block to make sure that 
previous I/O is completed. 








IPW$RDD 
Chart: AE 




Indicate next block is not read in 
branch > 


GD40 


TC2DW(IPW$DTC) 






GD30 

GD4 

i 


Set function track byte to C'G 1 

Read in next data block on the second 

data buffer. 

Branch to > 


GD40 


TCFT(IPW$DTC) 

TCCC(IPW$DTC) 
TCGP(IPW$DTC) 
TCRV(IPW$DTC) 
TCRL(IPW$DTC) 
TCPR(IPW$DTC) 




IPW$RDD 
Chart : AE 


Locate the next record within the 
block and set the appropriate value's 
in the record control word: 

• Command code. 

• General purpose byte. 

• Record address. 

• Record length. 

• Record pointer. 




Check for a break condition or end of 
block. If not, branch to. > 


IGD55 










Increment Disk Address 


1 


TCPR(IPW$DTC) 






Reset record pointer to start of 
block. 






In case of tape spooling,, exit..... > 


|GD55 


1 

L 


I 
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Labels 


Chart EB02: IPW$$GD - Get Data Record 




Modified Data 
Fields 


Reg. 
Usage 


Calls 




In case of double buffer processing, 
branch to > GD55 










Update the record address to the 
next record on the track; branch to > 


GD80 


TCDW(IPW$DTC) 


R1 ,R3 




GD55 


Function Exit 




TCFT(IPW$DTC> 








Reset function track indicator to I. 





I I 



I 

Restore registers and return to 
caller. 

I. 


: 


; 



2 1 

R14-R9 

4- 




Get next trackcjroup 










This subroutine reads the next queue 
record in set and/or reads in the 
next data block respectively. 


GD60 


Get the next queue record in set. 

Set function track byte to C'N'. 

Save the job suffix number in 
register 4. 

Read in next queue record. 

Restore the job suffix number. 

Update the disk address to the first 
data block of the new track group 




TCQW(IPW$DTC) 
TCFT(IPW$DTC) 

TC2DW(IPW$DTC) 


R4 


IPW$RDQ 
Chart: AE 


GD65 


Set the function track byte to C f G'. 
Read in the data block. 




TCFT(IPW$DTC) 




IPW$RDD 





Return to caller > 

1 


RE 

1 







Chart: AE 
1 1 
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I 

Labels 


j 

Chart EB03: IPW$$GD - Get Data Record 

l_ r 


! 

Modified Data 
Fields 




Reg. 
Usage 

; 


I 

Calls 




1 Check Next Data Block Address 

address (seek addr.) of the next data 
block to be read in belongs to the 
current track group. 

Registers on entry: 

R3 addresses the disk request word 
RE return address of caller 

Register upon exit: 
R1 destroyed 

Exits: 

0(RE) taken when data block fits 
4 (RE) taken when data block does 
not fit. 




p.— -.——_.— «._— _————_—. 






GD70 


If the new data block belongs to the 
same track, return to caller. > 

If the next block is on the next 
track, update the disk address 
(track number) . 

If the next track belongs to the same 
track group, return to caller > 

Otherwise, return to caller via 
register 14 with a displacement of 4. 

Increment Disk Address Subroutine 

This subroutine increments the 
current data block seek address to 
address the next data block. 
No check is made if the data block 
fits in the track group. 

Registers on entry: 

R3 addresses disk request word 
RE return address of caller 

Register upon exit: 
R1 destroyed 


RE 

RE 
4 (RE) 


\ 




-.. \ 


GD80 


Update the seek address of the data 
block: The record number is 
incremented by one. 








i 
/ 




Return to caller > 


RE 
















\ y 



v..y 



^,s 
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ACCOUNT FUNCTIONS 



C 



' CHART FA: IPW$$PA - PUT ACCOUNT RECORD (8 PARTS) 



Chart FAOO: IPW$$PA - Put Account Record, General Flow and Macro Calls 





IPW$$LR 




IPWSSLW 








Logics 


Reader 

1 


Logical \ 

1 


Writer 




IPW$$PA 


- Put Account Record 




Label 


Routine 


Functions/ 
Interfaces 


Services 


PAOO 


Function Entry 




B 


PA01 


Calculate Capacity Account File 




D 


PAWR 


Prepare Disk Address 






pack: 


Reserve DMB, write Account 
Record, calculate remaining 
capacity 




B,E 


PA10 


Release DMB, write M R 




C,E 


PAEF 


Write EOF Record to Account 
file 




A 


PAEX 


Release ACB 




A,C 


EXIT 


Function Exit 






PAUH 


Update Task Address 






PAUC 


Update Cylinder Address 








i, " ,1 






V 

IPW$$LR 




V 

IPW$$LW 








Logical Reader 


Logical Writer 





Services 



IPW$$NU 


Macro 


Ref. 


Chart 


Task Management 


A 

B 
C 

D 
E 


AA 
AB 

AD 
AE 


IPW$WFC 


Resource Management 


IPWSRSR 
IPW$RLR 


Message Service 


IPW$WTO 


Disk Service 


IPW$WTQ 
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Labels 



Chart FA01: IPW$$PA - Put Account Record 



j Modified Data 
| Fields 
. + 



Reg. 
Usage 



Calls 



\,4 ^X 



"K- 



PACS 



PAOO 



PAOOA 



The first 16 bytes constitute the 
section descriptor: 



' PACS 



V7M0 



On entry, the following register 
contents are relevant: 

: Account record length 
1: Virtual address account record 
area 

The following registers will be used 
by IPW$$PA: 



4 

5 

6 

8 

9 

10 

11 

12 

13 

14 

15 



Track capacity required 

Address of ACB 

Address of DMB 

Save account record length 

Save account record area address 

Address of permanent area 

Address of TCB 

Asynchronous address register 

Address of task save area 

Link register 

Function base address 



Indicate in TCB that write account 
function is active (required by 
termination routine),. 

The task identifier field in the TCB 
is examined. If it is still 
initialization time (autostart 
record),, or PACCOUNT processing is 
going on,, control is passed back to 
the caller. ,. . . • ,. ,. ................ . » > 

The BG communication region is 
examined if job accounting support is 
still active. If yes, branch to... > 

Issue message ' IQ84I' 

and branch to exit > 



Otherwise, indicate no accounting 
support in module load table 

Register 5 is loaded with the ACB 
address. 



EXIT 



PAOOA 



EXIT 



R0 
Rl 



IPW$DAC 
IPW$DQC 



IPW$DPA 
IPW$DTC 



TCFT(IPW$DTC) 



CAPA(IPW$DPA) 



R4 

R5 

R6 

R8 

R9 

RIO 

Rll 

R12 

R13 

R14 

R15 



R2 



R'5 



Y > 



IPW$WTO 
Chart AB 



A„ y 
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( 



Labels 


Chart FA01: IPW$$PA - Put Account Record 


Modified Data 
Fields 


Reg. 
Usage 


Calls 




r — i~ — """ "i 

Register 6 is loaded with the DMB | 
address,. | 

Account record length is saved in | 
register 8. | 

Virtual account record address is | 
saved in register 9. | 




R6 
R8 
R9 




PAAC 


The ACB is reserved for updating. | 

Account record length is examined. | 

If not zero, a branch is made to | 
continue. •••••••••••• ••••• >| PA01 




R8 
R4 


IPW$RSR 
Chart AR 


If zero,, indicating EOF,, register 4 | 
is initialized at 1, and a branch is | 
made to write an EOF record > | PAEF 









( 



288.1 



f 



X. 



I Labels 



h 



Chart FA02: IPW$$PA - Put Account Record 



Modified Data 
Fields 



Reg. 
Usage 



Calls 



IPA01 



( 



IPA02 






The record capacity is calculated: 

Register 4 is loaded with the account 
record length plus 8. 

This value is multiplied by the 
tolerance value in the ACB,, and 
divided by 512. 

The overhead value is added. 

If the 8 percent limit has already 
been passed, a branch is made to 
check for 100 percent........ ,. > 

Otherwise,, the residual IJAFILE 
capacity is loaded in register 2 and 
compared to the 8 percent limit 
va lue . 

If residual capacity is more than 
20 percent,, a branch is made to 
continue ........ . . . ,. ,. ,. ........ ,. ,. ,. ,. ,. > 

Otherwise, the high order bit of the 
20 percent limit value is set to 1 to 
bypass the above comparison on a 
following occasion. 

Message 1Q31I is issued: 

Using register 2 as a work register,, 
the message address is stored in the 
message request word- 
Message 1Q31I is logged. 

If the account file upper limit has 
not yet been reached, a branch is 
made to write the account record..,. > 

Otherwise,, register 4 is incremented 
by one to examine if the current 
account record plus an EOF record 
will fit on the current track,, which' 
is the last of the extent. 

The contents of register 4 are 
compared to the residual capacity of 
the current track. 

If not enough space is left on the 
current track to write account record 
plus EOF record,, a branch is made to 
notify the operator.. .............. ,. > 

Otherwise, register 4 is decremented 
by one again. 

A branch is made to write the account 
record. ,. -. . . . , m . «. -. ,. * . ,. . ,. ,. . .,..,..* . . . ,. » > 



R4 

R4 
R4 
R4 



PA0 2 



PA02 



ACEC(IPW$DAC) 



R2 



TCMW(IPW$DTC) 



IPW$WT0 
Chart a6 



PAWR 



R4 



R4 



ACLC(IPW$DAC) 



PA03 



R4 



PAWR 
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j Labels 

I 

,. + 

IPA03 



1 
I 

JPAWR 

i 



|PA04 
I 



Chart FA03: IPW$$PA - Put Account Record 

This routine issues a message to the 
operator, notifying him that the 
account file is full. 

Register 4 is set to zero to indicate 
wait for full IJAFILE,. 

Using register 2 as a work register,, 
the address of message 1Q32I is 
stored in the message request word (r 
and message 1Q32I is logged. 

The soft wait bit in the ECB is reset 



A branch is made to release the 
ACB ...... -. . . . . • ,. , 



> 



If the account record to be written 
fits on the current track,, a branch 
is made -*-.o continue,. ............. .<. > 

Otherwise, using register 2 as a work 
register,, the residual total capacity 
is decremented by the (now useless) 
residual capacity of the current 
track. 

The account record length (plus 8 for 
disk data management) is loaded in 
register 1 and compared to the 
residual capacity of the current 
track. 



If the account record fits as the 

last record, a branch is made to 

write the account record........... >|PA04 

Otherwise, the current track capacity 
is reset to maximum track capacity 
and a link is made to update track 
address > | PAUH 

Register 7 is loaded with the address 
of the account record count field,. 

The current record address is moved 
to the count field. 

Using register 2 as a work register, 
the record number is incremented by 
one to point to the next account 
record. 



Data length plus 8 is stored in the 
count field, and physical record 
length in register 2 is stored in the 
write data CCW. 



Modified Data jReg. 
Fields j Usage 



I 



PAEX 



PA04 



Calls 



— + — i 



TCMW(IPW$DTC) 



ACEB(IPW$DAC) 



ACAC(IPW$DAC) 



ACLC(IPW$DAC) 



CNTF 
CTRN 



CTRL 



ACRW(IPW$DAC) 



R4 



R2 

R2 



R2 



Rl 



R14 
R7 



R2 



R2 



I 

IPW$WT0 j 

Chart AD I 

I 



v> 



_y 
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Labels | Chart FA04 : 



c 



PAQC 



PA05 



IPW$$PA - Put Account Record 



Actually , the sequence Write Count 
and Write Data CCW consists of two 
Write Count-Key-Data CCWs because the 
count field part resides in fixed 
storage (ACB) , while the data part 
address is variable: 

• The Write Count CCW has a byte 
count of 8, causing writing of the 
Count Field only, 

• The Write Data CCW has a byte 
count equal to the physical record 
length of the account record,. 

When chained together, they act as 
one Write CKD CCW; unchained, the 
first CCW serves to write an EOF 
record.) 

The DMB is reserved for updating. 

If the account record ID is not that 
of an execution processor, a branch 
is made to continue... > 

Register 9 is set to point 8 bytes 
before the account record to provide 
for the control field space. 

^Register 3 is loaded with this 
address and used as a parameter 
register in the subsequent REALAD 
call. 

The corresponding real address is 
stored in the write data CCW. 

The control field is zeroed out, and,, 
using register 2 as a work register, 
the logical record length field LL is 
set up as account record length plus 
4, and the block length as LL plus 4. 

A branch is made to write the account 
record,. ..... ,. ,. . .. ,^ .. ,. ,. . ,. . ,. ,. . ,. ,. , . ,. . » ,. ,. ,. > 

To handle a non-execution-processor 
account record,, the control field 
located in the DMB is cleared,. 

The account record is moved to the 
I/O area in the DMB. 

Using register 2 as a work register,, 
logical record length is set to 
account record length plus 4„ and 
block length to logical record length 
plus 4. 



h 



PA05 



PA06 



Modified Data 
Fields 



+ „. 



ACRW(IPW$DAC) 

AEBL 
AELL 
AEBL 



ACPR(IPW$DQC) 



ACPR(IPW$DQC) 



Reg. 
Usage 



~ir- 



R9 



R3 



R2 



R2 



Calls 



IPW$RSR 
Chart AB 
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| Labels 


~T 

j Chart FA 05: IPW$$PA - Put Account Recc 

.+ 1 

| Register 3 is loaded with the real 

| address of the account record and | 

J beginning of the I/O area. j 

|The real address of the I/O area is | 
| now stored in the write data CCW,. 


>rd 

r 


— T 

(Modified Data 
(Fields 

„ + 

|ACRW(IPW$DAC) 


|Reg. | Calls 
(Usage j 
„ + + 

|R3 | 


|PA06 


|CCB address in the ACB,. | 

|An EXCP is issued to write the | 
| account record to the account file. 

|An IPW$"WFC call is issued to wait for 
| I/O completion. | 






|R1 | 

| j IPW$WFC 
j (Chart AA 


|PA07 


| Register 3 is loaded with the | 
| residual track capacity and 
| decremented with the capacity last 1 
|used as contained in register 4. 

| If negative (in case enough space 

| remained on the track to write just a 

(physical record,, whereas register 4 

| contains physical record length | 

(recalibrated into track capacity),, 

| branch. ,. ,. . ,. ,. ,. ,. ,. . . . . ,. . . ,. . . . . . ,. . •. .... > | 

(Otherwise, the updated residual track j 
| capacity is stored back and,, using 
(register 3 as a work register,, the | 
| residual total capacity is 
(decremented by the amount last used,. 

| Update seek argument in ACB with 
| current record address (CCHHR from 
(count field ACCF of current record). 

|A branch is made to bypass track 

| address updating................... > 


PA08 
PA09 


|ACLC(IPW$DAC) 
| ACAC(IPW$DAC) 

|ACSA(IPW$DAC) 


(R3 I 


|PA08 


|A link is made to update track 

| address. . ,. . . . ,. . ,. ,. .. . . ,. ,. ...... /. <. . . . . . > 

(The residual track capacity is reset 
| to maximum value. 


PAUH 


|ACLC(IPW$DAC) 


(R14 j 


|PA09 


(The current record address is moved 
|to the master record. 

(The sector value is updated for the 
( next cycle. 

| If the record size is not greater 
(than all previous ones, a branch is 
(made to bypass updating maximum 
| record size........................... > 

(Otherwise,, the current record size is 
(made the maximum. 


PA10 


|MRAS(IPW$DQC) 
|ACSE(IPW$DAC) 

j MRAZ(IPW$DQC) 








J 



L X 



X X i JL J 
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T 

Reg. 
Usage 
+ 



I Labels 



h 



IPA10 



IPAEF 



( 



IPAEX 



Chart FA06: IPW$$PA - Put Account Record 



The DMB is released. 

The updated master record is written 
to the queue file, 

A branch is made to return to the 
caller. .............. ........... ........ > 

This routine is entered when a PEND 
command has been issued,, it writes an 
EOF record on the account file.. 

Register 7 is loaded with the count 
field address of the account record. 

Using register 2 as a work register, 
the record number is incremented by 
one. 

Key length and data length are set to 
zero. 

Write CCW flags are set to zero to 
unchain CCW string. 

The account CCB address is loaded in 
register 1. 

An EXCP is issued to write the EOF 
record. 

An IPW$WFC is issued to wait for I/O 
completion. 

On completion,, the command and data 
chain flags are set again. 

The sector value is set for the next 
cycle. 

A branch is made to exit........... > 

This routine releases the ACB„ and, f 
if the account file is full',, reissues 
the write account record after return 
from saving the account file. 

The ACB is released. 

If the account file is not full 
(WAIT indicator register 4 (set by 
PA03) not zero),, branch is made to 
return to the caller...-....*...... > 

Otherwise, the account event control 
block is prepared (bit 16 was- set to 
zero by PA03),. 

The task is set in internal wait 
state. 



PAEX 



PAEX 



EXIT 



Modified Data 
Fields 



CTRN 
CTKL 

ACRW(IPW$DAC) 



ACRW(IPW$DAC) 
ACSE(IPW$DAC) 



ACEB(IPW$DAC) 



R7 
R2 



Rl 



R4 



Calls 



IPW$RLR 
Chart AB 
IPW$WTQ 
Chart AE 



IPW$WFC 
Chart AA 



IPW$RLR 
Chart AB 



IPW$WFC 
Chart AA | 

*. j 
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(Labels 



h 



IEXIT 



I 

| PAUH 

I 



I 

| PAUC 



Chart FA07: IPW$$PA - Put Account Record 



| Modified Data 
I Fields 



On return from this wait state after j 
the account file has been saved,, a 
branch is made to restart write ! 
account record ..................... > 

Indicate in TCB that write account 
function is finished (General 
requirement for Task Termination 
Routine) . 

Set save area for register 15 to zero 
to set caller's register 15 to zero 
on restore (specific requirement of 
Task Termination Routine indicating 
write account function is finished) • 

Caller registers are restored and a 
branch is made back to the calling 
routi ne,. 

This routine updates the seek 
argument of the last record written. 

The highest head address is loaded in 
register 2. 

If the highest track of the current 
cylinder has already been reached,, a 
branch is made to update both 
cylinder and track address > 

Otherwise,, the current track address 
is incremented by one,, using register 
2 as a work register. 

Record number and sector value are 
zeroed. 

Control is passed back to the calling 
routine. 

The current cylinder address is 
incremented by one, using register 2 
as a work register. 

Current track address and record 
number are set to zero. 

The sector value is set to zero. 

Control is passed back to the calling 
routine-. 



| Reg. 
| Usage 
-+ + 



Calls 



1 



PAAC 



|TCFT(IPW$DTC) 



|SVRF(IPW$DSV) 



1R14 



|R2 



PAUC 



IR2 



|ACSA(IPW$DAC) 



|ACSA(IPW$DAC) 
|ACSE(IPW$DAC) 



|ACSA(IPW$DAC) 



|ACSA(IPW$DAC) 



|ACSE(IPW$DAC) 



[.Rift- 

^ X X X J 



CR14) 

|R2 






v/ 
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CHART FB: IPW$$GA - GET ACCOUNT RECORD (9 PARTS) 



Chart FBOO: IPW$$GA - Get Account Recora, General Flow and Macro Calls 



C 







IPW$$SA 






Save Account 

Jl 




IPW$$GA 


- Get Account Record 


Label 


Routine 


Functions/ 
Interfaces 


Services 


GACS 


Function Entry 






GAOP 


Open Account File in Get Mode 




B,D 


GAGT 


Read Account Record 




A 


GAER 


Prepare for Erase-only Close of 
Account File 






GAKP 


Prepare for Keep Close 
of Account File 






GACL 


Close Account File Get Mode, 
restore Put Mode 




C,E,F 


GAEX 


Function Exit 






GAWM 


Restore Write Mode Channel 
Program Subroutine 










' 


' 








IPW$$SA 






Save Account 





Services 



IPW$$NU 


Macro 


Ref. 


Chart 


Task Management 


A 

B 
C 

D 
E 

F 


AA 
AB 
AC 
AE 


IPW$WFC 


Resource Management 


IPW$RSR 
IPW$RLR 


Storage Management 


IPW$RSW 
IPW$RLW 


Disk Service 


IPW$WTQ 






295 



Labels 

|. 

GASD 



GAOP 



Chart FB01: IPW$$GA - Get Account Record 



The first 16 bytes constitute the 
Section Descriptor: 



•GACS 



V7M0 



On exit, the following register 
contents are relevant: 

: Account record length 
1: Virtual address account record 
area 

The following registers will be used 
by JPW$$GA: 

4 : Highest track address of 
cylinder 

5 : ACB address 

6: DMB address 

7: ERASE/KEEP switch 

10: Address of permanent area 

11 : Address of TCB 

12: Asynchronous address register 

13: Address of task save area 

14: Link register 

15: Function base address 

Immediately behind the section 
descriptor,, a branch table entered by 
the calling routine through the 
macros IPW$OAF, IPW$GAR and IPW$CAF ( , 
provide the correct subroutine 
address: 





4 

8 

12 

16 



To open get mode ro utine • .. . . . . > 

To get mode routine. . . . ,. ,. .. . ,. * . > 

To close get mode routine..... > 

To erase only routine............. > 

To keep IJAFILE routine....... > 



This routine is entered if IPW$$GA is 
invoked by an IPW$0AF macro. 

Open functions are: 

• Signal OPEN running to TCB,. 

• Reserve ACB,, 

• Reserve real I/O buffer space,, 

• Set ACB from (normal) PUT mode to 
GET mode. 

Caller's registers are saved. 

Address of ACB is loaded in 
register 5. 

Address of DMB is loaded in 
register 6. 

The ACB is reserved. 



r 

Modified Data |Reg. | Calls 
Fields J Usage 



GAOP 
GAGT 
GACL 
GAER 
GAKP 



IPW$DAC 
IPW$DQC 



TCAT(IPW$DTC) 



RO 
Rl 



R4 

R5 

R6 

R7 

RIO 

Rll 

R12 

R13 

R14 

R15 



R5 



R6 



IPW$SAV 



IPW$RSR 
I Chart AB 






v_,.^ 
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I Labels 



( 



Chart FB02: IPW$$GA - Get Account Record 



Modified Data 
Fields 



Reg,. 
Usage 



Calls 



IGA01 



( 



IGA02 



Using register 1 as a work register,, 
the amount of buffer space is 
calculated. The maximum record size 
is rounded to the next higher 
multiple of 32. 

The value 8 (1 doubleword) is 
subtracted from register 1 contents. 

Work space is reserved using register 
1 as parameter register. 

Since the work space actually 
obtained is 8 bytes more than the 
value in the parameter register,, the 
value in the caller • s register save 
area will now agree with the actual 
buffer size. 

If work space is available (register 
= nonzero) i# branch............... > 

Otherwise, indicate immediate stop in 
TCB for save account function, and 
reset caller into active status to 
service terminator routine. 

Release ACB and return control...... > 

The (virtual) buffer space address is 
saved in the ACB,. 

If the account channel program is 
already in read mode, a branch is 
made to bypass switching to read 
mode .... • .. . . <• . . . » -. . > 

Otherwise,, the channel program is 
switched from write to read mode by 
swapping the contents of the ACRW and 
ACPM channel programs. 

The real buffer address is stored in 
the read data CCW. 

Suppress incorrect length indication 
bit is on by default,. 

Maximum account record size is moved 
to the read data CCW. 

Seek address is set to zero- 
Sector value is set to zero. 

Seek address is initialized at the 
extent lower limit. 

Record number of search argument is 
initialized at 1. 



GA01 



GAC7 



GA02 



TCTT(IPW$DTC) 
TCAT(IPW$DTC) 



ACWA(IPW$DAC) 



Rl 



ACRW(IPW$DAC) 
ACPM(IPW$DAC) 

ACRW(IPW$DAC) 



ACRW(IPW$DAC) 

ACSA(IPW$DAC) 
ACSE(IPW$DAC) 
ACSA(IPW$DAC) 



ACSA(IPW$DAC) J 

I 

. JL- 



IPW$RSW 
Chart AC 
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I Labels j Chart FB03 : IPW$$GA - Get Account Record [Modified Data jReg. (Calls 

I I (Fields j Usage | 

j. x T ™ + +_ x ^\ 

\ j The account file is now ready to be | t t I 

| | accessed in GET mode. | I \ I 

I t t I ! 1 

| [ A branch is made to return to the II I I 

j | caller. * ,. . ,. ,. ,. ,. ,. . <., ,. . . . . ,. , . ,. ,. > | GAEX I f 1 

II I I 1 I 

[GAGT (This routine is entered if IPW$$GA is| | I I 

I [invoked by an IPW$GAR macro. It | | | | 

I [reads an account record, and passes [ j | [ 

[ [its length and (virtual) address to | } | | 

[ [the caller in register and register [ j J ] 

[ [ 1„ respectively. [ | | j 

I I I 1 I 1 

| [Signal GET function running to TCB. | | TCAT(IPW$DTC) J | 

I I I I 1 I 

| [The caller's registers are saved. [ [ | j IPW$SAV 

I I I I I I 

| [The address of the ACB is loaded in j | [R5 I 

[ | register 5. | | ] | 

1 I I I I ! 

| [The address of the DMB is loaded in J J ] R6 ] 

j | register 6. j | I ] 

I I I 1 ! I 

| | The address of the buffer space is | | [R8 | 

| [loaded in register 8. II I I 

I I I I I I 

| [The caller's register save area is | [ ] J 

| [initialized at zero (EOF). [ | SVRO (IPW$DSV) [ | 

II II II 

( [Head and record count in seek address | j ACSA(IPW$DAC) j | 

I [are copied from the count field. j [ | | 

I I I I I I 

j | If not yet end of extent or end of | | | | 

I | cylinder, branch. .. >|GAG1 [ } ] 

I 1 I I I I 

| | If not end of cylinder, (so end of [ [ ] | 

[ | extent )„ branch . >|GAG3 | | \ 

I I 1 I 1 I 

I | [If upper limit reached,, branch..... >|GAG6 | | [ 

I I I I 1 I 

I [Otherwise,, using register 1 as a work| | ACSA(IPW$DAC) |R1 j 

I [register, cylinder number in seek [ [ j | 

| | address is incremented by one,, and II II 

I [head and record number are set to | j ] ] 

I [zero. | I 1 J 

I I I I 1 I 

J JMulti track bit in read count CCW is | | ACRW(IPW$DAC) | \ 

[ [set on. II 11 

| | Sector value is set to zero. | | ACSE(IPW$DAC) | ] 

I I II ] I 

[GAG1 [If upper limit reached,, branch..... >[GAG2 [ j ] 

I I 1 I I 1 

I | Otherwise,, using register ^ as a work| | |R4 | 

| [register, the current head address isj | 1 | 

| | compared with the upper head address | | II 

[ [of a cylinder. [ | [ 1 

I I I I I I 

| | If upper head not reached yet,, | | J [ 

j | branch to skip resetting the [ | j [ 

[ [multi track bit .................. >|GAG3 | I | 

L X X X X . X 
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Labels 



Chart FB04: IPW$$GA - Get Account Record 



Modified Data 
Fields 



Reg, 
Usage 



Calls 



GAG2 
GAG 3 



GAG 5 



GAG6 



( 



GAER 



GAKP 



The multitrack bit is set to zero. 

Sector value next cycle is set,. 

EXCP parameter register 1 is loaded 
with the account file CCB address. 

An EXCP is issued to read the next 
account record. 

An IPW$WFC is issued to wait for I/O 
completion. 

On completion, if an EOF record was 
read,, branch ...... ,. . ,. ......... > 

The account record block length 
(logical record length +8) is stored 
in the caller's register save area. 

The virtual address of the account 
record is stored in the caller's 
register 1 save area. 

Reset caller to active status to 
service terminator routine. 

A branch is made to return to the 
call er ,. .... . . . . - . . • . . ,. ,. . . . . . . — . * . . > 

This routine is entered if IPW$$GA is 
invoked by a IPW$CAF ERASE macro,. It 
is assumed that tne caller has made 
available the ACB and will also 
release it. 

Signal ERASE running to TCB. 

The caller's registers are saved. 

register 7 is set up to point to the 
ERASE function indicator. 



A branch is made to continue., 



> 



This routine is entered if IPW$$GA is 
invoked by a IPW$CAF KEEP macro,, 
indicating that, on an unrecoverable 
I/O error/, the caller has decided to 
keep the account file- 
Signal KEEP running to TCB.. 

The caller's registers are saved,, 
register 7 is set up to point to the 
KEEP function indicator. 



A branch is made to continue.,.,., 



> 



GAG6 



GAEX 



GACO 



ACRW(IPW$DAC) 
ACSE(IPW$DAC) 



Rl 



SVRO(IPW$DSV) 



SVR1(IPW$DSV) 



TCAT(IPW$DTC) 



TCAT(IPW$DTC) 



R7 



TCAT(IPW$DTC) 



R7 



IPW$WFC 
Chart A A 



IPW$SAV 



IPW$SAV 



GACO 
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Labels 


| Chart FB05: IPW$$GA - Get Account Record 


(Modified Data 
(Fields 


|Reg. | Calls 
| Usage | 

X — X - _ 


GACL 


— |- - - — — — — . fl- 

|This routine is entered if IPW$$GA is| 
(invoked by a IPW$CAF macro.. | 

| Close functions are: I 

|1. Switch account channel program | 
| back to PUT mode. | 
|2r. Erase account file and write EOF | 
| record on each track. | 
|3. Reinitialize several DMB and ACB | 
| fields. | 
|4. Release buffer space and ACB. | 

| Exceptions: | 

|» E"RASE will skip function 4, | 
j assuming that the caller will | 
| release the ACB. | 
| • KEEP will skip function 2. | 


— .j. — 


— .f. .j. 




| Signal CLOSE running to TCB-. | 


|TCAT(IPW$DTC) 






|The caller's registers are saved,. | 




| | IPW$SAV 




| Zero function indicator register 7. | 




|R7 | 


GACO 


|Register 5 is loaded with the address | 
| of the ACB. | 




|R5 J 




| Register 6 is loaded with the address | 
| of the DMB,. | 




|R6 I 




| If no error have occurred,, and | 
| IPW$CAF KEEP has therefore not | 
| been issued,, a branch is made to | 
| c onti nue <. ,. . «. ,. . ,. . ,. - ... ,. ,. . ,. . . • ,. ,. ,. „ . . . . > | GAC 1 








| Otherwise,, a link is made to reset | 
|the ACB to PUT mode . ,. >|GAWM 




|Ria | 




| On return,, a branch is made to | 

| exit . ,. ,...,. ■• ,. . -. ,. * ,. . . . ,. . ,. . ,• . . . ,. . . /. . , m , m > | GAC 6 






GAC1 


|The address of the count field is | 
| loaded in register 8. | 




■ |R8 | 




| The count field is set to zero. | 


|CNTF 






| The extent lower limit cylinder and | 
| track is moved into the count field. | 








| Using register 1 as a work register,, | 
| the initial record number, is set to j 
|1- 1 


ICCHH 


jRl J 




I A link is made to reset the ACB to | 

| PUT mode > | GAWM 




|R14 | 




|0n return,, command and data chain | 
[flags in the first account CCW are | 
| reset. | 




! 1 

i ! 






V^ 



L , X X X X X J 
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| Chart FB06: IPW$$GA - Get Account Rec< 

_ + 

| The track number of the highest track 
| of a cylinder is loaded in register 
1 4* 

| Record number (search argument) is 
| set to zero. 


3rd 

r 


T ' — 

(Modified Data 
| Fields 
„x 

|ACRW(IPW$DAC) 
| ACSA(IPW$DAC) 


— T 3 

|Reg. (Calls 
| Usage | 
- + x 

|R4 | 


|GAC2 


[Update track and cylinder address 

| count field,, which was set in 
(preceding cycle or initialized. 

| Sector value is set to zero. 

| Register 1 is loaded with the address 
|of the account CCB. 

|An EXCP is issued to write an EOF 
| record. 

|The task is put in a wait state until 
| I/O completion* 

| If the account file extent upper 
| limit has been reached,, a branch is 
| made to exit,.........,...,,...,.-...... > 

| If the highest track of the current 
| cylinder has been reached,, a branch 
|is made to increment the cylinder 
J address* > 


GAC5 
GAC4 


|ACSA(IPW$DAC) 
|ACSE(IPW$DAC) 


jRl | 

| | IPW$WFC 
| (Chart AA 




[Otherwise,, the track address is 
(incremented by one, using register 3 
| as a work register. 




(CTHH 


|R3 ) 




|A branch is made to write the EOF 

| record on the next track.*,......,..,. > 


GAC2 






|GAC4 


|The track address is set to zero.. 

| Using register 3 as a work register,, 
| the cylinder address is incremented 
| by one. 




(CTHH 


]R3 ) 




(A branch is made to write the EOF 

1 record on the next track. ........ •• > 


GAC2 


| ACSA(IPW$DAC) 




|GAC5 


| Seek argument in the ACB is set to 
[zero. 






| Sector value is set to zero,. 




|ACSE(IPW$DAC) 






| Using register 3 as a work register,, 
| the maximum record size is 
(initialized at 1. 




|MRAZ(IPW$DQC) 


JR3 | 




| Current seek address in the master 
| record is set to zero. 




|MRAS(IPW$DQC) 





L X X X J 



X J 



c 
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Chart FB07: IPW$$GA - Get Account Record 



T T ^ 1 

Modified Data |Reg. 1 Calls | 
Fields | Usage J | 
+ + ^ 

MRAS(IPW$DQC) I 
ACSA(IPW$DAC) J 



CCHH 



I 

I GAC6 

I 
I 
I 



1 
|GAC7 

\ 

jGAEX 

I 
I 



i 



Current seek addresses in master 
record and ACB are initialized at the 
extent lower limit- 
Cylinder and track address in the 
account record count field is reset 
to the extent lower limit* 

Current account file capacity is 
reset to maximum. 

Current track capacity is set to 
maximum. 

The 20 percent residual account file 
capacity is made positive. 

EOF record writing is finished,, so 
command and data chain flags are set 
on to chain the write data, CCW to the 
write count CCW- 

Actually,, both so-called Write Count 
and Write Data CCWs are write 
Count-Key-Data CCWs; the Write Count 
CCW having a byte count of 8, 
providing for the count field only,, 
the Write Data CCW having a byte 
count equal to the physical record 
length. Chained, they act as one 
write CKD CCW; isolated, the Write 
Count CCW serves to write an EOF 
record. 

,An IPW$WTQ macro is issued to rewrite 
the master record. 

ACB update is now complete,, therefore 
the account ECB is posted. 

Neutralize account trace indicator in 
TCB (signal GET function ended). 

If ERASE has been requested, a branch 
is made to exi t . . - ....... ... . . . . - . . . . > 

Otherwise, register 1 is loaded with 
the address of the buffer space. 

If no buffer space was reserved 
(register 1 = zero)/, branch to..... > 

Otherwise^, release buffer space- 



The ACB is released. 

This routine is the common IPW$$GA 
exit routine to the caller. 

The caller's registers are restored,, 
and control is returned to the 
caller. 



GAEX 



GAC7 



ACAC(IPW$DAC) I 
I 
I 

ACLC(IPW$DAC) J 

I 

I 

ACEC(IPW$DAC) j 



ACRW(IPW$DAC) 



ACEB(IPW$DAC) j 



TCAT(IPW$DTC) j 



1R1 






|R14 
JL— -- 



I 



I 
I 

IPW$WTQ j 
Chart AE | 



IPW$RLW ] 
Chart AC J 

I 

IPW$RLR ] 

Chart AB J 

I 

I 

I 

IPW$RET | 






V> 



^y 
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Modified Data 
Fields 



Reg. 
Usage 



I Calls 



IGAWM 



IGAW1 



This subroutine resets ACB and 
account channel program to PUT mode. 

If the ACB is found to be in PUT 
mode (f a branch is made to bypass ACB 
reset.. .......... ... ....... >|GAW1 

Otherwise,, the multi track indicator, 
which may have been switched off by 
the IPW$GAR function,, is set ON-. 

The account channel program is set to 
write by swapping read and write 
channel programs. 

The ACB seek address i£ set to the 
disk address of the last record in 
the account file,, which was saved and 
kept in the master record. 

The sector value is set to zero-. 

A possible unit exception indication 
in the account CCB is reset. 

Control is passed back to the caller.) 

. X- 



ACRW(IPW$DAC) 



ACRW(IPW$DAC) 
ACPM(IPW$DAC) 



ACSA(IPW$DAC) 

ACSE(IPW$DAC) 
ACST(IPW$DAC) 



£14 



! 

-X- 



\^y 
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CHART GA: IPW$$SC - SCAN READER JECL STATEMENT (21 PARTS) 






Chart GAOO: IPW$$SC - Scan Reader JECL Statement;, General Flow and Macro Calls 



IPW$$LR 



Logical Reader 



IPW$$SC- Scan Reader JECL Statement 


Label 


Routine 


Functions/ 
Interfaces 


Services 


SCOO 

SC20 
SC50 
CLOO 
JNOO 
DIOO 
PYOO 
USOO 
SC80 


Determine Ppsitional/Keyword 
Parameter format 

Keyword Routine 

Positional format Routine 

CLASS parameter Routine 

JNM parameter Routine 

DISP parameter Routine 

PRI parameter Routine 

Syntax check Routine 

Final processing and Exit 

















IPW$$LR 



Logical Reader 
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ISASD 



ISCOO 



ISC02 



( 



ISC05 



ISC10 



Chart GA01: IPW$$SC - Scan Reader JECL 
Statement 



The first 16 bytes constitute the 
section descriptor: 



•sees 



V7M0 



The following register contents are 
relevant at entry: 

0: address of end of statement to 

be checked 
1 : address of parameter to be 

checked 
5 : address of queue record 
10: address of POWER/VS permanent 

area 
11: address of TCB 
13: address of task save area 
15: base address IPW$$SC 

Define Format 



Caller's registers are saved. 
Parameter registers and 1 are saved 
in registers 6 and 7„ respectively. 

Register 4, to be used in subsequent 
error indication,, is set to 0. 

Register 3 is set up to contain the 
machine length of the field to be 
scanned for the current parameter,, 
being the field starting at the 
parameter address passed and ending 
at the statement end. 

With a translate and test 
instruction, the delimiter of the 
parameter is found. 

If no delimiter found, branch to 
check form switch > 



The vaj.ue, stored in register 2 by 
the TRT instruction, is now used as a 
branch index to the appropriate 
routine: 

4: " = • delimiter,, branch to process 
keyword form ,. > 

8: ',' delimiter, branch to process 

positional form > 

12 : • '■ delimiter,, branch to process 
last parameter.....^ > 

The last parameter switch is" turned 
ON. 

A branch is then made to process 
positional parameter................ > 



SCI 2 



SC20 
SC5 
SC10 



SC5 



Modified Data 
Fields 






IPW$DQR 
IPW$DPA 

IPW$DTC 
IPW$DSV 



LWPI(IPW$DTC) 



Reg. 
Usage 



iCalls 



i 



R0 

Rl 

R5 
RIO 

Rll 
R13 

R15 



R6 
R7 



R3 



|IPW$SAV 



R1,R2 



^fcy**^ 
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Chart GA02: IPW$$SC - Scan Reader JECL 
Statement 



Modified Data 
Fields 



Reg, 
Usage 



ICalls 






SC12 



SC20 



SC22 



SC24 



SC26 



This routine is entered if no 
delimiter was found before the end of 
the statement. Therefore,, register 1 
is not set to the delimiter address 
by the TRT instruction. 

Register 1 is set to the end of 
statement address. 

If the form switch has been set to 
keyword form,, branch to diagnose an 
invalid statement. ....••••....<••.. .. > 

Otherwise,, if register 4 is negative, 
indicating a parameter in error,, 
branch to handle the parameter before 
ex it ............... . > 

If the parameter is not in error,, the 
end of statement address is saved in 
register 9. 

The last parameter switch is set ON,, 
and a branch is made to return to the 
call er > 

Keyword Form Handling Routine 



Temporarily saving the delimiter 
address in register 3„ the form 
switch, as previously set, is 
examined using a translate and test 
instruction, which loads register 2 
with the appropriate branch index. 

Using register 2 as branch index 
register, a branch is now made to the 
appropriate routine: 

4: 'keyword', branch to continue. > 
8: 'positional' branch to process 

error situation. ,. > 

12: blank (not set),, branch 
to process first keyword 
paramet er, . . . . . . . . ............. > 

Forms switch is set to 'keyword'. 

Branch to join keyword parameter 
processing . . . > 



Register 1 is incremented by one to 
point after the delimiter. 

Register 4 is made negative to 
indicate error. 

A branch is made to scan next 
delimiter > 



SC86 



SC7 



SC9 2 



SC30 
SC26 

SC24 
SC3 



SC02 



Rl 



R9 



LWPI(IPW$DTC) 



R3 

Rl 
R2 



v y 



LWFS(IPW$DTC) 



Rl 



R4 
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Chart GA03: IPW$$SC - Scan Reader JECL 
Statement 



Modified Data 
Fields 



Reg. 
Usage 



I Calls 



ISC32 



ISC 33 



ISC 35 



ISC36 



Register 3 is set up to contain the 
length of the keyword to be examined. 

If zero,, branch to indicate error.. > 

Otherwise,, register 3 is decremented 
by one to contain machine length. 

Register 8 is initialized with the 
start address of the keyword table. 

The keyword parameter is now checked 
for validity by comparing it to the 
valid keyword entries in the keyword 
table. 

If end of table has been reached,, 

branch to indicate invalid 

keyword. . . . . ,. . . ,. «. . . .......... ,. ,. . ,. ,. ,. > 

Otherwise, if the keyword parameter 
is equal to the keyword table entry* 
branch to continue.. ,. -. . . . . . ,. -. . . ,. .. . . . > 

If not equal, register 8 is 
incremented to point to the next 
keyword table entry- 
Branch back to check with next 
entry ........................ . . ,. . . ,. > 

Register 3 is incremented by one to 
get the real keyword length again. 

If unequal to the keyword length of 
the matching entry in the keyword 
table, branch to indicate invalid 
keyword .................. ,. ,. . -. . . . . ,. ,. > 

Preparations are made for the 
parameter value check. 

The branch index used to branch to 
the appropriate parameter check 
routine,, is moved from keyword table 
entry to the TCB. 

Register 7 is set to point to the 
start of the parameter value- 
Register 1 is set to point the •=• 
delimiter to be used to address the 
parameter value field about to be 
scanned. 

Register 3 is set up to contain the 
machine length of the remainder of 
the statement to be scanned. 



SC8 



SC80 



SC33 



SC3 2 



SC8 



R3 



R3 

R8 



R8 



R3 



LWBI(IPW$DTC> 



R7 



Rl 



R3 



I 

I 
-X- 
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Chart GA04: IPW$$SC - Scan Reader JECL 
Statement 



Modified Data 
Fields 



Reg.. j Calls 

Usage J 

„ + 



'4 ^\ 



SC37 



SC38 



SC40 



SC50 



SC54 



SC56 

L 



If the real length is zero,, branch to 
set last parameter switch. ...... . ,.,. > 

Otherwise,, scan for the next 
delimiter,, which must be a comma or a 
blank this time,. 

If not found before end of statement, 
branch to indicate last parameter.. > 

The scan with a translate and test 
instruction has set a branch index in 
register 2„ to be used to branch to 
the appropriate routine through the 
following branch table: 

• = • delimiter,, branch to 
continue scan.,. ......... ........ > 

\, '* delimiter,, branch to 

conti nue. ,. . . ,. . .. . ,. . .. . . . . . * . . . . ,. > 

12: ' " delimiter,, branch to 

indicate last parameter......... > 

Register 1 is set to point to the end 
of the statement to be scanned- 

The last parameter switch is set ON. 

A branch is made to the appropriate 
parameter routine,. ..... ,. ..... . . . ,. . . ,. . > 

Positional Form Routine 



I-SC36 
SC70 
SC40 



The form switch is checked and,, if 
necessary,, set. 

Saving parameter address in register 
1 temporarily in register 3„ the 
forms switch is tested using a TRT 
instruction. 

The value left in register 2 by this 
instruction is used as a branch index 
to branch to the appropriate routine 
through the following branch table: 

4: r -* delimiter, branch to 

indicate invalid parameter in 
keyword mode,. ,. ,. ,. ,. .. ,. . . ,. . . . ,. . ,. ,. ,. > 

8: "„ " delimiter,, branch to 

continue check . . ,. , m . . . . . . ,. ,. ,. .... > 

12: ■ • (not set,, first parameter),, 
branch to set forms switch to 
positional ,. . . . ,. > 

The forms switch is set to positional 
form. 



SC38 



SC38 



SC70 



SC80 
SC70 

SC56 



I 
I 

R1,,R2 j 

! 



Rl 



LWPI(IPW$DTC) 



R1,R3 



R2 



LWFS(IPW$DTC) 



V_^ 



-X . IL- 
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I | Parameter Syntax Check Routines I ] 11 


|SC70 | Parameter address in register 1 is | | ]R1 ] 

| | saved. Branch index is loaded in | | j R2 | 
| | register 2 from the TCB. II II 

| | The branch index will now control | | II 

j | parameter check routine: | | II 

|SC72 | 4: branch to CLASS parameter | | II 

| | routine,,..-...*. ........... >|CL00 | j J 

j | 8 : branch to JrJM parameter II II 
| | routine,.-. ................... ,.,...,. >JJN00 | ] | 

j |12: branch to DISP parameter II II 
I j routi ne • ••••••••.•••••••••••,•,•> 1 DI 1 j | 


j |16: branch to P'Rl parameter II II 
| | routine. .................... .. >JPY00 j II 

| | 20 : branch to USER parameter | | II 
j | routine ........................ > 1 US 001 j ] 


j |24: branch to DE7 parameter routine> |DE00 | | | 
| |28: branch to FID parameter routine>| FI00 ] 1 | 
| | 32 : branch to NOD parameter routine> | NO00 | j j 
| | 36 : branch to VSC parameter routine>| VS00 | j j 
| 140: branch to VER parameter routine> | VE00 | | | 
| | 44 : branch to FEED parameter II II 
| routine........................ >|FD00 \ j j 
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--+■ 



Modified Data 
Fields 



Reg. 
Usage 



I Calls 






CLOO 



CL02 



CL05 



CLIO 



CLASS Parameter Syntax Check Routine 



If current statement is not a JOB 
statement, branch to check for CTL 
statement ..................... . • . . . . > 

If statement has keyword form, f branch 
to continue. ............... . . .. > 

Otherwise,, set the last parameter 

switch ON, 

and bran ch to continue .....••••« . . . > 

If current statement is not a CTL 
statement, branch to flag invalid 
parameter ...... > 

If CLASS parameter not already 
specified in current statement,, 
branch to continue.................. > 

If already specified,, and current 
statement is CTL statement,, branch to 
flag invalid parameter.......*-..... > 

If current statement is JOB 
statement, reset CLASS value in queue 
record to default. 

Register 7 is loaded with address of 
start of keyword, and branch to flag 
invalid parameter • > 

CLASS parameter identifier switch is 
set ON. 

The parameter length is calculated in 
register 3- 

If parameter length zero,, branch to 
bypass check. ,. .. .. ,. > 



CL02 



CL05 



CL05 



SC9 



CLIO 



SC90 



SC9 



SC92 



LWPI(IPW$DTC) 



QRCL(IPW$DQR) 



R7 



v_y 



LWPICIPW$DTC) 



R3 
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Modified Data 
Fields 



- T 



Reg. 
Usage 



I Calls 



( 



ICL20 



ICL30 



Otherwise,, if more than one,, branch 
to check two characters. . .... • ,.„..,.. > 

A one-character CLASS parameter 
should be any of the following 
characters: A-Z„ or 0-9.. 

If CLASS parameter indicates 
autostart class,, branch to change 
default class indicator in queue 
record accordingly................. > 



If CLASS parameter is not alphameric, 
branch to flag invalid parameter... > 



If the parameter is lower than r A' 
branch to indicate valid parameter. 



> 



If parameter is numeric higher than 
4, branch to indicate invalid 
parameter • .. . .. . .<.... > 

If current statement is not a CTL 
statement,, branch to change default 
class indicator in queue record to 
value specified........................ > 

If current statement is a CTL 
statement,, change default class value 
in TCB. 

Branch to return.-. > 

Default class value in current queue 
record is set according to class 
value specified,. 

Branch to return. - ........ .. ,. . . .. ,. . . ,. j> 

If the CLASS parameter is two 
characters long,, it should be BG„ Fl„ 
F2 , ... Fn. This CLASS parameter 
format is invalid in a CTL state rnent,, 
and also in positional form. 

If CLASS parameter is longer than 2 
characters,, branch to flag invalid 
parameter. . . ,. . . . .. . » .. « .. .. ,. . . . . . ,.,... .. . > 

If. current statement no JOB 
statement,, branch to flag invalid 
parameter*. » » <• <* «• * <•*•«•• <. .. ,. ........ ,. ,. > 



CL30 



CL20 



SC90 



SC9 



SC9 



C£20 



SC92 



SC92 



SC90 



SC90 



TCCT(IPW$DTC) 



QRCL(IPW$DQR) 
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Statement 



Modified Data 
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iCalls 



CL40 



JNOO 



JN10 



If current statement is in positional 
form, branch to flag invalid 
parameter <• ........ ,. , m ,. . .«,.-.... ,. . . ,. . > 

If parameter is not "BG% branch to 
check for Fl~Fn.,.,.,.. ........... .<....,... > 

Otherwise , change default value in 
queue record to " 0" (BG) . 

Branch to return- .. ,. .. .. . ,. ,. ,. .. .. . ...... ,. * .. > 

If parameter is lower than Fl„ branch 
to flag invalid parameter............ > 

If parameter is higher than Fn, 
branch to flag invalid parameter... > 

Else,, change default class value in 
queue record to • 1' (for Fl) - "n" 
(for Fn).. 

Branch to return.,...,. ..............<• > 

JNM Parameter Syntax Check Routine 



If current statement not JOB 
statement,, branch to flag invalid 
parameter . .. ,. ,. . * ...... . . . . . . . .. . . . . . * > 

Otherwise,, the branch index in the 
TCB is set for DISP,, the next 
parameter if positional form. 

If JNM parameter not already 
specified,, branch to check JNM 
parameter. .. . <• . <. . . . ,. .. * ... . . . .. <• . . . .. . . .. ,. > 

Otherwise,, using register 3 to 
address the DMB„ the default job name 
is copied from DMB to queue record- 
Register 7 is loaded with the start 
address of the JNM keyword in error. 

Branch to flag invalid parameter... > 

The JNM parameter switch is set ON* 

The parameter length is calculated in 
register 3. 

If zero (omitted) , branch to 

return,. * ...... . . . . ,. . . ,. . . . . ,. . . . . . .... > 

Using register 2 as a work register, 
the parameter length is compared with 
the maximum allowable length of 8 
bytes. 



SC9 



CL40 



SC9 2 



SC90 



SC9 



SC92 



SC9 



JN10 



SC90 



SC92 



QRCL(IPW$DQR) 



QRCL(IPW$DQR) 



LWBI(IPW$DTC) 



QRNM(IPW$DQR) 



R3 



R7 



LWPI(IPW$DTC) 



R3 



R2 



,4f ' x 
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If longer than 8 bytes,, branch to 
flag invalid parameter-., > 

Register 3 is decremented by one to 
contain the parameter length in 
machine format/, and the parameter is 
scanned for non-alphamerics. 

If non-alphameric characters present* 
branch to flag invalid parameter... > 

Otherwise,, the job name field in the 
queue record is blanked out. 

The JNM parameter is copied into the 
job name field.. 

Branch to return > 

DI-SP Parameter Syntax Check Routine 



If current statement is not a JOB 
statement, branch to flag invalid 
parameter ..••..•..•.....•••...••.•• > 

Branch index in TCB is set for PRI„ 
which is the next positional JOB 
parameter. 

If DISP parameter not already 
specified in this statement,, branch 
to conti nue. ,. ..... . . . .. ,. .....••• * . . . ,. > 

Otherwise, default value r D" (for 
dispatchable) is set in the queue 
record. 

The address of the start of keyword 
DISP is loaded in register 7„ and a 
branch is made to flag invalid 
parameter > 

The DISP parameter identifier switch 
is set ON,. 

The parameter length is calculated in 
register 3. 

If zero (parameter omitted),, branch 
to return. <. ,. ........ . . . . . . . . >. . . . »....,. > 

If greater than one, branch to flag 
invalid parameter. > 

Otherwise,, if the DISP parameter is D 
(for dispatchable), H (for hold), K 
(for keep),, or L (for leave),, branch 
to conti nue. .. .. .. . ,. . ....... . ,. . . . ........ > 

Otherwise,, branch to flag invalid 
parameter.. ......•.......•...•...,...•••• > 
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The DISP parameter value is moved to 
the queue record. 

Branch to return.. ............ > 

PR1 Parameter Syntax Check Routine 



If current statement is not a JOB 
statement, branch to flag invalid 
parameter ..................... > 

Otherwise, the branch index in the 
TCB is set for CLASS,, being the next 
and last positional JOB parameter. 

If PRI parameter not already 
specified,, branch to continue...... > 

Otherwise, using register 3 to 
address the DMB„ the default priority 
value is copied from DMB to queue 
record. 

Register 7 is decremented to point to 
the keyword start,, and a branch is 
made to flag invalid parameter..... > 

The PRI parameter identifier switch 
is set ON. 

The parameter length is calculated in 
register 3. 



If zero (omitted) f branch to 
return . ...................... 



> 



If greater than 1„ branch to flag 
invalid parameter... > 

If parameter less than ' OV, branch to 
flag invalid parameter............. > 

If parameter greater than '• 9',, branch 
to flag invalid parameter............ > 

Otherwise, the priority value 
specified is copied into the queue 
record, and a branch is made to 
return . . . . ................. . ,. > 

USER Information Parameter Syntax 



Check Routine 

Valid in keyword form only. 

This routine is divided into two 
segments: 

One to handle unquoted user 
information,, and one to handle user 
information within quotes,. 
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If first character of USER parameter 
is not an apostrophe,, branch to 
handle unquoted USER information 
string > 

Otherwise,, register 4 is loaded with 
the address of the user information 
field in the queue record. 

Register 2 is set to 16 (maximum 
string length) , and a link is made,, 
passing these register values to the 
string scan routine..,......,.,.,..*..,. > 

This string scan routine scans the 
quoted USER information string,, and 
copies a valid string to the queue 
record. 

It passes control back to the caller 
normally if the scanned string is- 
found valid. 

If invalid,, return is made to an 
address 4 bytes past the normal 
point. 

If USER string is valid,, branch to 
continue. . ,. ,. .... . ,. . . ............ . . ,. > 

If invalid, branch to diagnose 

error ,. . . <. ,. ,. > 

Parameter pointer register 1 is saved 
in register 9. 

If current statement is not a JOB 
statement,, branch to flag invalid 
parameter. ........ ,. ,. > 

If USER parameter already specified,, 
branch to flag invalid parameter... > 

Otherwise,, USER parameter identifier 
switch is set 0N if and branch to 
return .................. > 

Parameter pointer register 1 is saved 
in register 9. 

If USER parameter not already 
specified,, branch to bypass setting 
keyword pointer register 7* .<..<•* .... > 

Register 7 is decremented to point to 
the keyword start address. 

User information field in the queue 
record is blanked out again. 

USER parameter identifier switch is 
set ON, and a branch is made to flag 
invalid parameter. . ...,..,..,.,.. ...... > 
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This routine handles an unquoted user 
information string. 

If current statement is not a JOB 
statements branch to flag invalid 
parameter . , . . . . - ,. <. . . •. . . . • . . . . .« • • . . . > 

Otherwise,, if the USER parameter has 
not already been specified in this 
statement,, branch to continue...... > 

If this is the second USER parameter,, 
register 7 is decremented to point to 
the keyword start address,, and a 
branch is made to flag invalid 
parameter . . . . ,. . ........ . . . . . . . . , m ,. ,. . > 

The parameter length is calculated in 
register 3. 

If zero, branch to return.......... > 

Using register 2 as a work register,, 
parameter length is compared with 16/, 
being the maximum allowable length. 

If longer than 16 bytes, branch to 
flag invalid parameter. > 

Otherwise,, register 3 is decremented 
by one to contain parameter length in 
machine format. 

The user information string is copied 
to the queue record. 

Branch to return. . /. . .. . . . . ,. - . . . . . ... > 

DEV Parameter Syntax Check Routine 



Load register 5 with the address of 
the physical work space saved in the 
linkage save area of the TCB. 

If the current statement is not a RDR 
statement,, branch to flag invalid 
parameter. -. ,. .. . .* ..•*.,. . .. . . . . . . ,. « . . .• .. . > 

Otherwise,, the branch index in the 
TCB is set for FID,, being the next 
positional RDR parameter. 

Indicate data file mode processing in 
the TCB. 

If the DEV parameter has not already 
been specified,, branch to continue > 

If the queue record has not been 
reserved, branch to. ........... ..,.,. > 
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« j. . - . j 

| Otherwise,, SYSIN mode processing is | 
| indicated in the queue record or the ] 
| current job. | 


— -j — — — 

|-QRERCIPW$DQR) 


r — 1 


r 


|DE05 


| Register 7 is decremented to point to| 
|the keyword start,, and a branch is | 
| made to flag invalid parameter..... >|SC9 




|R7 




|DE10 


| The DEV parameter identifier switch | 
|is set on. J 

J The parameter length is calculated in] 
(register 3. | 

| If zero (omitted),, branch to return >|DE15 

| If the parameter length is not equal | 
|to 6 bytes (f branch to test for a ] 
| length of 3 bytes .... >|DE20 

(Registers 2 and 4 are loaded with the) 
| address of the cuu field in the DEV ] 
(parameter,, and a branch is made to | 
| scan the cuu..,....,.'.....'.'..,.........,... >|DE30 


|LWPI(IPW$DTC) 


|R3 | 
|R2,R4 




|DE15 


| Reset the data file indication in the| 
|TCB and branch to return ...... >|SC9 2 


j LWER(IPW$DTC) 






|DE20 


| If the parameter length is not equal | 
| to 3 bytes, branch to flag invalid ] 
| parameter ......... ^ * . .... > | SC9 

(Register 2 is loaded with the address | 
| of the cuu field. | 

(Register 3 is set to 3 for the loop | 
| count. | 

(Register 4 is loaded w^Lth the address | 
| of the cuu. | 




|R2 ; 
|R3 

|R4 




|DE40 


| If the value is less than 'A', branch| 

| to flag invalid parameter.. . .. >|SC9 

| If the value is not greater than ' F*„| 
(branch to check the next character >|DE50 

|If the value is less than ' 0" or more| 
(than '" 9\, branch to flag invalid | 
| parameter. .. ,. .. ,. «. . . .. .. . ,. <. . ,. . . . . . ,. . . ...... > | SC 9 








|DE50 


| Point register 2 to the next | 
( character. | 




JR2 






| If all 3 characters have not yet been) 
[checked, return to. •....*.•.. ........ >|DE40 


|PEDW(IPW$DPW) 
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(Otherwise, move the parameter value | 
| into the PWS. | 
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Translate the EBCDIC value into 
packed hexadecimal form (.X ,f Ocuu" ), 
and get it into register 2. 

If the queue record has not yet been 
re se rved , return to ........ . * ,. . . ,. ,. ,. > 

If the value calculated has already 
been set in the queue record,, branch 
to return* ,. . ,. ,. .. . .. . . . . ,. . . . * . . . . .. ,. » . ,. > 

If the queue record already contains 
a physical device address (from a 
preceding RDR statement) t branch to 
flag invalid parameter ...... ........ > 

Otherwise, the packed hexadecimal 
value is saved in the queue record of 
the current job,, which is addressed 
by register 5.. 

Branch to return. . «• . ,. . . . . <. ...... ,. ,. ,. > 

FID Parameter Syntax Check Routine 



Load register 5 with the address of 
the physical work space saved in the 
linkage save area of the TCB-. 

If the current statement is not a RDR 
statement, branch to flag invalid 
parameter ................... . . . . . . .. .. > 

Otherwise, the branch index in the 
TCB is set for N0D„ being the next 
positional RDR parameter,. 

If the first character of the FID 
parameter is not an apostrophe, 
branch to flag invalid parameter.... > 

Otherwise,, register 4 is loaded with 
the address of the file ID in the 
physical work space,, register 2 is 
set to 8 (maximum string length),, and 
a link is made to pass these register 
values to the string scan routine.,. > 

The string scan routine scans the 
quoted FID information string,, and 
copies a valid string to the physical 
work space. It passes control back 
to the caller if the string is valid. 
If it is invalid,, a return is made to 
an address 4 bytes passed the normal 
point. 

If the FID string is valid,, branch to 
continue ....... ,. . . . ,. . .... . .. . . .. . * - .. * . > 
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If it is invalid, branch to diagnose 

the error . .•.<•..*•.•••. > j FI20 
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The parameter pointer register 1 is 
saved in register 9. 

If the FID parameter has already been 
specified,, branch to flag invalid 
parameter . , . . > 

Otherwise,, the FID parameter 
identifier switch is set on, and a 
branch is made to return........... > 

The parameter pointer register 1 is 
saved in register 9. 

If the FID parameter has not already- 
been specified/, branch to bypass 
setting the keyword pointer register 
7 . > 

Register 7 is decremented to point to 
the keyword start address. 

The file identification field in the 
physical work space is cleared. 

The FID parameter identifier switch 
is set on, and a branch is made to 
flag invalid parameter.............. > 

NOD Parameter Syntax Check Routine 



Load register 5 with the address of 
the physical work space saved in the 
linkage save area of the TCB,. 

If the current statement is not a RDR 
statement,, branch to flag invalid 
parameter ,. ,. ...... ,. ,. > 

Otherwise,, the branch index in the 
TCB is set for VSC„ being the next 
positional RDR parameter. 

If the NOD parameter has not already 
been specified,, branch to continue > 

Otherwise,, set the NOD information 
field in the PWS to default 1. 

Register 7 is decremented to point to 
the keyword start address and a 
branch is made to flag invalid 
parameter. ,. . ,. ,. .... ,. - .......... . .. . ,. .. > 

The NOD parameter identifier switch 
is set on. 

The parameter length is calculated in 
register 3. 

If the parameter length is zero 
(omitted), branch to return..-..'.... > 
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NO20 



VS 00 



If the parameter length is greater 
than 3, branch to flag invalid 
parameter. ,. . ,. • ,. . . . .. .. ...... . ,. . .... . * . • .. .. > 

Otherwise , copy register 3 into 
register 4 and decrement register 4 
by one to contain the parameter 
length in machine format. 

Copy the parameter pointer register 7 
into register 2,. 

If the value of the character 
addressed by register 2 is less than 
■ 0' or greater than " 9'* lf branch to 
flag invalid parameter.............. > 

Register 2 is incremented by one to 
point to the next character- 
Register 3 is decremented by one,. 

If the loop count register 3 is not 
zero,, branch to continue . . . . ....... > 

Convert the NOD parameter value from 
EBCDIC into packed decimal in the 8 
byte work field of the physical work 
space,. 

Convert the packed decimal value of 
the NOD parameter in the physical 
work space into binary „ and load it 
into register 2. 

If the binary value is greater 
than 255,, branch to flag invalid 
parameter .... ,. ...... ,. ...... . . . .. . . . * ,. > 

Set the NOD parameter value just 
obtained in register 2 in the 
physical work space. 

Branch to return . .......... ,. ,. ,. ,. . . . . > 

VSC Parameter Syntax Check Routine 



Modified Data 
Fields 



Load register 5 with the address of 
the physical work space saved in the 
linkage save area of the TCB. 

If the current statement is not a RDR 
statement,, branch to flag invalid 
parameter. ............ ,. ,. .. ,. . ,. ,. ,. , m . . ,. . > 

If the parameters are not specified 
in positional format but in keyword 
format, branch to continue...-.,.,..,... > 

Otherwise, set the last parameter 
switch in the TCB,. 
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If the VSC parameter has not already 
been specified,, branch to continue. > 

Otherwise,, set the VSC information 
field in the physical work space to I 
the default value,. 

Register 7 is decremented to point to 
the keyword start address, and a 
branch is made to flag invalid 
parameter. .. . .. . ,. ...... ,. . . . . . . .. ,. .. - . . .. > 

The VSC parameter identifier switch 
is set on. 

The parameter length is calculated in 
register 3. 

If the length is zero (omitted) „ 
branch to return................... > 

If the length is not one,, branch to 
continue,. . . ,. ,. . . . ,. ...... , . . ,. . ,. ,. .. . . ,. ,. > 

If the. parameters are passed in 
keyword format,, branch to flag 
invalid parameter... ............ .,.,.,. > 

If the parameter value (positional 
format) is not 'S\, branch to flag 
invalid parameter > 

Otherwise,, the volume sequence check 
specified is copied into the physical 
work space, and a branch is made to 
return, , ,. ,. ,. . . > 

If the parameters are passed in 
positional format # branch to flag 
inval id parameter .......... . ,. .... ,. ,. > 

If the length is not two,, branch to 
continue . ,. ,. . . ,. .. .... ,. . .. . . . . . <• . ,. ,....,. > 

If the parameter is not 'NO',, branch 
to flag invalid parameter........... > 

Leave the default value in the 
physical work space and branch to 
return . .... . . .... . . . . . . . . ,. . ,. . ,. ,. ,. ,. ,. ,. > 

If the parameter length is not three 
characters, branch to flag invalid 
parameter > 

If the parameter is not "YES",, branch 
to flag invalid parameter............. > 

Otherwise,, the volume sequence check 
field in the physical work space is 
set to "S' and a branch is made to 
return . ........ .. . .. ,. ...... ,. . . . ,. . ,. . . . > 
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VER Parameter Syntax Check Routine 



Load register 5 with the address of 
the physical work space saved in the j 
linkage save area in the TCB.. 

If the current statement is not a RDR 
statement, branch to flag invalid 
parameter - .. . . . . . . - - . - .. . ....«• . ....... > 

If the VER parameter has not already 
been specified, branch to continue > 

Otherwise, set the VER information 
field in the physical work space to 
the default value,. 

Register 7 is decremented to point to 
the keyword start address, and a 
branch is made to flag invalid 
parameter ,...••••••.••• « . ........ ,. ,. > 

The VER parameter identifier switch 
is set on- 

The parameter length is calculated in 
register 3. 

If the length is zero (omitted),, 
branch to return. ................ ... > 

If the length is not equal to one,, 
branch to continue > 

Otherwise, branch to flag invalid 
parameter. ............. . . .......... > 

If the parameter length is not two, 
branch to continue . ......... > 

If the parameter value is not 'NO' 9 
branch to flag invalid parameter... > 

Otherwise, leave the default value in 
the physical work space* and branch 
to return. ................ . .... . . . . > 

If the parameter length is not three, 
branch to flag invalid parameter... > 

If the parameter value is not 'YES*,, 
branch to flag invalid parameter... > 

Otherwise, the verify field in the 
physical work space is set to f V* , 
and a branch is made to return..... > 
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Modified Data 
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Load register 5 with the address of 
the PWS from TCB. 

If the current statement is not a RDR 
statement, branch to......... > 

If the FEED parameter has not already 
been* specified, branch to.......... > 

Otherwise load the address of the 
master record in register 3. 

Clear the option FEED in PWS. 

If the option FEED in the master 
record is not on, branch to........ > 

Set the option FEED in the master 
record. 

Register 7 is decremented to the 
point of the keyword start address,, 
and branch to..... > 

The FEED parameter identifier switch 
is set on. 

In register 3 is the length of the 
parameter. 

If the length is zero, branch to... > 

If the length is greater than two 
characters, branch to ............. . > 

If the parameter is not • NO* , branch 
to- > 

Clear option FEED in PWS and branch 
to > 

If the length of the parameter is 
greater than 3 , branch to . . . ........ > 

If the parameter is not •YES', branch 
to- > 

Set the option FEED in PWS and branch 
to. . . . SC 92 



SC9X) 
FD10 



FD08 



SC90 



SC92 



FD30 



SC90 



SC9 2 



SC90 



SC90 



PE0PtIPW$DPW) 



PEOP(IPW$DPW) 



LWPI(IPU$DTC) 



PE0P(IPW$DPW) 



PEOP(IPW$DPW) 



Reg. 
Usage 



R5 



I Calls 



-H 



R3 



R7 



R3 



323 



Labels 






SSOO 



SS10 



SS20 



SS30 



SS40 



Chart GA18: IPW$$SC - Scan Reader JECL 
Statement 



Quoted String Scan Routine 






Register 1 is loaded with the start 
address of the string. 

The last parameter switch is reset, 
because a possible blank delimiter 
found may be part of the string to be 
scanned in stead of a real delimiter. 

Length counter register register 8 is 
initialized at zero. 

Register 1 is incremented by one to 
point to the next character (the 
first time executed register 1 will 
point to the first character past the 
opening apostrophe) . 

The address of the byte in the user 
information field in the queue 
record, that is to receive the next 
USER string character, is incremented 
by one. 

Length counter is incremented by one. 

If the next character is an 
apostrophe, branch to check for end 
of string •••.•••...•••.•. > 

Otherwise, if end of statement 
reached before end of string, error 
return to caller ............. > 

If string length greater than maximum] 
allowed, branch to flush string.... > 

Otherwise, move current character to 
queue record, and branch to geit next 
character > 

Register 1 is incremented by one to 
point to the next character. 

If next character is an apostrophe 
too, branch to move one apostrophe 
to queue record user information 
field... .... > 

Otherwise, the end of string address 
is saved in register 4. 

If end of string is end of statement, 
branch to set last parameter switch 
on ,. . . . . ......... > 

If character following string is a 
comma f branch to continue*........,. > 
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| If character following string is a | 
j blank, branch to set last parameter | 
| switch on. .. . . . . . .. . ........ .,. . • • .. >|SS50 


T-J.™™ 


t 1 


r — 


^ 


| Otherwise (invalid delimiter), scan | 
jis continued: length counter is | 
(incremented by one. | 




|R8 




i 


| Register 1 is incremented by one to | 
| point to the next character „ and a | 
| branch is made to continue scan for | 
| valid delimiter • ••••••••••'•••••*•.•>• > | SS4 


|LWPI(IPW$DTC) 


|R1 




|SS50 


|The last parameter is set ON. | 




|SS60 


| If string is not followed immediately! 
|by a valid delimiter, error | 
| return ....... .-,., >| (R3)+<* 

| Register 8 is incremented by one to \ 
| contain the true string length. | 

|If string length zero, return...... >| (R3) 

| If string length greater than maximum) 

| allowed, error return.............. >|(R3)+4 




|R8 






| Otherwise, normal return...... >|(R3) 










1 Final Processinq Routine I 








|SC80 


| Invalid parameter handling. | 






|The length of the rest of the | 
| statement scanned for delimiter is | 
| calculated in register 3. | 




|R3 






|If zero (end of statement reached), | 

| branch. ............................ > | SC84 










|A scan is made for the next | 
| delimiter. | 




|R1,R2 






| If no delimiter before end of | 










|The value, stored in register 2 by | 
jthe TRT scan, is used as a branch | 
| index: | 




|SC82 


| 4: •=*, branch to continue scan for| 

| comma,. . . . ,. .... . ... > | SC8 

| 8: f , f , branch to continue....... >|SC86 

|12: • f , branch to set last | 

| parameter switch •••••••••••••• > 1 SC8 U 








|SC84 


| Register 1 is set to point to end of | 
| statement. | 

|Last parameter switch is set ON. | 


|LWPI(IPW$DTC) 


|'R1 





L 
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I r , : , . 

I Labels fchart GA20: IPW$$SC - Scan Reader JECL 
| | Statement 



|SC86 



1 



ISC 90 



|SC?2 



ISC 94 



Register 1 is saved in register 9, 
Branch to flag invalid statement. , 



I 
I 
>|SC90 



j Modified Data 
| Fields 



Error exit: address of parameter in 
error is loaded in register and 
made negative to signal error. | 



Register 1 is set to next delimiter < v 
as saved in register 9. 



\ 



\ 



Branch to exit . . ..••••••.».... > J SC 94 

I 
Normal exit: parameter address in | 
register 7 is loaded in register 0. \ 

I 
Address of next delimiter is loaded | 
in register 1. \ 

i 

Return parameter registers are stored | 
in save area. | 

I 
Control is passed back to the caller. | 



|SCR0(IPW$DSV) 



"i 

| Reg. 
| Usage 

-+ 

IR9 



|R0 



|R9 



r 

|R0 



|R1 



I Calls 






| IPW$RET I 
.X J 



W 



V. 



K^ 
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CHART GB: IPW$$XJ - SCAN EXECUTION JECL STATEMENT (16 PARTS) 



Chart GBOO: IPW$$XJ - Scan Execution JECL Statement, General Flow and Macro Call; 







IPW$$XR 




IPW$$XW 


Execution 
Reader 


Execution 
Writer 
















Functions 






V 






Data Management 




IPW$$XJ 


Scan Execution JECL 










Module 


Macro 


Ref. 


Chart 


Label 


Routine 


Functions/ 
Interfaces 


Services 




IPWSSGD 


IPWSGDR 


1 


EB 


XJOO 
XJ18 

XJ20 
XJ30 
XTOO 

XJ39 
XK01 
XJ94 
XJ98 


JECL statement analysis 

Handle CTL.RDR and EOJ 
statements 

Handle JOB statement 

Handle LST and PUN statements 

Update tasks 

Process positional operands 
Process keyword operands 
Handle SLI statement 
Handle DATA statement 


1 

II 
1,1 1 


C,D 
B,D 

E 

C 

A,B,D, 
E 

E 










Miscellaneous 






^ 






Module 


Macro 


Ref. 


Chart 






IPWSSLU 


IPWSULP 


II 


GC 


















"\ 




\ 


7 




1 








IPW$$XR 




IPW$$XW 


Execution 
Reader 


Execution 
Writer 



IPWSSNU 


Macro 


Ref. 


Chart 


Task Management 


A 
B 

C 
D 

E 


AA 
AC 
AD 


IPW$ATT 
IPWSWFI 


Storage Management 


IPW$RSW 
IPW$RLW 


Message- Service 


IPW$WTO 
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Labels 



XJCS 



XJSD 



XJOO 



XJ02 



Chart GB01: IPW$$XJ 
JECL Statement 



Scan Execution 



This routine is entered whenever a 
JECL statement is encountered in the 
input stream. 

CSECT name 

The first 16 bytes constitute the 
section descriptor: 



•XJCS 



V10M1 



General register usage 



0: 
1: 
2: 
3: 
4: 
5: 
6: 
7: 

8: 

9 
10 
11 
12 
13 
14 
15 



**** - service work register 

**** - Service work register 

**** - service work register 

**** - service work register 

**** - Reserved 

IPW$DQR - Queue record space 

IPW$DPB - PDB 

IPW$DCB - User command control 

block 

IPW$DCW - User channel command 

word 

**** - second base register 

IPW$DPA - POWER/VS nucleus 

IPW$DTC - Task control block 

**** - Reserved for nucleus use 

IPW$DSV - Task save area 

**** - Function linkage register 

XJCS - Function base register 



Note that the usage of registers 0-8 
in the analysis routines starting at 
label XJ39 may differ from the above. 

JECL Statement Analysis 

Save caller registers. 

Establish second base register using 
register 9. 

Reserve space for a second function 
register save area. 

Establish addressability for the new 
save area in register 13. 

Check whether a continuation card 
from a writer-only partition is being 
processed. If so, branch to....... > 

The address of the statement is 
loaded into register 9 to determine 
the operation code. If no operation 
code is found, return to caller 
without processing the statement... > 

Save the address of the operation 
code, which is contained in register 
1, in register 7. 



XS38 



XJ06 



Modified Data 
Fields 



Reg. | Calls 
Usage | |i 

+ + 1 



RO 
Rl 
R2 
R3 
R4 
R5 
R6 
R7 

R8 

R9 

RIO 

Rll 

R12 

R13 

R14 

R15 



R9 



R13 



R1,R7 






^ 



IPW$SAV 



IPW$RSW 
Chart AC 
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t r 1 

Reg. | Calls 
Usage 



ILabels jchart GB02: IPW$$XJ - Scan Execution 
|JECL Statement 
h T - 

|XJ04 | Match the operation code against the |- 
| entries in the JECL statement routing | 
[table to determine which handling 
| routine to branch t.o. 

| If a match is found, branch to the 

| appropriate handling routine via 

[table XJ12.... >|XJ12 

| If no match is found, return to 
[caller without processing the 
| statement. 

I Return to caller without having 
i processed the statement 

|XJ06 ) If operator corrected JECL statement, 

i branch to . . . . . > | XJ10 

|XJ07 [Return the additional save area space | 
| to the storage pool. 

| Return to IPW$$XR via link register 
j 14, to process the statement. 

I Return to caller after having 
1 processed the statement 

IXJ08 | Branch and link to the 'bypass 

| statement' routine. ................ >fXJ18 

IXJIO | If not operator correction JECL„ 

| branch to. > | X Jll 

| Release space. 

| Set up request word. 

IXJll | Return the additional save area space | 
| to the storage pool. 

| Return to IPW$$XR via link register 
| 14, to process the statement. 



j Modified Data 
| Fields 



IR1U 



|TCRW(IPW$OTC) 



|.IPW$RLW 
| Chart AC 

(IPW$$XR) 
I Chart KA 



IR14 



| PW$RLW 



| IPW$RLW 
| Chart AC 

(IPW$$XR) 
I Chart KA 
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Labels |Chart GB02.1: IPW$$SC - Scan Execution JECL |Modified Data 
Statement | Fields 

JECL statement routing table 



XJ12 



XJ14 
XJ16 



XJ18 



CTL. . 
JOB. . 
EOJ.. 
RDR.. 
LST.. 
PRT. . 
PUN.. 
SLI.. 
DATA. 



.. > 

^ > 



Handle CTL, RDR,, and EOJ Statements 



XJ08 
XJ30 
XJ24 
>tXJ08 
XJ60 
XJ60 
XJ60 
XJ78 
XJ86 



Since CTL and RDR statements need not 
be processed at execution time,, these 
statements are bypassed together with 
any continuation cards relating to 
them. 

If there are no continuation cards, 
return to caller via Link register 
14. 

If the continuation card is for a 
writer- only partition, branch and 
link to the writer-only partition 
routine* • •••.••.••••»•••••..••,••... > 



XS36 



— X- 







w 
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I Labels 



IXJ20 



IXJ22 



IXJ24 



IXJ25 



IXJ28 



IL 



Chart GB03; IPW$$XJ - Scan Execution 
JECL Statement 



Get the continuation card. 



Restore the base register and the 
return address. 

Load the address of the new statement 
into register 9. 

Branch to check for more continuation 
cards > 

Handle EQJ Statement 



Modified Data 
Fields 
+ 



Release the SLI work space, if 
present. 

Check whether the E0J statement is 
for a writer-only partition. If not, 
the statement need not be processed. 
Branch to > 

Set job boundary switch to X^O' to 
ignore output till next $$JOB. 

Set up register U for scanning the 
entries in the PDB to shut down any 
subordinate writer tasks* 

Establish addressability for the TCB 
of the subordinate task (IPW$DTC) in 
register 2. 

Check the entries in the PDB and if a 
task has been started: 

• Reset the ownership in the device 
list entry in the PDB. 

• Set the 'stop* termination type 
code. 

• Post the event control block. 

Exit to task selection. 

Branch to . . . - . * > 



XJ18 



XJ08 



XJ28 



TCJB(IPW$DTC) 



TLTC(IPW$DTL) 
TNTT(IPW$DTC) 
TNEB+2(IPW$DTCV 



Reg. 
Usage 



R14„R15 



R9 



R4 



R2 



Calls 



IPW$GDR 
Chart EB 



IPW$RLW 
Chart AC 



IPW$WFI 
Chart AA 



X- 
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Labels | Chart GB03.1: Scan Execution 
JJECL Statement 

1 Handle JOB Statement 



XJ30 | Check whether the JOB statement is 

| for a writer-only partition, so that 
| the contents can be used to construct 
j the queue record for the ensuing job. 
| If so, branch to................... > 

I 

| If the caller is an execution reader,, 

I branch to ... . > 

I 
XJ31 | Set the job boundary switch to X f FF* 
| to indicate job in progress. 

I 

| Check for a record length of 72 or 
|more. If the record length is 
(smaller, it is set to 71. 

x , 



Modified Data 
Fields 



XJ31 



XJ56 



TCJB(IPW$DTC) 



-x 




k_> 






v 
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| Labels 


| Chart GB04: IPW$$XJ - Scan Execution 
|JECL Statement 
- + T 

| Branch and link to get the statement | 

| operand to. ••.••••••••••••••••••••• >| XAOO 


| Modified Data 
| Fields 
„ + 


|Reg. (Calls 
| Usage | 
_ + + 




| • If there are no operands branch | 

| to >| X J5 6 








| • If there are keyword operands | 

1 branch to....,, > | XJ3 6 






| * If there are positional operands | 

1 branch to >| XJ3 2 




|XJ32 


|Load the address of error message | 
|1Q51I INVALID JNM PARAMETER in | 
| register 7. | 


|R7 | 




(Branch and link to scan the job name | 

|to > | XS 2 4 


|QRNM(IPW$DQR) 






|Move the job name into the queue | 
| record. | 




• 


| If there are no more operands to be | 

| processed branch to. •••••••••••••• • >|XJ56 








| If there are more operands to be | 

| processed branch to >|XJ54 






|XJ36 


| Set up registers 1 and 4 for scanning | 
|the keyword table and determine which | 
| routine to branch to . | 

| JNM=. >| XJ3 2 




|Rl,R4 | 




| US ER= . ,. , . . > | X J 4 

| DISP= > |XJ52 






| PRI= . > | X J5 2 

| CLASS = > | XJ5 2 




|XJ40 


| Load the address of error message | 
|1Q51I INVALID USER PARAMETER in | 
(register 7. | 




|R7 | 




|Get the user information, which may | 
|have a maximum length of 17 | 
(characters, from the statement and | 
|move it into the queue record. If | 
| the user information has been | 
(specified incorrectly, issue message | 
(1Q51I. | 


|QRUI(IPW$DQR) 




|XJ52 


| Set up registers 1 and 3 for scanning | 
|the remaining keywords. | 




|Rl t R3 | 


|XJ54 


| Check for more keywords. | 

| • If there are more keywords branch | 

| to >| X J3 6 








| • If the statement is in error issue | 
| error message 1Q4 9I INVALID | 
| DELIMITER. | 
!• Otherwise, branch to.. >|XJ56 


| | IPW$WT0 
1 | Chart AD 






^h**^' 
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Labels 



Chart GB05: IPW$$XJ - Scan Execution 
JECL Statement 



Modified Data 
Fields 



Reg. 
Usage 



Calls 



/ 



5L 



XJ56 



XJ60 



Check the job logging switch in the 
disk management block to see whether 
the statement is to be logged on the 
console. If so, load the address of 
message 1Q47I into register 1, and 
issue the job log message. 

Branch to. > 

Handle LST, PUN, and PRT Statements 
Task Initiation/Termination 



If partition canceling, then branch 
to , > 

Reserve storage for the TCB of the 
new task. 

Set up register 8 as the base 
register for the new TCB. 

Initialize the storage descriptor 
with the information of the storage 
descriptor of the execution reader 

TCB. 

Reserve storage for the queue records 
to be generated by the new task. 

Initialize the new queue record with 
system defaults and with information 
from the execution reader task: 
© Insert values from the reader 

queue record. 
© Insert blanks for default 

compaction name. 
• Set class identifier to C'A*. 
© Set forms identifier to blanks. 

Set flash identifier to blanks. 

Set disposition to C*D f . 

Set number of copies to X'Ol*. 

Set counts to zero. 

Set more counts to zero. 



Rl 



XJ08 



XJ06 



TNSD(IPW$DTC) 



QNBF(IPW$DQR) 

QNCP(IPW$DQR) 

QNCL(IPW$DQR) 
QNFI(IPW$DQR) 

QNFL(IPW$DQR) 
QNDP(IPW$DQR) 
QNNC(IPW$DQR) 
QNNA(IPW$DQR) 
QNNR(IPW$DQR) 



IPW$WTO 
Chart AD 



Chart AC 



R8 



IPW$RSW 
Chart AC 



v> 
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T - 



( 



^Labels 



>— 



Chart GB05.1: 
Statement 



IPW$$XJ - Scan Execution JECL 



Modified Data 
Fields 



Reg. 
Usage 



Calls 



IXJ64 



Set up register 2 as base register 
for the disk management block* 

Check the statement to determine 
whether a LST or PUN queue record is 
to be formed. If a list record is to 
be formed branch to. > 



Set punch defaults: 

• Set record identifier to C f P' 
indicate punch records. 

• Insert punch default values. 



to 



Branch to > 

Set printer defaults: 

• Set record identifier to CL" to 
indicate list record,. 

• Insert printer default values. 

• Insert default line table. 

• Blank out the phase names. 

• Indicate no phase to load. 

• Insert the default UCS options. 

• Insert option byte. 



XJ64 



XJ66 



QNQI (IPW$DQR) 
QNSP(IPW$DQR) 

QNQI(IPW$DQR) 

QNSP(IPW$DQR) 
TNGW(IPW$DTC) 
TNCT(IPW$DTC) 
TNCT(IPW$DTC) 
TNRS(IPW$DTC) 
QNOP(IPW$DQR) 



R2 



( 
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I Labels 



Chart GB06: IPW$$XJ - Scan Execution 
JECL Statement 



Modified Data 
Fields 



Reg. 
Usage 



Calls 



4 



XJ65 



XJ68 



XJ70 



XJ7U 



XT 00 



If RJE is present in the system,, set 
the remote "to 1 ID in the queue 
record. 

Set up register 4 for scanning the 
entries in the PDB. 

Scan the entries in the PDB to locate 
the first printer or punch device 
defined. 

In case of error,, issue message 1Q4 8I 
NO MATCHING SPOOL DEVICE. 

Move the physical device address in 
the queue record. 

Reserve storage for the TCB extension 
area of the new task. 

Initialize the 3800 printer setup 
portion of the extension area with 
system defaults: 

Set initialize printer flag. 
Set TRC=NO flag. 
Set DEBUG=NORM flag. 
Set forms identifier to blanks. 
Set flash identifier to blanks. 
Set number of copies to be flashed 
to 255. 

Set 1st copy group value to one. 
Set copy group index to one. 
Set correct length of SETPRT parm- 
list. 
• Set default required flag. 

Note: The defaults of the PUB2 area 



related to the device are taken at a 
later time. 

Branch and link to the statement 
analysis routine........... > 

If there are no operands branch 

to ... > 

If there are keyword operands branch 
to > 

If there are positional operands 
branch to ,. . . ,. > 

Update Tasks 



XT50 



XA00 



XT00 



XK02 



XA08 



Reset registers 5 and 6 as base 
registers for the queue record and 
the PDB (IPW$DQR (# IPW$DPD).. 

I 

| If the additional count value is not 
(specified, it is set to the maximum 
| value. 



QNTJ(IPW$DQR) 



R4 



QNCU(IPW$DQR) 



SPLFLAG1 
SPLFLAG1 
SPLFLAG2 
SPLFORMS 
SPLFLASH 
SPLFLSHC 

SPLCOPYG 
SPLCINDX 
SPLLNGTH 

(IPW$DTE) 
TE38RQB 



IPW$WT0 
Chart AD 



IPW$RSW 
Chart AC 



v y 



R5, f R6 



QNBN(IPW$DQR) 
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( 



I 

^Labels 

M 



Chart GB06: IPW$$XJ - Scan Execution 
JECL Statement 



Modified Data 
Fields 



Reg. 
Usage 



Calls 



IXT05 



IXT10 



Copy the device address from the 
queue record into the storage 
descriptor of the new TCB to deter- 
mine which execution writer task,, if 
any (# the new task will replace. 

Set up registers and 4 for scanning 
the entries in the PDB. 

Scan the entries in the PDB to locate 
the entry relating to the nominated 
device and determine whether a sub- 
ordinate writer task exists for it. 

If DISP=N was specified for the 
related entry, reset the do- not- 
interrupt indication, and release 
ownership of the PUB specified by 
that entry. 



TNCU(IPW$DTC) 



R0*R4 



( 



C 
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( 



r 1 

Labels 


Chart GB07: IPW$$XJ - Scan Execution 
JECL Statement 


Modified Data 
Fields 


r — 1 

Reg. 
Usage 


Calls 


XT20 


\ " — ■" " " " — " i 

Save the address of the entry in the 
new TCB. 

If no subordinate task is running 
branch to ... ........... > 


r l 
XT25 


TNRU(IPW$DTC) 
QNDT(IPW$DQR) 








Terminate the subordinate task: 










XT25 


• Set 'stop* termination type code. 

• Post event control block. 

• Exit to task' selection. 

Check the device class within the 
device entry in the PDB whether or 
not to intercept requests for this 
device. If not f branch to........... > 

Check if the disposition is T and, if 
so, set the number of copies to one 
and the copy groupings to zero. 


XT3 5 


TNTT(IPW$DTC) 
TNEB+2(IPW$DTC) 

QNNC(IPW$DQR) 
QNCG(IPW$DQR) 




IPW$WFC 
Chart AA 


XT27 


Check if the disposition is I and, if 
so, test if this is punch output. If 
not, change disposition to D. 




QNDP(IPW$DQR) 






XT28 


Set up device-dependent FCB name 




TNCT(IPW$DTC) 






If the first four characters of the 
FCB phase name are '$$$$', the four 
$s are substituted by standard pre- 
fixes , depending on the printer 
device being serviced. 
Following prefixes are used: 
FCB1 for 3800 
FCB2 for 3211 
FCB3 for 3203 
FCB4 for 5203 




XT30 


If the device to be serviced is a 
3800 printer, branch to > 


XT32 




R1 




Otherwise, release the TCB extension 
area. 


IPW$RLW 
Chart AC 


! XT32 


Attach the new writer task into the 
system. 

Return to IPW$$XR. > 


XJ10 






IPW$ATT 
Chart AA 


XT35 


Get ownership. 

If no ownership is received: 








IPW$ULP 
Chart GC 


XT40 


• Set disposition to C'D'V. 

• Issue message 1Q46I DISP FORCED TO 
D FOR 

• Branch to. * • <• . • • • • • >• . . • • • <• >• >• >• • •• • > 


XT25 


QNDP(IPW$DQR) 
TLCL(IPW$DTL) 




IPW$WTO 
Chart AD 


Set the device type code in the 
device list entry in the PDB to C"N' 
to indicate no interception of 
requests for this device. 
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r T „ 

Labels Chart GB07.1: IPW$$XJ •■ Scan Execution 

JECL Statement 
+ T j 

XT45 Return the storage of the TCB to the | 
storage pool,, if present. | 


r n 

Modified Data 
Fields 


r — ■ <i 

Reg,. 
Usage 


r 1 

Calls | 

1 1 
i 

IPW$RLW j 

Chart AC | 

i 




Release the queue space. 








1 
IPW$RLW | 
Chart AC 

- 




Release the 3800 TCB extension 
area, if present. 








IPW$RLW 
Chart AC 


XT85 


Write JECL statement that is in error 
on SYSLOC. 






R4 


IPW$WTO 




Write appropriate error message. 






R7 


IPW$WTO 




If the incorrect statement is not in 
a continuation card,, branch to....* > 


XT86B 








XT86A | 


Write message '1R33D ERROR IN 
CONTINUATION CARD -CORRECT FULL 
STATEMENT' 

Bypass any continuation card and 
branch to. . . . . . . ...... . ,. .... . ...... . ... > 


XT86C 






IPW$WTO 


XT86B | 


Write message ' 1R33D CORRECT FULL 
STATEMENT'.. 








IPW$WTO 


XT86C | 


If a TCB has not been acquired,, 
branch to. . ............ ,. . ,. ,. ,. . ,. ,. ,. ,. ,. „ > 


XT86 








i 


Release queue space,. 








IPW$RLW 


Release 3800 TCB extension area. 








IPW$RLW 
Chart AC 




Release TCB space. 








IPW$RLW 


XT86 


If error statement from operator, 
branch to ............................. > 


XT87 






IPW$RWS 


Reserve space for correction. 


XT87 | 


Set up space for operator correction. 

Write a blank and ask for operator 
correction. 

If operator replied EOB, branch to. > 

If FLUSH entered, branch to...,....,. > 

If the corrected card is not 

"* $$ LST" or "* $$ PRT" or 

" * $$ PUN", branch to. ............ . > 


XJ10 
XT89 

XT87A 
XJ02 






IPW$WTR 


Branch to process card........ ,. > 


XT87A 
XT89 


Write message ' 1R33D NO VALID 
CORRECTION* and branch to. ^ ........ ... > 


XT86B 


TCTT 
(IPW$DTC) 


I 


IPW$WTO 


Set cancel code. 



v v.->' 
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r t 

Labels 



Chart GB07. 2: IPW$$XJ - Scan Execution 
JECL Statement 



Modified Data |Reg. 
Fields | Usage 



iCalls 



Set off dump option. 

Branch to release work space. 

Statement Analysis 



Additional register usage in the 
statement analysis routines: 



End of (current) statement 
Translate and test work register 
Translate and test work register 
Start of (current) (next) field 
(Expected) length of field 
New queue record 
General work register 
General work register 
New task control block 



CMRG 



XTU5 



|R0 
|R1 
|R2 
|R3 
]RU 
|R5 
|R6 
|R7 
|R8 
.jl 



( 



C 
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Calls 



XAOO 



XA08 



XA10 



XA18 



The statement is checked to determine 
whether there are: 

* No operands. 

« Keyword operands • 

* Positional operands. 

If the statement is in error-, issue 
message 1Q49I INVALID DELIMITER.... > 

Return to caller via register 14. 

Process Positional Operands 



First Positional Operand 



This operand represents the 
disposition attribute and the class 
attribute to be assigned to the queue 
entry. 

If the disposition attribute is 
specified, a branch and link is made 
to the disposition validation 
subrouti ne . ....... ~ ....... . . . . ...... > 

The disposition indicator is reset-. 

If the class attribute is specified,, 
the •disposition/class* indicator is 
reset. 

In case of error, issue message 1Q51I 
INVALID CLASS PARAMETER. > 

Branch and link to get the next 
operand. > 

Second Positional Operand 



XT 5 5 



XS30 



This operand represents the forms 
identification of the stationery or 
card stock to be used in processing 
the output. 

If the operand is specified, the 
•forms' indicator is reset. 

In case of error,, issue message 1Q51I 
INVALID FNO PARAMETER....... .... > 

The TCB extension area is addressed 
using register 4 as base. 
The forms number indicator is moved 
into it. 

Branch and link to get the next 
operand. • . ... • . . . . • • • • • . ............ > 



XT7 



XS40 



XT8 5 



XS40 



QNDP(IPW$DQR) 
QNCL(IPW$DQR) 



QNFI(IPW$DQR) 



SPLF0RMS 

(IPW$DTE) 



IPW$WTO 
Chart AD 



R14 



R0*R1 
R3,R7 



R0,R1„ 
R2 f R3„ 



R7 



R4 



IPW$WT0 
Chart AD 



IPW$WTO 
Chart AD 



,0\ 
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XA20 



XA22 



Chart GB09: IPW$$XJ - Scan Execution 
JECL Statement 



Third Positional Operand 



This operand represents either the 
number of copies to be produced , or 
the address of the tape unit to which 
tape output is to be directed,. 

If a tape unit is specified, the 
address of error message 1Q51I 
INVALID TADDR PARAMETER is loaded 
into register 7 and a branch and link 
is made to the tape subroutine. ... • > 



If no tape address is specified, 
branch to 



> 



If the number of copies is specified,, 
the address of error message 1Q51I 
INVALID COPY PARAMETER is loaded into 
register 7 and a branch and link 
is made to the numeric operand 
processing subroutine to convert the 
operand. > 

The 'number of copies'" indicator is 
reset. 

Branch and link to get the next 
operand. .•..<,...•.••....•••... > 

Fourth Positional Operand 



This operand represents the 
number of output records to be 
handled before the warning message 
1Q51I is issued to the operator,. 

If the operand is specified, the 
address of error message 1Q51I 
INVALID RBM PARAMETER is loaded into 
register 7 and a branch and link 
is made to the numeric operand 
processing subroutine to convert the 
operand. > 

The REM indicator is reset. 

Branch and link to get the next 
operand. ...- *...... > 

Fifth Positional Operand 



This operand, which may only be 
present in a LST (or PRT) statement, 
represents the line table to be used 
for the emulation of carriage channel 
9 and carriage channel 12 overflow. 

A branch and link is made to the line 
table subroutine. > 

Branch to start a new task........... > 



XS28 



XA20 



XSOO 



XSUO 



XSOO 



xsuo 



XS10 
XT 00 



Modified Data 
Fields 



QNNC(IPW$DQR) 



QISIBM{IPW$DQR) 



Reg. |Calls 

Usage 

+ -j 



R2,,R4, 
R7 



R7 



R7 



R2,R4, 
R7 



R7 
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Reg. 
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Calls 



V, 



XKOO 



XK02 



I 



XK04 



XK10 



XK12 



XK14 



XK16 



XK20 



Process Keyword Operands 



Branch and link to get the next 
operand . . . . ................ - . • > 

Load the address of the keyword 
routing table into register 1. 

Matcn the keyword against the entries 
in the keyword table to determine 
which routine to branch to for 
processing this keyword. 

If no match is found, issue message 
1Q50I UNKNOWN KEYWORD. Otherwise,, 
branch to one of the following 
processing routines. 

Disposition Operand (DISP=) 



Branch and link to the disposition 
validation subroutine > 

Reset the disposition indicator. 

Branch to get the next operand and 
process it.......... > 

Class Operand (CLASS=) 



In case of error, issue message 1Q51I 
INVALID CLASS PARAMETER. 

Reset the class indicator. 

Branch to get the next operand and 
process it.. > 

Remote Operand (REMOTE=) 



XS40 



XS30 



XKOO 



Load the address of error message 
1Q51I INVALID REMOTE PARAMETER into 
register 7 and branch and link to the 
numeric operand processing subroutine 
to convert the operand. . . > 

Reset the remote indicator. 

Branch to get the next operand and 
process it .• > 

Forms Number Operand (FNO~) 



In case of error-, issue message 1Q51I 
INVALID FNO PARAMETER. > 

Reset the forms number indicator. 

The TCB extension area is addressed 
using register 4 as base. 
The forms number indicator is moved 
into it. 



XKOO 



XSOO 



XKOO 



XT8 5 



Rl 



RL,R2„ 
R3,R4 



QNDP(IPW$DQR) 



QNCL(IPW$DQR) 



R7 



QNTJ(IPW$DQR) 



I 



QNFI(IPW$DQR) 



R4 



SPLFORMS 

(IPW$DTE) 



IPW$WTO 
Chart AD 



IPW$WTO 
Chart AD 



IPW$WTO 
Chart AD 
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"1 
Calls 




| ^_._ ^ _, „„_^ _, „ 

Branch to get the next operand and 
process it • ••'••<•••••••••••••••>••••• > 


■ 
XKOO 








XK24 


Job Separator Operand (JSEP=) 






R4 




Set the maximum permissible length 
in register 4. 




Load the address of error message 
'1Q51D invalid JSEP parameter... 1 
into register 7. 






R7 






If the operand is enclosed in 
parentheses, branch to > 


XK25 










Branch to the numeric operand 
processing subroutine and convert the 
operand > 


XSOO 




R2,RE 






Reset the job separator indicator. 




QNSP(IPW$DQR) 








Branch to get next operand > 


XKOO 








XK25 


Bypass opening parenthesis and 
address first suboperand. 






R3 






Branch to the numeric operand pro- 
cessing subroutine and convert the 
suboperand > 


XSOO 




R2,RE 






If nothing is specified, branch to. > 
Otherwise, reset the job separator 
indicator. 


XK2A 


QNSP(IPW$DQR) 


R2 




XK2A 


If the delimiter is not a comma, 
branch to > 


XK2D 


QNOP(IPW$DQR) 






Address the 2nd suboperand and assume 
no suppression of separator pages 
between copies desired. 


XK2C 


If f N f is specified, branch to > 

If 'Y' is specified, set suppress 
pages between copies flag in QR. 
Otherwise, branch to > 


XK2C 
XT85 


QNOP(IPW$DQR) 


R3 




Address delimiter 


XK2D 


Test for closing parenthesis. If 
not , branch to ••••• > 


XT85 
XKOO 




R3 

'J 


- 


Address next possible operand and 
branch to handle it > 
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XK26 



XK28 



XK40 



XK48 



XK50 



Chart GB11: IPW$$XJ - Scan Execution 
JECL Statement 



Copies Operand (COPY=) 



Load the address of error message 
1Q51I INVALID COPY PARAMETER into 
register 7 and branch and link to the 
numeric operand processing subroutine 
to convert the operand... ....... . ... > 

Reset the number of copies indicator. 

Branch to get the next operand and 
process it ................. . • • ..... • .. > 

Tape Address Operand (TADDR=) 



Load the address of error message 
1Q51I INVALID TADDR PARAMETER into 
register 7 and branch and link to the 
tape subroutine.,.......*.........,.-. > 

If a mode is specified,, it is moved 
into the new TCB. 

Indicate tape disposition. 

Branch to get the next operand and 
process it.... > 

Records before Message Operand (RBM=) 



Reset the records before message 
indicators. 

In case of error,, issue message 1Q51I 
INVALID RBM PARAMETER. 

Branch to get the next operand and 
process it . ........ *,. ,. > 

Line Table Operand (LTAB=) 



Branch and link to the line table 
subrout i ne . . «• ,. <• ....... -. . . . . . . . . . ,. . ,. ,. > 

Branch to get the next operand and 
process it -. . . . ........ . . . . . . . . , ,. ,. . ,. > 

Records before Split Operand (RBS=) 



Load the address of error message 
1Q51I INVALID RBS PARAMETER into 
register 7 and branch and link to the 
numeric operand processing subroutine 
to convert the operand............. > 



XSOO 



XKOO 



XS28 



XKOO 



XKOO 



XS10 



XKOO 



XSOO 



Modified Data 
Fields 



QNNC(IPW$DQR) 



TNQW+4(IPW$DTC) 



QNDP(IPW$DQR) 



QNBM(IPW$DQR) 
QNBN(IPW$DQR) 



Reg,. 
Usage 
+ 



R7 



R7 



R7 



Calls 






IPW$WTO 
Chart AD 
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XK52 



XK65 



XK72 



XK8 



Reset the records before split 
indicator. 

Branch to get the next operand and 
process it . ....... . -. . . ,. > 

UCS Buffer Operand (UCS=) 



Load the address of error message 
1Q51I INVALID UCS PARAMETER into 
register 7 and branch and link to the 
alphameric phase name subroutine..,. > 

Move the phase name to the new TCB. 

If the FOLD or CHECK option was spec- 
ified, the option is set in the TCB. 

If the CHARS operand is not 
specified, the UCS specification is 
treated as if the UCS image 
specification has been specified for 
CHARS . 

The TCB extension area is addressed 

using register 4 as base. 

If CHARS is specified, branch to... > 

Otherwise, move the UCS phase name 
into the TCB extension area. 

Branch to get the next operand and 
process it ........... . > 

FCB Buffer Operand (FCB=) 



Load the address of error message 
1Q51I INVALID FCB PARAMETER into 
register 7 and branch and link to the 
alphameric phase name subroutine... > 

Move the phase name to the new TCB. 

The TCB extension area is addressed 
using register 4 as a base. 
The fifth through eighth character of 
FCB name is moved into the TCB 
extension area. 

Branch to get the next operand and 
process it .......... . ....... > 

List Device Operand (LST= or PUN=) 



XKOO 



XS24 



XKOO 



XKOO 



XS24 



I 



In case of error, issue message 1Q51I 
INVALID LST/PUN PARAMETER,. 



Store the channel and unit number- 
Branch to get the next operand and 
process it. ........... . > 



XKOO 



XKOO 



QNBS(IPW$DQR) 



TNCT+8(IPW$DTC) 
TNRS(IPW$DTC) 



SPLCHARl 

(IPW$DTE) 



TNCT(IPW$DTC) 



SPLFCB 

(IPW$DTE) 



QNCU(IPW$DQR) 



R7 



R4 



R7 



R4 



IPW$ULP 
Chart GC 
IPW$WTO 
Chart AD 
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Usage 


XK94 


r — — "• — *"" ~ ————————— — — — ——.- — — t 

Priority Operand Handler (PRI=) 


r l 








1Q51I- 




Check parameter for numeric........ > 


XSOO 










Store priority parameter. 




QNPY(IPW$DQR) 








Branch to get next operand and 
process it.............. > 


XKOO 








XK96 


Compact Operand Handler (CMPACT=) 






R7 




In case of error,, issue message 
"1Q51I INVALID COMPACT PARAM. " 




Check parameter for alphameric and 
first character only alphabetic. 












Move the compact name. 




QNCP(IPW$DQR) 








Branch to get next operand and 
process it.......... ...••••.,. > 


XKOO 










FLASH operand (FLASH=) 










XLOO 


Load the address of error message 
MQ51I INVALID FLASH PARAMETER ..' 
into register 7 . 






R7 






If opening parenthesis, branch to.. > 
Set the maximum permissible length in 
register 4. 


XL05 




R4 






Branch to validate the operand > 


XS60 




RE 






Reset the flash identifier. 




QNFL(IPW$DQR) 
SPLFLASH 

(IPW$DTE) 








Let register 3 point to the next 
possible operand. 






R3,R1 






Branch to get next operand > 


XKOO 








XL05 


Bypass opening parenthesis. 

Set the maximum permissible length 
in register 4 . 






R3 
R4 






Branch to validate the operand > 


XS60 




RE 






Reset the flash identifier. 




QNFL(IPW$DQR) 
SPLFLASH 

(IPW$DTE) 






XL07 


Check if the delimiter is a comma or 
closing parenthesis. If not, branch 
to. . > 


XT85 




R1 




- 


Address second value (flash count) . 

- _ , 


. 


- 


R3 

L J 
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Set maximum permissible length in 


■ 




R4,R2 






Branch to validation routine > 


xsoo 




RE 






If value is greater than 255, branch 
to > 


XT85 


(IPW$DTE) 


R2 








If the delimiter is not a closing 
parenthesis , branch to • > 


XT85 




R1,R3 






Branch to get next operand > 


XK00 


- 


' 






BURST operand handler (BURST=) 










XL15 


Load address of error message ' 1Q51I' 
into register 7. 

Make 3800 TCB extension area address- 
able using register 4 as base. 

Assume BURST=N is specified. 

Examine operand: 

If f Y' is specified, branch to > 

If 'N 1 is specified, branch to > 


XL16 
XL18 


SPLFLAG1 

(IPW$DTE) 


R7 
R4 




XL16 


Otherwise, it is an error; branch 

to > 


XT85 


QNPS(IPW$DQR) 






Set burst flag in queue record. 




Set burst flag in 3800 TCB extension 
area . 




SPLFLAG1 

(IPW$DTE) 






XL18 


Address next possible operand. 
Branch to get next operand > 


XK00 




R3 




XL20 


DFLT operand handler (DFLT=) 






R7 




Load address of error message • 1Q51I' 
in register 7. 




Examine operand: 

If 'Y' is specified, branch to..... > 

If 'N 1 is not specified, branch to. > 


XL22 
XT85 










Address 3800 TCB extension area using 
register 4 as base. 






R4 






Indicate no default requested. 




TE38RQB(IPW$DTE) 






XL22 


Address next possible operand. 






R3 




_ 


Branch to get next operand > 

L , „ „ „ ,_ J 


XK00 


_ 


. 





/" 

V 



346 DOS/VS POWER/VS Logic 



Page of SY33-8577-1 , Added November 24, 1977, By TNL SN33-9241 



( 



r 1 

Labels 


Chart: GB12.1 IPW$$XJ - Scan Execution JECL 

Statement 


.. 

Modified Data 
Fields 


r 1 

Reg. 
Usage 


T 

Calls 




COPYG operand (COPYG= 




.—.—._——_-._.__—_—_—.—. 


R3 




into register 7. 




If operand is enclosed in paren- 
theses , branch to > 


XL32 








register 4. 




Branch to validate and convert,.... > 


XS00 




RE 






If nothing is specified, branch to. > 


XT85 




R2 






If value is greater than 255, branch 
to .... . > 


XT85 


QNCG(IPW$DQR) 


R2 
R2 




Store copy group index in queue 
record. 


XL34 


Set transmission count to one. 
Branch to •••• > 


XL39 


QNTC(IPW$DQR) 


R2 

R4 




Clear out work register and set 
maximum permissible length in 
register 4. 




Branch to validate and convert..... > 


XS00 




RE 






If value is zero, branch to. > 


XT85 




R2 




XL36 


If more than 8 copy groups are speci- 
f ied , branch to • > 


XT85 
XT85 


QNCG(IPW$DQR) 


R2,R4 

R2 

R2 




If value is greater than 255, branch 
to > 


Store copy group in queue record and 
address next sub operand. 


XL38 


If no next suboperand, calculate 
total value of all copy groups 
specified. 










XL3 9 


If total value greater than 255, 
branch to > 


XT8 5 


SPLCOPYG 

(IPW$DTE) 






Update the 38 00 TCB extension area. 




Branch to get next operand. > 


XK00 








XL40 


MODIFY operand' (MODIFY-) 






R7 




Load the error message 1 1Q51 I ..' 
address into register 7. 




If opening parenthesis, branch to.. > 


XL42 




R3 




- ■ , „.,- M, 


Get maximum permissible length in 
register 4. 


L . 




R4 
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Branch to validate operand. ........ > 


XS60 




RE 






If nothing is specified, branch to. > 


XT8 5 




R4 






Address the 38 00 TCB extension area 
and update the copy modification 
field. 




SPLCPMOD 

(IPW$DTE) 


R2 






Branch to get the next operand > 


XK00 








XL42 


Bypass the opening parenthesis and 
set the maximum permissible length 
in register 4. 






R3,R4 






Branch to validate, the first specifi- 
cation •••• > 


XS60 
XT 8 5 




RE 
R4 




If nothing is specified, branch to. > 




Address the 38 00 TCB extension area 
and update the copy modification 
field. 




SPLCPMOD 

(IPW$DTE) 


R2 






If no continuation, branch to > 


XL43 




R1 






Address the second part of the 
operand and set the maximum permis- 
sible length in register 4. 






R3,R4 






Branch to validate operand •••• > 


XS60 




RE 






If nothing is specified, branch to. > 


XT85 




R4 






Otherwise, address the 3800 TCB 
extension area and update it. 




SPLCMCHR 

(IPW$DTE) 


R2 




XL43 


If the delimiter is not a closing 
parenthesis , branch to > 

Branch to get next operand. > 

CHARS operand (CHARS=) 


XT85 
XK00 




R1 




XL50 


Load the error message address into 
register 7. 

If opening parenthesis, branch to. . > 

Set the maximum permissible length in 
register 4. 


XL54 




R7 
R4 






Branch to validate operand > 


XS60 




RE 






If nothing is specified, branch to. > 


XL52 




R4 






Address the TCB extension area, using 
register 2. 






R2 






Move in character arrangement table 
value. 




SPLCHAR1 

(IPW$$DTE) 






XL52 


Address delimiter and branch to. . . . > 


XL56 




R3 

L 


__ _______ 
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XL54 


Store address of first character 
arrangement table field in TCB 




TE38GW 

(IPW$DTE) 


R2,R4 




XL55 


Set the maximum permissible length 
in register 4. 






R4 






Branch to validate operand > 


XS60 




RE 






If nothing is specified, branch to. > 


XT85 




R2 






If more than four CATs are. specified, 
branch to > 


XT85 




RE 




Load address of the current CAT field 
in the TCB extension area in register 
14. 






Move CAT value into TCB extension 
area. 

Bump to next CAT field in TCB 
extension area and save it. 

Point register 3 to delimiter. 




SPLCHAR(IPW$DTE) 
TE38GW(IPW$DTE) 


R3 




XL56 


If continuation, branch to > 


XL55 
XT85 
XKOO 








If not closing parenthesis, branch 
to > 




Examine if the UCS operand is 
specified. If so, branch to > 






Otherwise, take the first CHARS value 
as UCS specification. 




TNCT(IPW$DTC) 








Branch to get next operand > 


XKOO 








XSOO 


Numeric Operand Processing Subroutine 






R3„R4 




On entry to this routine,, register 3 
contains the address of the first 
byte of the field to be scanned and 
register 4 contains the maximum 
permissible length of the field* 






Scan the operand field. If the field 
is in error,, issue the error message,, 
the address of which is contained in 
register 7. 






R7 


IPW$WT 
Chart 




Convert the value of the field to 
binary in register 2. 






R2 






Return to caller via register 14. 






R14 





c 
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Line Table Entry Subroutine 



On entry to this routine, register 3 
contains the address of the first 
byte of the field to be scanned* 

Scan the operand field to insure that 
it consists of numeric characters 
only and that it has a length of 26. 
If the field is correct,, each duplet 
is converted to binary and stored in 
the line table field of the TCB.. 

In case of error, issue message 1Q51I 
INVALID LTAB PARAMETER. 

Return to caller via register 14. 

Alphameric Phase Name Subroutine 



On entry to this routine,, register 3 
contains the address of the first 
byte of the phase name. 

Scan the phase name to insure that it 
consists of alphmeric characters. 

In case of error,, issue the error 
message, the address of which is 
contained in register 7,. 

Get the machine length of the phase 
name in register 4. 

Return to caller via register 14. 

Tape Subroutine 



Set the default mode set (X•C3 , ) in 
the new TCB. 

Check the tape unit address in 
register 3 for hexadecimal 
characters. If it is invalid, issue 
the error message,, the address of 
which is contained in register 7,. 

Move the tape address to the new TCB. 

Return to caller via register 14.. 



Modified Data 
Fields 



Reg. | Calls 
Usage 

^ + 1 



TCGW(IPW$DTC) 



TNQW(IPW$DTC) 



TNQW+5(IPW$DTC) 



R3 



R14 



R3 



R7 
R4 

R14 



R7 



R14 



IPW$WT0 
Chart AD 



IPW$WT0 
Chart AD 



IPW$WTO 
Chart AD 



' V - y 



V 



,4 
V. 
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Chart GB14: IPW$$XJ - Scan Execution 
JECL Statement 



~+ 



Modified Data 
Fields 



Reg. 
Usage 



Calls 



IXS30 



IXS36 



( 



IXS38 



IXS40 



IXS42 



Cu 



Disposition Validation Subroutine 



Get the address of the disposition 
table in register 1. 

Match the disposition against the 
entries in the table. If an invalid 
disposition was specified,, issue 
error message 1Q51I INVALID DISP 
PARAMETER. 

Return to caller via register 14. 

Get Continuation Card for Writer-only 



Partition 



If a continuation card is to be read 
for a writer-only partition,, a return 
is made to IPW$$XR. 

Check register 8 to see if a new TCB 
has been acquired. If not return to 
caller via register 14. 

Save registers 14 through 5. 

Store the TCB address in the restart 
indicator of the calling TCB. 

Return to IPW$$XR. ............ ...... > 

Clear the restart indicator in the 

TCB. 

Restore registers 14 through 5,. 
Reload this task's registers. 
Return to caller via register 14. 
Get Next Operand Subroutine 



On entry to this routine, register 3 
contains the address of the field 
delimiter of the current (processed) 
operand. 

If there are no more operands to 
be processed return to start a new 
task. ........ • ,. . ,. ,. ,. ,. ...... . . .. ,. . * .. .. .. . ,. > 

If the delimiter is invalid, issue 
message 1Q49I INVALID DELIMITER...,.-. > 

If the remaining operands to be 
processed are on a continuation card,, 
read the continuation card. 

Load the address of the new operand 
into register 3.. 

Return to caller via register 14. 



XJ10 



XTOO 



XT55 



Rl 



IPW$WTO 
Chart AD 



R14 



R8 
R14 



TCRS(IPW$DTC) 



TCRS(IPW$DTC) 



R14-R5 



R14 



R3 



IPW$WTO 
Chart AD 

IPW$GDR 
Chart EB 



R3 



R14 

JL 



m JL . 
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Labels 


r 1 

Chart GB15: IPW$$XJ - Scan Execution 
JECL Statement 


r " — i 

Modified Data 
Fields 


q 

Reg. 
Usage 


Calls 

L _ — 


XS60 


r — *" """" ~ r 

Alphameric Operand Processing 






R3,R4 




Subroutine 




On entry to this routine, register 3 
contains the address of the first 
byte of the field to be examined. 
Register 4 contains the maximum 
permissible length of the field. 






Scan the operand field? if the field 
is not alphameric, branch to > 


XT8 5 




R1 ,R2 






Examine the delimiter: 

If a comma (,) or blank ( ) or a 

closing parenthesis, branch to > 


XS62 




R1 




XS62 


If not stopped by end of statement, 
branch to > 


XT8 5 




RO 
R4 




Get the machine length of the operand 
in register 4. 






Return to caller via register 14. 






RE 




XJ78 


Handle SLI Statement 


XJ84 








If SLI is not supported or in 

progress, branch to issue a 

mess age . .••.••••••..• . .... . . » . ....... > 






Scan the operand field for the book | 
name . 










XJ82 


Branch and link to IPW$$SL source 
stateement library inclusion. 

Return to IPW$$XR. ......... > 


XJ10 






IPW$$SL 
Chart GE 


XJ84 


Issue message 1Q4 5I SLI STATEMENT NOT 
SUPPORTED . 

Set termination type in the TCB to 
Return to IPW$$XR ....*< > 


XJ08 


TCTT(IPW$DTC) 




IPW$WTO 
Chart AD 


XJ86 


Handle DATA Statement 


XJ06 








If no SLI workspace is available-, 
return to IPW$$RR. ................. . > 






Reset reader switch to C'R" in the 
SLI work space. 




SLRR(IPW$DSL) 

1 

i 




i 




Return to IPW$$XR. . ...... > 


|XJ08 


1 
1 




1 

1 



\, -y 



X„. A 






^ 
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CHART GC: IPW$$LU - UPDATE LUB AND PUB TABLES (12 PARTS) 



Chart GCOO: IPW$$LU - Update LUB and PUB Tables,, General Flow and Macro Calls 



( 



IPW$$CP 




IPW$$SA 


' 


IPW$$OT 




IPW$$PL 


Command Processor 


Save Account 


Open Tape 


Physical List 




1 




II 




1 









I 



IPW$$LU 


Update LUB and PUB tables 


Label 


Routine 


Functions/ 
Interfaces 


Services 


LUOO 


Function Entry 






LU20 


Unassign LUB 






LU30 


Locate unowned PUB 






LU40 


Locate and assign unassigned LUB 






LU50 


Release related LUBs 






LU60 


Release specific PUB 






LU70 


Locate PUB of assigned LUB 






LU80 


Locate PUB of programmer logical unit 






LU85 


Assign/unassign SYSLST 






LU90 


Function Exit 







I 



IPW$$CP 



Command Processor 



I 



IPW$$SA 



Save Account 



I 



IPW$$OT 



Open Tape 



I 



IPW$$PL 



Physical List 
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Labels 


r _ 1 

Chart GC01: IPW$$LU - Update LUB and PUB 
Tables 


r 1 

Modifier Data | 
Fields 


r 1 

Reg. 
Usage 


r 

Calls 




r — ** " • — — —— — ~~t 

The first 16 bytes constitute the 
section descriptor: 

•LUCS V10M1 • 

On entry, the following register 
contents are relevant: 

0: branch index to required 
function: 


r i 




R0 ! 








4 

8 

12 

16 

20 

24 

28: 
32: 
36: 


: unassign LUB 

: locate unowned PUB 

: assign LUB 

: release related LUBs 

: release specific PUB 

: identify PUB for specific 

LUB 
i release related programmer 

LUBs 

identify PUB of logical unit 

assign SYSLST to printer 

unassign SYSLST 












1: PIB address 

2: device address in EBCDIC: 

C'cuux'V, where x may be - 

R for Reader 
P f or Punch 
L for List 
T for Tape 
P for Disk 

For the unassign function 
register 2 contents are ignored,, 
and for the release functions 
the device type f X f is ignored* 

3 : CCB address 

For the locate and release 
functions register 3 contents 
are ignored. 






Rl 
R2 

R3 






10: POWER/VS permanent area address 

11: TCB address 

13: Task save area address 

14: caller's return address 

15 : Function base address 




IPW$DPA 
IPW$DTC 
IPW$DSV 


RIO 
Rll 
R13 
R14 
R15 


1 



w 



l "x y 
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( 



Labels | Chart GC02: IPW$$LU - Update LUB and PUB 
Tables 

Function Entry 



LUOO 



( 



LU10 



LU20 






Modifier Data 
Fields 

+ 



Caller's registers are saved. 
Because the subsequent functions will 
(or may) change system I/O tables, 
any concurrent I/O handling activity 
may produce unpredictable results. 
Therefore, the system is 'seized' 
(monopolized) for the duration of 
function execution through an SVC 22. 
Parameter register will contain 255 
(X*FF') to signal that interrupts are 
allowed. 

Register 5„ to be used as a base 
address for COMREG access,, is loaded 
with the COMREG address* 

The PIK of the partition concerned is 
placed in register 6 from the PIB 
extension of the PIB addressed in 
register 1. 

The function branch index passed in 
register is now loaded in register 
4 and used to branch to the 
appropriate function through the 
following branch table. 

Index 0: Unassign LUB............. > 

Index 4: Locate PUB................. > 

Index 8: Assign LUB............... > 

Index 12: Release related LUBs...,. > 
Index 16: Release specific PUB.... > 

Index 20: Identify PUB of specific 

LUB.. . . > 

Index 24: Release related programmer 

LUBs.. > 

Index 28: Identify PUB of programmer 

logical unit. , , . ,. ,. ,. . .... > 

Index 32: Assign $YSLST LUB to 

specified PUB > 

Index 36: Unassign SYSLST LUB from 

specified PUB. . > 

Unassign LUB Routine 

The address of the start of the 
programmer LUB table part of the 
partition concerned is now calculated 
in register 7. 

The PIK in register 6 is converted to 
the appropriate index in the FICL,, 
which is then added to the FICL 
address to address the first- in- class 
index required. This index is 
multiplied by 2 (LUB entry size) and 
added to the LUB address of the 
partition. 



LU20 
LU30 
LU4 
LU50 
LU60 

£U7 

LU50 

LU8 

LU85 

LU85 



Reg. 
Usage 



R5 



R4 



R7 



R6 



R8 



Calls 



IPW$SAV 



J-*- 
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Labels 



LU22 



LU23 



LU25 



Chart GC03: 
Tables 



IPW$$LU - Update LUB and PUB 



(Modifier Data 
Fields 



If the logical unit found in the 
specified CCB is a programmer logical 
unit, LUB table pointer register 7 is 
positioned correctly and branch to 
conti nue . ,. • ,. ,. . ,. . ,. . ,. . • • „ . ...... . ,. ,. . ... > LU 2 2 

Otherwise,, register 7 must be 
"backspaced* by the number of system 
LUBs for the partition to point to 
the first system LUB in stead of the 
first programmer LUB,. 

Using register 8 as a work register, 
the number of system LUBs is 
retrieved from the NICL, and, after 
multiplication by 2„ subtracted from 
the first programmer LUB address in 
register 7. 

Using register 8 as a work register,, 
the logical unit number concerned is 
retrieved from the CCB,. 

The logical unit number and 
programmer LUB indicator in the 1 CCB 
are reset. 

Register 7 is updated to point to the 
LUB entry concerned. 

If LUB currently unassigned,, 

return . . , ............... > LU9 

Otherwise,, the PUB pointer is loaded 
in register 8. 

If the device is a 3800 printer, a 
branch is made to reset the printer 
setup with the hardware/system 
defaults > LUP1 

Check for DASD.. If so,, branch to.. > LU90 

The address of the PUB ownership 
table entry for the PUB concerned is 
loaded in register 4. 

The ownership code for the partition 
involved is loaded in register 8, 
using the partition index in register 
6 to address the applicable byte of 
the internal ownership reference 
table LU3Z,. 

If not owned by partition concerned, 
return . . . > LU9 

(Otherwise, the ownership is released, 

I and return . • ... ....... > | LU9 

j J 



— i 1-- 



Reg. 
Usage 



I Calls 



4" 



R7 



R8 



CBLN(IPW$DCB) 
CBLC(IPW$DCB) 



R8 



R7 



R8 



V. 



RE 



R4 



R8 



,4 



352 DOS/VS POWER/ VS Logic 



Page of SY33-8577-1 , Added November 24, 1977, By TNL SN33-9241 



"H 



Labels 



I- 



Chart GC03.1: IPW$$LU - Update LUB and 
PUB Tables 



Modifier Data 
Fields 



Reg. 
Usage 



Calls 



LU30 



( 



Locate Unowned PUB 



The PIB address is saved in register 
9 because the subsequent check for 
valid hexadecimal digits in the 
device address specification,, passed 
in register 2 t may destroy register 1 
contents. 

The device address as stored in 
register 2 save area location is 
checked. 

PIB address restored in register 1. 

If specification error,, branch to 
diagnose . .......................... > 

Otherwise, the device address is 
converted from EBCDIC to hexadecimal,. 

PUB table address is loaded in 
register 7 lf and PUB ownership table 
address is loaded in register 8. 

In the following loop the PUB table 
is scanned for the specified device 
address. 



LU3X 



R9 



Rl 



SVR2(IPW$DSV) 



R7 

R8 



352.1 



If 






I Labels 



( 



h 



ILU32 



ILU34 



( 



ILU36 



ILU35 



Chart GCOU: IPW$$LU - Update LUB and PUB 
Tables 



If end of PUB table reached and PUB 
not found,, branch. ................. > 

If device address is the one 
specified,, branch to process....... > 

Otherwise, register 8 is incremented 
by 2 to point to the next PUB 
ownership entry.. 

Register 7 is incremented by 8 to 
point to the next PUB entry,, and 
branch back to check next PUB 
entry .................. . . . . ,. . ,. ,. . . .* . > 

If PUB ownership entry indicates 
that the device is already owned-,, 
branch.. .................... . ,. . ,. . . . ,. > 

If PUB ownership entry indicates that 
the device is waiting for volume to 
be mounted, branch. . * . . . . . . . . /. . .... > 

If PUB entry indicates "device down',, 
branch . . .... ,. ,. ,. -. . ,. . . ,. . ,. ,. . . . . .. . ,. ,. ,. ,. ,. > 

Otherwise,, PUB entry address is 
loaded in register 2. 

The device type code from the PUB is 
inserted in the high order byte of 
register 2„ and the device type as 
passed in register 2, having been 
destroyed by the conversion to 
hexadecimal, is restored to its 
original EBCDIC representation. 

Register 9 is loaded with the address 
of the internal EBCDIC device type 
table LU3Y. 

In the following loop the device type 
as specified is matched against 
device type in the internal table,. 

If device type specified matches 
device type in current table entry,, 
branch to continue check........... > 

If end of table,, branch to error 
exit ........ . ,. . «. . . . . . . . . . . ,. . . . ,. . . . ,. > 

Otherwise, register 9 is incremented 
by 2 to point to the next table 
entry, and branch back to continue 
scan...,....^......,.....,.... <. . .... > 



LU3X 



LU3U 



LU3 2 



LU3X 



LU3X 



LU3X 



LU38 



LU3X 



LU36 



Modifier Data 
Fields 



SVR2(IPW$DSV) 



Reg. 
Usage 



I Calls 



— ^ 



R8 



R7 



R2 



R2 



R9 



R9 
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Labels 



Chart GC05: IPW$$LU 
Tables 



Update LUB and PUB 



T 

The high order hexadecimal digit of j 
the one byte internal device type in | 
the PUB is now used to check for the 
correct device. Since there are two 
families of reader devices and of 
punch devices,, each of which has a 
different high-order hexadecimal 
digit as its characteristic, the 
following routine is used to 
determine to which particular 
reader/punch device family this 
particular device belongs. 

The internal device type is loaded in 
register 4 from the PUB # the low- 
order 4 bits are set to zero to make 
direct comparison possible,, and,, if 
correct reader/punch type not yet 
found, branch back to continue table 
scan .......... . ,. . . . . . . . . . ,. . . ,. .... . ,. > 

Otherwise, if device tape cartridge 
reader, error return. ............ . - > 

Otherwise,, the partition ownership is 
set for the applicable PUB. 

Register 6 is shifted to convert the 
PIK to the appropriate index to the 
internal PUB ownership mask table 
LU3Z, and the mask is moved to the 
PUB ownership table entry. 

The return value for register 2 
(device type + device address) is 
stored in the task save area location 
for register 2, and return.......... > 

Locate and Assign LUB Routine 



LU38 



LU40 



The PIK in register 6 is converted to 
the correct NICL/FICL index for the 
partition concerned. 

Using register 4 as a work register,, 
the programmer LUB index is loaded in 
register 8„ and the number of pro- 
grammer LUBs is loaded in register 9. 

The address of the first programmer 
LUB of the partition is then 
calculated in register 8„ and saved 
in register 7. 

In the following loop,, the first 
available programmer LUB of the 
partition is searched. If found,, it 
will be assigned. 



LU35 



LU3X 



SVR2 (IPW$DSV) 



LU9 



R4 



R6 



R6 



R4 

R8 
R9 



R8,R7 



I 

-X- 



v.. 
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ILU44 



ILU46 



C 



ILU49 



ILU50 



Chart GC06: IPW$$LU - Update LUB and PUB 
Tables 



If LUB to be checked is currently 
unassigned,, branch to assign. . ... . . > 

Otherwise,, register 8 is incremented 
by 2 to point to the next LUB, and r 
if not yet all LUBs for this 
partition have been scanned, branch 
back to check next programmer LUB.. > 

If no LUB available,, exit.......... > 

The high-order byte of register 2 is 
cleared to strip internal device 
type,, leaving just the PUB address 
passed by the caller. 

The start address of the PUB table is 
subtracted and the remaining 
displacement is divided by 8 to 
produce the appropriate PUB pointer,, 
which is stored in the located free 
LUB,, thereby assigning it to the PUB 
concerned. 

The LUB displacement is calculated in 
register 8 and divided by 2 to 
produce the correct programmer 
logical unit number,, which is then 
stored in the caller's CCB, pointed 
to by register 3. 

The function is completed by setting 
the 'programmer logical unit* and 
'EXCP Real' switches in the caller's 
CCB. 



Branch to function exit. 



Since no LUB is available, LUB number 
and 'programmer logical unit' switch 
in the caller's CCB are reset to 0. 



Branch to function exit...... 

Release Related LUBs Routine 



The PIB address in register 1 is 
saved in register 9 # because it might 
be destroyed in the subsequent 
examination of the device address 
passed in register 2. 

The device address is checked for 
valid hexadecimal digits in EBCDIC 
representation . 

The PIB address is restored,, 
and if device address in error, 
branch . ............ . . . . . . . . . . . . . ... > 



LUU6 



LU44 



LU49 



LU90 



LU90 



LU3X 



Modifier Data 
Fields 



Reg- 
Usage 



ICalls 



R8 



R2 



R8 



R9 



Rl 
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Labels 



Chart GC07: IPW$$LU - Update LUB and PUB 
Tables 



Modifier Data 
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Reg. 
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I Galls 



H 






LU52 



LU54 



LU56 



LU58 



Otherwise,, the device address is 
converted from EBCDIC to true 
hexadecimal representation. 

Register 2 is initialized with the 
PUB table address. 

The following loop scans the PUB 
table for the specified device 
address. 

If end of PUB table reached, branch 
to indicate error......'. > 

Otherwise,, if current PUB is the PUB 
for the device address requested,, 
branch to process . ........ . . . . . . . . . > 

Otherwise,, register 2 is incremented 
by 8 to point to the next PUB,, and 
branch back to check next PUB...... > 

The PUB pointer associated with this 
PUB is calculated in register 2. 

The NICL/FICL index is calculated by 
shifting PIK in register 6. 

Using register 4 as a work register: 

• The programmer LUB index is loaded 
in register 7, 

• the number of system LUBs is 
loaded in register 8, and 

• the number of programmer LUBs is 
loaded in register 9- 

The total number of LUBs is then 
calculated in register 9,, and the 
system LUB index in register 7- 

The address of the first LUB of the 
partition concerned is calculated in 
register 7. 

In the following loop, all partition 
LUBs are scanned for a PUB pointer to 
the specified device. If the device 
is a 3800 printer, a branch is made 
to reset the printer setup with the 

hardware/system defaults .> 

If found, the LUB concerned will be 
unassigned. 

If the LUB to be examined is assigned 
to the PUB specified, the assignment 
is reset. 

Register 8 is incremented by 2 to 
point to the next LUB. 

If not all partition LUBs have been 
scanned yet,, branch back to check 
next LUB-. . ,. . ,. .. ,. . . ,. . . . ,. ,. ,. ,. ...... . . . ,. ,. ,. > 



LU3X 



LU54 



LU5 2 



LUP1 



SVR2(IPW$DSV) 



R2 



R2 



R2 



R6 



R4 



R7 
R8 

R9 



R9 
R7 

R7 



R2, R4 



R8 



R9 



LU56 



,4" -- 

< y 
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ILU60 



ILU62 



C 



The PUB pointer in register 2 is 
multiplied by 2 (PUB ownership table 
entry width) to provide the proper 
table index. 

The address of the PUB ownership 
table entry for the PUB concerned is 
calculated in register 4- 

Using the partition index in 
register 6„ the address of the 
correct ownership mask is loaded in 
register 2. 

If the PUB is not owned by the 
partition concerned, branch to 
function exit. ........ ,. . ,. . . ........ > 

Otherwise,, ownership is released. 

Branch to function exit............ > 

Release Specific PUB Routine 



The device address passed in register 
2 in EBCDIC representation is checked 
for valid hexadecimal digits. 

If device address specification in | 
error,, branch. , > 

Otherwise,, the device address is 
converted to true hexadecimal.. 

The PUB ownership table address is 
loaded in register 4. 

The PUB table address is loaded in 
register 7. 

The following loop scans the PUB 
table for the PUB with the specified 
device address. 

If the PUB to be checked contains the 
specified device address., branch to 
release ownership..... > 

Otherwise, register 7 is incremented 
by 8 to point to the next PUB,, and 
register 4 is incremented by 2 to 
point to the associated PUB ownership 
table. 

If end of PUB table, branch to 
indicate not found................. > 

Otherwise,, branch back to check next 
PUB . > 



LU9 



LU9 



LU6X 



LU6U 



LU6X 



LU6 2 



R2 



R4 
R2 



SVR2(IPW$DSV) 



R4 



R7 



R7 
R4 
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LU64 



LU70 



LU72 



LU74 



LU76 



The PIK in register 6 is shifted to 
convert it to a partition index. 

Using this index,, the address of the 
correct ownership mask is loaded in 
register 8„ and,, if the device 
concerned is not owned by this 
partition,, a branch is made to the 
f unc ti on exrt . ,. .. . . . ,. . . .. . • . ,. . ,. ,. ..... > 

Otherwise, the ownership is released,, 
and branch to function exit....*... > 

Identify PUB of Specified LUB 



The LUB specified,, as passed in 
register 2 in EBCDIC representation,, 
is checked to determine if LST 
(SYSLST) has been specified. 
If so, branch. .....»......<...... .,.,. > 

Otherwise,, if SYSPCH has been 
specified,, branch.... ....... > 



The PIB address in register 1 is 
saved in register 9 to allow for the 
subsequent translate and test 
instruction. 

The LUB specification passed is 
checked for valid numerics. 

PIB address is restored. 

If LUB specification in error, branch 
to di agnos e. . ,. ,. . . . . .. . ,. . . ,. . . . . . ,. . . ,. ,. > 

Otherwise,, the LUB is packed,, loaded 
in register 9„ converted to negative 
to indicate programmer LUB. 

Branch to continue, . ,. ,. <. . . . > 

SYSPCH index (2) is loaded in 
register 7 (positive to indicate 
system LUB).. 

Branch to continue. ............ ...... > 

SYSLST index (3) is loaded in 
register 7 (positive to indicate 
system LUB). 

The PIK in register 6 is converted to 
the proper partition index for 
FICL/NICL access, and used to load 
the proper programmer LUB index in 
register 8„ as well as in byte 1 of 
task save area for register 2. 



R6 



R8 



LU9 



LU9 



LU7U 



LU72 



R9 



Rl 



v_y 



LU7Z 



SVR2(IPW$DSV) 



LU76 



R7 



R7 



LU76 



SVR2(IPW$DSV) 



R7 



R6 



R8 
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| If LUB concerned is programmer LUB,, | 
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(Modifier Data 
(Fields 

„ + 


1 Reg. | 
j Usage 1 


Calls 





| Otherwise,, using register 9 as a work| 
| register,, the number of system LUBs | 
|is stored in the first halfword of J 
| task register 2 save area,, and | 
| subtracted from the programmer LUB | 

(register 8 contain the LUB index for | 
|the first system LUB, | 


|SVR2(IPW$DSV) 


|R9 ! 
|R8 




|LU78 


|The programmer LUB number is made | 
| positive again. | 

| Register 9 is set up to point to the | 
| number of programmer LUBs for the | 
| partition concerned. j 

| If the programmer LUB number | 
| specif ied is too high for this | 
(partition, branch to diagnose...... >|LU7Z 




(R7 
|R9 




|LU7A 


|The (programmer or system) LUB number) 
j is multiplied by 2 to obtain the | 
(proper LUB displacement. | 




JR7 




C| 


(The (programmer or system) first LUB | 
| index is multiplied by 2„ and both | 
(values are added to the address of | 
(the start of the LUB table to obtain | 
|the address of the LUB concerned. | 

(If this LUB is not assigned, branch | 

| to diagnose. . . . . > | LU7 Z 

(Otherwise, using register 9 as a work) 
(register, the PUB pointer is | 
j converted to a PUB address in ] 
(register 8. | 

|The device address of this PUB is | 
j converted to EBCDIC in the 3 high | 
j order bytes of the task register 2 | 
(save area. | 

(The device type is copied from the | 
|PUB to the low-order byte of task | 
(register 2 save area. | 

| Branch to function exit............ >|LU9X) 


| SVR2(IPW$DSV) 
( SVR2(IPW$DSV) 


|R8 
|R7 

|R9 
|R8 




|LU7Z 


(Return parameter is made zero by | 
| clearing task register 2 save area, | 
| and bran ch to exit . ................ > | LU9 


JSVR2(IPW$DSV) 
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Labels 



Chart GC11: IPW$$LU 
Tables 



Update LUB and PUB 



Modifier Data 
Fields 



Reg. 
Usage 



Calls 



LU80 



LU85 



LU87 



LU88 



Identify PUB and Device Address of 
System/Programmer Logical Unit 



Register 7 is loaded with the logical 
unit and the type code byte is 
cleared. 

If the logical unit is a system unit f , 
branch to define the cuu* ......... .. > 

Otherwise,, make the contents of 
register 7 negative, and branch to 
define the cuu. . ................... > 

Assign/Unassign SYSLST Routine 



The PIB address in register 1 is 
saved in register 9, because it 
might be destroyed in the subsequent 
examination of the device address 
passed in register 2. 

The device address is checked for 
valid hexadecimal digits in EBCDIC 
representation . 

The PIB address is restored and, if 
device address in error, branch.... > 

Otherwise, the device address is 
converted from EBCDIC to true 
hexadecimal representation. 

Register 2 is initialized with the 
PUB table address. 

The following loop scans the PUB 
table for the specified device 
address. 

If end of PUB table is reached, 
branch to indicate error > 



Otherwise, if current PUB is the PUB 
for the device address requested, 
branch to process > 

Otherwise, register 2 is incremented 
by 8 to point to the next PUB, and 
branch back to check next PUB > 

The start address of the PUB table is 
subtracted and the remaining 
displacement is divided by 8 to 
produce the appropriate PUB pointer. 

The PIK in register 6 is converted 
to the proper partition index for 
FICL/NICL access. 



LU76 



LU76 



LU3Z 



LU3Z 



LU88 



LU87 



R7 



SVR2(IPW$DSV) 



R7 



R9 



R1 



R2 



R2 



R2 



R6 



k. 
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Labels 


Chart GC12: IPW$$LU Update LUB and PUB Tables 


Modified Data. 
Fields 


Reg. Calls 

Usage 

■ 




Using register 4 as a work register: 






R4 






- the programmer LUB index is loaded 
into register 7. 






R7 






- the number of system LUBs is 
loaded into register 8. 






R8 






The index to the system LUBs is 
calculated in register 7. 






R7,R8 






The address of the SYSLST LUB of the 
partition concerned is calculated in 
register 7. 






R7,R8 




LU89 


If assign function was requested, 
branch to . > 


LU89 

LU90 
LU3Z 








If the LUB to be examined is 
assigned, the assignment is reset. 
Branch to function exit > 


If the SYSLST LUB is already 
assigned, branch to. .... . > 

Otherwise, the low-order byte of 
register 2, containing the PUB index, 
is stored in the SYSLST LUB, thereby 
assigning it to the PUB concerned. 


LU90- 


Function -jtsxit Routine 


! 








The system is now released by the 
PUB/LUB update routines: 




Register is loaded with 255 (X'FF') 
to signal enabled state, and an SVC 
22 is issued to release the system. 






R0 






Caller's registers are restored and 
control is passed back to the caller. 








IPW$RET 




3800 printer setup 












On entry the following register 
contents are relevant: 
2 index to PUB entry 
7 address of LUB 
14 return address 










LUP1 


Check whether the TCB belongs to the 
command processor task. If so, 
return to caller via register 14. 
If the TCB belongs to the Initiator/ 
Terminator task or the print status 
task, return is made to the caller 
via register 14. 






RE 
RE 




1 


The address of the PUB ownership 
table entry for the PUB concerned is 

loaded in register 3 . 

___.! ; »_ 


-J 


~ - 


11 


-J 



c 
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r~ — i 
Labels 


- ' " 1 

Chart GC12.1: IPWSSLU - Update LUB and 

PUB Tables 


Modified Data 
Fields 


Reg . 
Usage 


I Calls 

u. 




The ownership code for the partition 
involved is loaded into register 1 , 
using the partition index byte in 
register 6 to address the applicable 
byte of the internal ownership 
reference table LU3Z. 








i — 

1 

1 
1 

1 
1 

1 
1 




If not owned by the partition 
concerned, return to caller via 
register 14. 








1 
1 

| 




Otherwise, register is loaded with 
255 (X f FF f ) to signal enabled state 
and an SVC 22 is issued to release 
the system. 






RO 






Load the length of the temporary 
work space in register 1 and reserve 
work space. 






R1 


IPW$RSW 
Chart AC 




Set up register 4 as a base to the 
work space area. 






R4 






Copy the storage descriptor into the 
work space area. 




LUWS(LUWS) 








Save registers 14 and 15. 




LUGR(LUWS) 








The model SET?RT parameter list and 
the LUB address are moved into the 
work space. 




LUSP(LUWS) 


R1 






Storage is reserved for the service 
request block (SRB) . 








IPW$RSW 
Chart AC 




Register 1 is set up as a base to the 
SRB. 






R1 






SETPRT request is indicated, and the 
parm field in the SRB is set up to 
point to the SETPRT parameter list. 




SRBREQ,SRBPARM 
(IPW$DSR) 


R2 






Temporarily assign a new register 
save area. 




LUSV(LUWS) 


RD 






Examine if the task already uses 

asynchronous service. If so, 

branch to > 


LUP3 


L 




IPW$$AS 


Otherwise, attach the DOS/VS subtask 
via IPW$IAS TYPE=ATTACH. 



A \ 
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Labels 


Chart GC12.2: IPW$$LU - Update LUB and 
PUB Tables 


Modified Data 
Fields 


Reg 
Usage 


Calls 


LUP3 


Pass the SETPRT request to 
asynchronous service for processing 
IPW$IAS TYPE=SERVICE. 

Unassign the temporary register save 
area and reassign the original. 

Restore registers 14 and 15. 

Release the service request block. 

Release the work space. 

Seize the system again for further 
execution of the function through 
an SVC 22. Parameter register will 
contain 255 (X ! FF f ) to signal that 
interrupts are allowed. 






RD 
RE,RF 

RO 


IPW$$AS 
Chart 

IPW$RLW 
Chart AC 




Return to the caller via register 14. 











( 
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CHART GD: IPW$$IC - INVOKE COMMAND PROCESSOR (U PARTS) 



Chart GDOO: IPW$$IC • Invoke Command Processor,, General Flow and Macro Calls 



IPW$$I2 




IPW$$CP 




IPW$$TM 


POWER/VS 
Initialization 


Command 
Processor 


POWER/VS 
RJE 




| 




II 




1 





I 



IPW$$IC - Invoke Command Processor 


Label 


Routine 


Functions/ 
Interfaces 


Services 


ICOO 
IC10 

IC24 


Function Entry 

Form Task Control Block for 
Auxiliary Command Processor 
Task 

Attach Auxiliary Command 
Processor, Exit 




B 
A 


I 





G 



IPW$$I2 



POWER/VS 
Initialization 



I 



IPW$$CP 



Command 
Processor 



I 



IPW$$TM 



POWER/VS 
RJE 



Services 



IPW$$NU 


Macro 


Ref. 


Chart 


Task Management 


A 
B 


AA 
AC 


IPW$ATT 


Storage Management 


IPW$RSW 
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Labels 



ICOO 



Chart GD01: IPW$$IC - Invoke Command Processor 



The first 16 bytes constitute the 
section descriptor: 



'ICSD 



V7M0 



On entry,, the following register 
contents are relevant: 

0: (If nonzero) address of event 

control block to be posted on 

function completion 
1: address of buffer containing the 

command to be processed 
10: address of POWER/VS permanent 

area 



11 
13 
14 
15 



address of TCB 
address of task save area 
return address caller 
function base address 



Function Entry 

Caller's registers are saved. 

Form Task Control Block 



A command processor TCB is reserved. 

The address of the new TCB is loaded | 
in register 8,. 

Initialization of the new TCB is 
started: I 

• The storage descriptor is moved 
in. 

• The RJE identifier is set from the 
caller's TCB. 

• Receiving fields for command and ! 
operands are set to blanks. 

• The caller's ECB address is set- 

The address of the 72 byte buffer 
containing the command is loaded in 
register 3. 

The address of the second- last byte 
of the buffer is loaded in register 
0,. 

If the first 4 bytes of the buffer do 
not contain an RJE prefix ('*..')„ a 
branch is made to process central 
ope r a tor command ........ ,. . . , m . ,. ,. . ,. ,. ,. > 

Otherwise/, the remote sequence number 
is moved from buffer to TCB (f and 
register 3 is incremented by four to 
point past the RJE prefix. 



I CIO 



Modified Data 
Fields 



J Reg. | Calls j 
| .Usage \ \ 

^ + ^ 



IPW$DPA 

IPW$DTC 
IPW$DSV 



CPSD(IPW$DTC) 

CPID(IPW$DTC) 

CPCM(IPW$DTC) 

CPOP(TCDS) 

CPEA(IPW$DTC) 



CPNO(IPW$DTC) 



IR0 



|R1 

1 

| RIO 

I 

jRll 

JR13 

|R14 

|R15 



IR8. 



IR3 



IRO 



|R3 
-X 



]IPW$SAV 

1 

I 
I 

|I.PW$RSW 
(Chart AC 
1 
i 



! 

-JL- 



\_y 



,4 " 

v. 
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IC10 



Labels 



Chart GD02: IPW$$IC - Invoke Command 
Processor 



Modified Data 
Fields 



Reg. 
Usage 



ICalls 



IC15 



( 



The length of the buffer to be 
scanned is calculated in register 4, 
and the buffer is scanned for the 
command operation code. 

If no operation code is found,, a 
branch is made to bypass further 
statement checking................. > 

Otherwise,, if the first character of 
the operation code is not a P (f branch 
to bypass incrementing operation code 
pointer register 1 (set by translate 
and test instruction)...........*.. ~> 

If the first character is a P,, 
register 1 is incremented by one to 
point past the P. 

The operation code address is loaded 
in register 3. 

Register 1 is initialized with the 
address of the last operation code 
byte if the operation code has the 
maximum length of 8 bytes* in case 
the subsequent translate and test 
instruction would not encounter a 
blank before the end of the field. 

The buffer is scanned for the end of 
the operation code. 

The machine length of the operation 
code is calculated in register 4 ! 

The operation code is copied into the 
new TCB. 

Register 3 is set to point past the 
operation code. ! 

The machine length of the the 
remaining field to be scanned for 
operands is calculated in register 4. 

The buffer is scanned for the first I 
non- blank position,, indicating the 
start of the operand field,. | 

If no operand is founds branch to I 
bypass further statement scan....... > 

Otherwise, the address of the start 
of the operand field is loaded in 
register 3. 

The length of the remaining operand 
field is calculated in register U„ 
and the operand field is moved to the 

new TCB. 



R4 



Rl f R2 



IC20 



IC15 



Rl 

R3 
Rl 



R1 ( ,R2 



R4 



CPCM(IPW$DTC) 



R3 



R4 



IC20 



R1,,R2 



R3 



R4 



CPOP(IPW$DTC) 
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| Labels (Chart GD03: l£W$$IC - Invoke Command 

| j Processor 

|. + T 

I | Auxiliary Processor I 


1 — - 

[Modified Data 
| Fields 

+ 


JReg. 
j Usage 

-+ 

|R3 


JCalls 
-+ 


| (processor TCB is in register 3. j 




j |The command processor TCB storage | 
j [descriptor is copied to the new TCB. j 


|TCSD(IPW$DTC) 






| | is initialized. | 


|TCTT(IPW$DTC) 






j | Using register X as a work register,, | 
| | the new task's register 7 is set to | 
j | address the command processor control | 
j J block. | 


|TCR7(IPW$DTC) 


]R1 




| [Using register 3 as a work register,, | 
| |the new task's register 8 is set to | 
| | address the command processor.. | 


|TCR8(IPW$DTC) 


]R3 




| [The address to the spool management | 
| [parameter list (SPL) is initialized | 
| |if present. | 


|TCPL(IPW$DTC) 






| |The address of the new TCB is now | 
| [loaded in register 1„ and the command) 
| [processor is attached. | 




|R1 


| IPW$ATT 
j Chart AA 


| | After attaching command processor,, ] 
| [control is returned to the caller. | 






| IPW$RET 



x.. 



y 
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( 



Chart GEOO: IPW$$SL - Get Source Statement Library Record,, General Flow and Macro Calls 



IPW$$XR 



Execution Reader 



V 



Services 



IPW$$SL - Get Source Library Statement 



Label 



SL02 
SL06 
SL14 
SL16 
SL30 
SL38 
SL44 
SL52 
SL54 
SL56 
SL60 



Routine 



First Time Function Entry 

SSL Directory Search 

Read first Record of SSL Book 

Non-First Time Function Entry 

SLI Update Statement Routine 

J EC L Statement Routine 

Function Exit 

Book not found Exit 

End of Book Subroutine 

Read SSL Record 

Process DATA statement 



Functions/ 
Interfaces 



IPW$$XR 



Execution Reader 



Services 



A 
D 
D 



C 
B 
D 



IPW$$NU 


Macro 


Ref. 


Chart 


Storage Management 


A 
B 

C 
D 


AC 
AD 
AE 


IPW$RSW 
IPW$RLW 


Message Service 


IPW$WTO 


Disk Service 


IPW$RDD 
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| Labels 

|SLSD 


— r -j 

j Chart GE01: IPW$$SL - Get Source Statement | 
J Library Record | 

. + T ^ 

| The first 16 bytes constitute the | j 
| section descriptor: | | 


Modified 
Fields 


_ 1 — ^ _ _ _ 

(Reg. | Calls 
(Usage | 

_ + + 




| On entry, the following register | 1 
(contents are relevant: | | 
| 0: address of SSL book name | | 
| 1 : book name length | j 

|11: TCB address | | 
|13: task save area | 


IPW$DTC 
IPW$DSV 


|R0 I 
|R1 I 

|R10 J 
JR11 j 
JR13 J 


|SLOO 


|This entry point is taken if entry is | | 

| not made for the first time: branch | 

1 to continue.,. .... . .... . -. . ,. .... . . . . ,. > j SL1 6 | 






|SL02 


|This entry point is taken if entry is| | 
j made for the first time. | 
[Caller's registers are saved. | | 




| |IPW$SAV 




|SSL book name pointers are loaded in | | 
^register 7 (book name address) and | 
(register 8 (book name length). | j 




|R7 j 
]R8 j 




[Address of DMB is loaded in register | | 
| 5„ and SLI work space is reserved. | 




| JIPW$RSW 
|R5 | Chart AC 




| The virtual address of SLI work space | 

|is stored in the partition control | j 

(table,, and copied to register 4 to | 

| address work space. | | 


PDSL(IPW$DPD) 


|R4 j 




|The book name field in the SLI work | | 

| space is blanked,, and the default J 

| sub library indicator is copied from | 1 

|the DMB. | 

| If a sub library has not been | 

j specified in the book name passed,, | 


SLBM(IPW$DSL) 
SLSL(IPW$DSL) 






|Otherwise (f the sublibrary specified | 
| is moved to SLI work space, register | 
(7 is incremented by two to point past) 
| the sublibrary indicator,, and regis- | 
|ter 8 is decremented by two to | 
| contain the length of the book name | 
|only. | 
| If register 8 is negative | 
| (bookname=S. ) f a branch is made to >|SL52 


SLSL(IPW$DSL) 


JR7 ] 
|R8 j 


|SLOU 


(The book name is moved to the SLI | 
(work space. | 
|If the first two characters of the | 
| book are M $$"„ the second "$" is | 
| changed to "B" or "1" to "4" | 
| depending on the partition being | 
| serviced. | 


SLBM(IPW$DSL) 




|SL05 


(Using registers 1 and 2 as work | 
| registers,, the real address of the | 
|SLI I/O area in the SLI work space is| 
| calculated in register 0„ and stored | 
|in the DRW within SLI work space. | 


|SLSA(IPW$DSL) 


|Rl, f R2 | 
|R0 J 



L X 



X IL . J 



X . J 



x._y 
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Labels 
| 



( 



SL06 



SL08 



SL10 



SL12 



Chart GE02: IPW$$SL - Get Source Statement 
Library Record 



The skeleton seek address for a 
private SSL is moved to the DRW,. 

The MCB address of the private SSL is 
loaded in register 7. 

If a private SSL is present,, branch 
to continue-.,..- ,.,........*.,.,. > 

Otherwise,, the address of the system 
SSL MCB is loaded in register 7,. 

The skeleton seek address for a 
system SSL is moved to the DRW.. 

The start address of the SSL is moved 
from SSL MCB to the seek address,, 
and register 8 is set to point 80 
bytes past the beginning of the SSL 
data block,, to skip the first five 
16-byte entries,. 

The first SSL data block is read in. 

The SSL directory entries, pointed to 
by register 8„ are now scanned: 

If end of directory reached,, 

branch. ,. .. ........ m ,. .. . . .. . ,. . ,. . . ,. ,. ,. ,. , ,. > 

If current directory entry is book 
name requested,, branch.-. ........... > 

Otherwise,, register 8 is incremented 
by 16 to point to the next entry. 

If the buffer has not yet been 
exhausted,, branch back to check the 
next entry. ...••...........•....•-• ..,.,. > 

Otherwise, link to read the next SSL 
block . . ,. . . . ...... . . . . . -. . . . . . . . ,. .. ,. . -. > 

Branch to continue scan. ........... > 

The MCB address of the system SSL is 
loaded in register 1, and if register 
7 was pointing already to the system 
SSL, implying that a possible private 
SSL directory has been scanned 
already,, and the requested book 
name has not been found,, branch to 
exi t . -. -. . ...... -. .. ,. . ,. . -. ,. «. . .... . -. «. . ,. » ,. > 

Otherwise,, the system SSL MCB address 
is loaded in register 7, and branch 
back to scan system SSL*..-.........-. > 



SL08 



SL12 



SL14 



SL10 



SL5 6 



SL10 



SL52 



SL06 



Modified 
Fields 



SLSW(IPW$DSL) 



SLSW(IPW$DSL) 



SLSW+3 



Reg. | Calls 
Usage 



R7 



R7 



R8 



R8 
R2 

R14 

Rl 
R7 



R7 



IPW$RDD 
Chart AE 
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Labels j Chart GE03: IPW$$SL - Get Source Statement 
j Library Record 



Modified 
Fields 



Reg. 
Usage 
f 



Calls 



SL14 



SL16 



SL18 



The DRW is now prepared to address 
the beginning of the requested book 
rather than its directory entry: 

Cylinder, head and record address are 
copied from the directory entry to 
seek address in the DRW., 

The two high-order bits in the head 
address byte are set to zero. 

Using register 2 as a work register , 
the CI byte is isolated and moved to 
the DRW. 

The first data block of the SSL book 
is now read in. 

Register 8 is loaded with the data 
area address. 

Read reader switch and read SSL book 
switch are both set to R.. 

Branch to take normal exit.., . ... . .. > 

This entry is taken whenever a 
request is received for a logical 
record from an SSL book that is 
already being read. 

The next sequential record is 
provided and eventual SLI update 
processing is taken care of. 

Caller's registers are saved. 

Registers 4,, 8 and 5 are set up to 
address the SLI work space, the SSL 
logical record,, and the DMB, 
respectively,. 

Save general purpose byte, and set it 
to X"00 f to indicate normal record. 

If not in data mode (implying read 
from SSL) , branch. . ••.•....•..• .. ... > 

Otherwise, if last data record read 
is ■/*' (end of data),, branch to 
terminate data mode., > 

Otherwise, if not "/*•, branch to 
exit and continue data mode 
processing. ,. ...... . ..... ,. . . .. . . .... ,• .. > 



The first byte of the logical record 
is set to blank to force end of data 
mode . 



Branch to exit. 



,. > 



SL50 



SL20 



SL18 



SL46 



v. f 



SLSW(IPW$DSL) 



SLSW(IPW$DSL) 



SLSW(IPW$DSL) 



R2 



IPW$RDD 
Chart AE 



R8 



SLRR(IPW$DSL) 
SLRS(IPW$DSL) 



\_ 



IPW$SAV 



R4„R8 
R5 



SLGP(IPW$DSL) 
TCGP(IPW$DTC) 



SLLR(IPW$DSL) 



SL46 
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I Labels 



Chart GE04: IPW$$SL - Get Source Statement 
Library Record 



Modified 
Fields 



Reg. | Calls 
Usage \ 



ISL20 



ISL22 



ISL24 



ISL26 



ISL28 



Read reader switch is set to blank. 

If read SSL switch is not R„ 
indicating that the previous SSL 
record was not processed due to an 
SLI update statement, branch to 
process the next SLI update 
statement. ....... . ,. .. .. ...... . . .. .. ,. * . ... > 

Otherwise,, the read SSL switch is 
reset to blank. 

Branch to obtain the next SSL 
record,. .. . ,. .. ,. . . . . . .... . . . . . . ,. . . ,. . .. . .. . . > 

This routine builds a decompressed 
logical record in SLI work space from 
the available physical block* 

The logical record area is blanked 
out. 

Register 9 is initialized with the 
logical record address,. 

The byte pointed to by the physical 
record pointer register 8 is checked 
for binary zero,, indicating the end 
of block. 

If end of block not yet reached,, 
branch to continue.................... > 

Otherwise, if also end of SSL book,, 
branch to exit > 

If end of block,, but not yet end of 

book, link to obtain next SSL 

block ....••....•'...•.••••'..•.•... » . . . > 

Branch back to scan next block....... > 

The number of non-blanks in the next 
string is loaded in register 2, and 
the number of consecutive compressed 
blanks following it is loaded in 
register 3. 

If the length of the non-blank string 
is zero, branch to bypass moving the 
string to the logical record....... > 

Otherwise,, the string is moved to the 
logical record. 

Physical record pointer register 8 
and logical record pointer register 9 
are incremented to point to the next 
non- blank/blank sequence. 



SL30 



SL22 



SL26 
SL54 

SL56 
SL24 



SL28 



SLRR(IPW$DSL) 



SLRS(1PW$DSL) 



SLLR(IPW$DSL) 



R9 



R2 



R3 



R8 
R9 
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Library Record 



Modified 
Fields 



Reg. 
Usage 



ICalls 



SL30 



SL32 



-I 



If end of logical record not yet 
reached, branch back to continue 
logical record build. ............. . > 

This routine processes possible $SLI 
update statements,. 

Using register 1 to address the 
ID- sequence field of the reader 
record last read in, a check is made 
for a $SLI update statement in the 
reader. | 

If the reader record last read in is 
not a $SLI update statement,, branch 
to process the SSL record read in.,. ^ 

Otherwise, if no "delete' statements 
br anch to continue .......... . ,. . . . . .. > 

If 'delete* statement, the sequence 
numbers of the $SLI update statement 
and the current SSL statement are 
compared,. 

If the sequence number of the $SLI 
update statement is high,, implying 
that the statement to be deleted has 
not yet been encountered,, branch to 
process SSL record. . . ,. .... . . . «. >. . . . ,. > 

Otherwise,, the read reader switch is 
set to R to cause the next reader 
record to be read,. 

If equal, branch back to obtain the 
next SSL record,, hereby effectively 
deleting the current SSL record*..,. > 

Otherwise, branch to process current 
SSL record . . .. . .. ,. . • . . . ,. ,. . . . . . . «. * . . ,. ,. > 

If the $SLI update statement is not 
an 'insert after* statement,, branch 
to continue check ...... . ,. . . * . . . . * . . > 

Otherwise,, if the sequence field of 
the $SLI update statement is not 
lower than that of the current SSL 
statement,, branch to process the 
current SSL record. . -,. .,. . . ,... ,. -. «. . . ,. . > 

Otherwise,, branch to pass the reader 
record f irst... ..,..,..,.,..<....,.,.,... ... > 



Rl 



\ y 



SL24 



Rl 



SL38 



SL32 



SL38 



SLRR(IPW$DSL) 



^. y 



SL22 



SL38 



SL34 



SL38 



SL46 
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370 DOS/VS POWER/VS Logic 



I 

SL3U 



( 



Labels 



SL36 



SL38 



SL40 



Chart GE06: IPW$$SL - Get Source Statement 
Library Record 

T 

If the $SLI update statement is not 

an "insert before" statement,, and 

must therefore be a " replace" 

statement,, branch, «. ,. .. • . .. • . • . . ,. - . . - - > | SL3 6 

Otherwise,, if the sequence number of 
the $SLI statement is higher than 
that of the current SSL statement,, 
branch to process the current SSL 
statement,. .. - . • . . . . . - • . ,. .. . .. • . . •-..... > | SL3 8 

Otherwise,, branch to pass the $SLI 
statement to be inserted first-*,.-.- >|SL46 

If the SSL statement to be replaced 
has not yet been reached,, branch to 
process the current SSL record...... >|SL3 8 

If it has been passed already, branch 

to pass the $SLI statement first... >|SLU6 

If the current SSL statement is to be 
replaced, the read SSL switch is set 
to R. 

Branch to pass the $SLI statement.. >|SL4 6 

This routine processes and passes the 
current SSL record. 

If the current SSL record is not a 

JECL statement,, branch to pass it to 

the caller .-...*...,.-. . >|SL44 

Otherwise, the JECL statement is 
scanned for the operation code. 

If not found,, branch to pass current 

SSL record,. ,. ,. - ,. * ,. . ,. . > | SL4 4 

If not P0WER/VS end of data record 

(•* $$/*•)„ branch >|SL40 

Otherwise,, the record is changed to 
normal D0S/VS end of data record 
(•/*'). 

Branch to pass modified SSL 

record * . . >] SL44 

If the current SSL JECL statement is 

not a P0WER/VS end of job statement 

('* $$/£")„ branch to check for 

'* $$DATA' statement . . . . . >|SL42 

Otherwise,, the statement is changed 
to normal DOS/VS E0J statement. 

Branch to pass SSL record........... >| SL44 



Modified 
Fields 
+ 



SLRS(IPW$DSL) 



SLLR(IPW$DSL) 



SLLR(IPW$DSL) 



Reg. 
Usage 



ICalls 



™+ 



Rl 
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Chart GE07: IPW$$SL - Get Source Statement 
Library Record 



Modified 
Fields 



+- 



Reg, 
Usage 



I Calls 



SLU2 



SL44 



SL46 



Parameter registers and 1 are 
loaded with address and length of the 
SSL record,, respectively. 



Link to check for ' * $$DATA' 
statement. .... . .... . . ,. -. .... . 



> 



On return,, if register 1 contents 
(data name length) are zero, 
indicating no '•* $$DATA' statement,, 
branch to pass SSL record......-.., > 

Otherwise, data name address in \ 
register is copied to register 9. 

Data name length is copied to 
register 7. 

Parameter registers and 1 are now | 
loaded with the address and length of 
the reader record last read in. 

Link to check reader record for DATA 
statement . . . . .. ........ . . . . ,. . . . . • . . .. > 

On return, if no DA^A statement read,, 
branch to ignore SSL DATA record... > 

Otherwise, SSL and reader DATA names 
are compared,, using register 2 and 
register 7 as work registers. 

If not equal, branch to ignore SSL 
data record. ...... » ,. > 

Otherwise,, the read reader switch is 
set to I to cause the reader record 
to be ignored. 

Branch to exit. ................ ...... > 

The SSL record is passed: 

The SSL record length is loaded in 
register 1. 

SSL record address is loaded in 
register 0. 

Read SSL switch is set to R. 

Branch to return to caller......... > 

The reader switch is set to R. 



SL6 



SL4U 



SL6 



SL22 



SL22 



SL48 



SL5 



R0,R1 



R14 



'* J> 



R0,,R9 

R7 

R0„R1 

R14 



R2,,R7 



v y 



SLRR(IPW$DSL) 



Rl 



R0 



SLRS(IPW$DSL) 



SLRR(IPW$DSL) 
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ISL48 



ISLU8 



ISL50 



ISL52 



( 



ISL54 



Chart GE08: IPW$$SL - Get Source Statement 
Library Record 



The reader record is passed to the 
caller: 

Reader record address is loaded in 
register 0. 

Reader record length is loaded in 
register 1. 

The general purpose byte is restored. 

The record pointer registers and 1 
are stored in the task save area. 

SSL current block pointer register 8 
is saved in the SLI work space,. 

Return is made to the caller. 

This routine is entered if the 
specified book is not found,. 

Diagnostic message 1Q44I is issued 
and SLI processing is terminated. 

Using register 2 as a work register,, 
the address of message 1Q4UI is moved 
to the message request word. 

Message 1Q44I is issued. 

Branch to terminate SLI 

processing . . . .. ...... . . . . . . . ,. . . . . . . .. > 



This routine is entered if a 
requested SSL book is not found or if 
the end of the SSL book being 
processed is encountered. 
SLI processing is terminated by 
releasing SLI work space and on exit 
the current reader record is passed 
to the caller. 

IPW$RDW parameter register 1 is 
loaded with the SLI work space 
address,. 

The general purpose byte is restored. 

SLI work space is released. 

Work space pointer in the partition 
control block is set to zero. 

Current reader record address is 
loaded in register 0. 

Current reader record length is 
loaded in register 1. 



SL54 



Modified 
Fields 



|Reg. 
| Usage 

-+ 



TCGP(IPW$DTC) 
SVR0(IPW$DSV) 

SLR8 ( IPW$DSV) 



TCMW(IPW$DTC) 



TCGP(IPW$DTC) 



PDSL(DPD) 



R0 



Rl 



R0,R1 



R8 



R2 



Rl 



R0 



Rl 



Calls 



IPW$RET 



IPW$WTO 
Chart AD 



IPW$RLW 
Chart AC 
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Chart GE09: IPW$$SL - Get Source Statement 
Library Record 



Record pointer registers are saved in 
the task save area. j 

Return is made to the caller. 

This routine reads the next 
sequential S$L data block. 

|SL56 | The disk address of the current SSL 
data block is incremented: 

Record number from DRW is loaded in 
register 1„ incremented by one,, and 
stored back into DRW. 

If updated record number is not 
higher than the number of records per 
track,, branch to read next block... > 

Otherwise, the record number is reset 
to one. 

Using register 1 as a work register,, 
the current head number is 
incremented by one. 

If end of cylinder not yet reached,, 
branch to read next block............. > 

Otherwise,, the head number is reset 
to zero. 

Using register 1 as a work register,, 
the current cylinder number is 
incremented by one. 

[3L58 | The next SSL data block is read in. 

SSL block data pointer register 8 is 
loaded with the address of the first 
byte of the SSL block just read in. 



Branch to return to caller......... > 

This routine checks whether the 
logical record passed to it through 
registers (record address) and 1 
(record length) is a • * $$DATA t 
statement. 

Presence of the JECL f * $$'• prefix is 
assumed,, no test is made to check for 
this prefix. 

If the current record is indeed a 
DATA statement,, the DATA name is 
passed to the caller through register 
(DATA name address) and register 1 
(DATA name length). 



SL58 



SL58 



(R14) 



[Modified 
(Fields 
„ + 

|SVRO(IPW$DSV) 



[Reg, (Calls 
j Usage f 



-H 



I 



|&LSW(IPW$DSL) 



j 

|SLSW(IPW$DSL) 

I 
I 



f 
I 

|R1 
|R1 

1 



1SLSW(IPW$DSL) } 

t ! 

I 1 

I SLSW(IPW$DSL) JR1 

I I 

I I 



r 



JSLSW(IPW$DSL) j 



|R1 



|R8 



| IPW$RET 



! I 

I I 

}IPW$RDD | 

[Chart AE I 

i I 

I I 



V ..r 



i v. 



if' 

'v. 
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( 



I SL 62 



ISL64 



I Labels I Chart GE10: IPW$$SL - Get Source Statement 
Library Record 

If the current record is not a DATA 

record f a zero DATA name length is 

passed back to the caller in register | 
1,. 

The address of the last byte of the 
logical record passed is loaded in 
register 3. 

Skipping the possible • * $$• prefix,, 
the rest of the statement is scanned 
for the operation code. 



If not found,, branch to signal 'not 
found' .. . . -. - ,. .. . - ,. - . i. ,. m • ............. > 

Otherwise,, if not DATA,, branch to 
signal 'not found 1 .*.,„<...,.•.• ...-.<.,.,... > 

If DATA,, the remainder of the 
statement is scanned for the start of 
the DATA name,. 

If not found,, branch to signal 'not 
found " .......... ,. ,. ,. . ,. . * ,. • . . . • . . . . ,. ,. > 

Otherwise,, the start of the DATA name 
is saved in register 0, 

The name is scanned to obtain its 
ending address in register 1. 

If not found,, branch to assume name 
end is statement end,. .,..,. «•••..•..•• > 

The start address is subtracted to 
obtain the name length in register 1. 

Branch to return to caller......... > 

Assuming statement end is name end/, 
name length is calculated in 
register 1. 

Branch back to caller............... > 

Register 1 is set to zero to indicate 
that no DATA name has been found. 

Branch back to caller......... > 



SL64 



SL64 



SL64 



SL62 



(R14) 



(R14) 



(R14) 



Modified 
Fields 



Reg. 
Usaage 



I Calls 



R3 

Rl 
R2 



Rl 
R2 



R0 

Rl 



Rl 



R3,R1 



Rl 
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3540 OPEN ROUTINE (14 PARTS) 



Chart GF00: IPW$$OE - 3540 Open Routine,, General Flow and Macro Calls 



x y 



IPW$$ER 



3540 Diskette 
Reader 



Functions 



Miscellaneous 


Module 


Macro 


Ret. 


Chart 


IPW$$LU 


IPW$$ULP 


1 


GC 



il 



IPW$$OE - 3540 Open Routine 



OE00 
OE04 

OEND 
OE24 
EXIT 
OEXT 
OENM 
ER10 
OEFM 
RPLY 



Routine 



Set up CCB and channel program 

Feed Diskette 

Read and check volume 1 label 

Read and check header 1 labels 

Exit routine 

Extent validity test subroutine 

Numeric character test subroutine 

Messages routine 

Message format subroutine 

Message reply subroutine 



1Z 



IPW$$ER 



3540 Diskette 
Reader 



<^ 



Functions/ 
Interfaces 



Services 



A 
A 
A 
A,C 






IPW$$NU 


Macro 


Ref. 


Chart 


Task Management 


A 

B 
C 

D 

E 


AA 
AC 

AD 


IPW$WFC 


Storage Management 


IPW$RSW 
IPW$RLW 


Message Service 


IPWSWTO 
IPW$WTR 
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(Labels (Chart GF01: IPW$$OE - 3540 Open Routine (Modified Data 


j Reg. 






| Fields 


J Usage 


i- + — 


T + 


-+ 


| J This routine is entered when the 3540 


I 


1 


| | Diskette Reader (IPW$$ER) issues an | 


1 


i 


| | ipw$oef macro. ; 


! 
1 


! 


|OECS |CSECT name. i 


1 
1 


1 
1 

1 


JOESD (The first 16 bytes constitute the 


1 
1 


1 
1 


| | section descriptor: | 


1 

1 


] 


| | " OECS V7M0 ' ! 


1 
1 

< 


1 

1 
1 


1 (General Reqister Usaqe ! 


1 
1 
1 

ii 


) 
1 


1 ! o 


. **** - Service work register j 


1 

JR0 


1 1 1 


. **** - service work register j 


1 


|R1 


| | 2 


- **** - service work register 


1 


|R2 


1 1 3 


. **** - service work register ! 


1 


|R3 


1 1 4 


- **** - Work register 


i 


]R4 


1 1 5 


- **** . ^0^ used 1 


j 


|R5 


1 1 6 


. **** « internal link register in 
mess age/ reply routine 


1 
1 


JR6 
1 


i ) 7 


- **** - Pointer to work space 

buffer | 


1 

1 


|R7 
1 


1 1 3 


- IPW$DPW - Physical work space 


1 


]R8 


1 1 9 


. **** - Not used j 


1 


?R9 


1 | 10 


- IPW$DPA - POWER/VS nucleus 


1 1 


|R10 


1 ill 


- IPW$DTC - Task control block ! 


! 


JR11 


1 1 12 


- **** - Asynchronous address 

register j 


1 1 
1 


1R12 
] 


1 1 1 3 


- IPW$DSV - Task save area 


1 1 


)R13 


1 I" 


• **** - Link register 


1 


JR14 


1 | 15 


- OECS - Base register 


1 1 


1R15 
1 


1 | Set • Up CCB and Channel Proqram 


\ 

1 1 

1 

1 
1 


1 
I 


|OE00 (Save caller's registers. 


1 

JR14-R9 

1 


| (Load the length of the 3540 work ! 


1 
1 


I 

1R1 


| j space buffer into register 1 and 


1 1 


.1 


j | reserve the work space. 


1 
1 


1 


| |Set up register 7 as a base to the 


1 

1 


1 

■]R7 


| (work space area. ' 


1 
■ 


1 

1 


| (Calculate the negative displacement 


! 
1 1 


1 

\ 


j ] between the real and virtual work 


1 


! 


j (space addresses in register 4. 


1 1 


|R4 
1 


j I Copy the storage descriptor into the 


1 

|OEWS(OEWS) 


J 

1 


J |work space area. 


1 
1 


1 

.1 

i 
1 


| | Build the 3540 CCB: 


1 

i 
1 1 


1 1 * 


Set the communication byte to 
X'94* to indicate transmit 
information 


1 1 

|OECM(OEWS) 

1 1 
1 


1 

■1 
i 

! 


1 1 * 


Set device type and logical unit 


l JOELU(OEWS) 


1 


1 1 • 


Set the mode bits off 1 


i)OELU(OEWS) 


1 


1 1 • 


Set the CCB in real mode 


| jOELU(OEWS) 


1 


1 1 • 


Store the real address of the 
channel program 


jOECA(OEWS) 
1 1 


1 
1 




IPW$SAV 

IPW$RSW 
Chart AC 
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| Calls 



Labels 



OE04 



OE08 



OEFD 



Chart GF02: IPW$$OE - 3540 Open Routine 



Build the 3540 channel program; 

• Move the CCWs 

• Relocate and store the real area 
addresses 

Initialize and store the length of 
the reply buffer area* 



1 
I 



I 



.Load the POWER/VS partition PIB | 
address into register 1 and the 3540 | 
programmer logical unit into register | 
2. i 

I 

Temporarily assign a new register | 
save area (OESV) . | 

I 
Determine the 354 device address | 
(cuu) . | 

,1 
Unassign the temporary register save j 
area and reassign the original. j 

! 

Move the device address into the | 
storage descriptor. | 

! 
The following indicators are copied ] 
from the physical work space to | 
prevent them from destruction if open} 
is unsuccessful: | 

I 

• number of 354 volumes | 

• record length ] 

• sequence identification ] 

• number of opened diskettes j 

I 
Feed Diskette I 



(Modified Data 
| Fields 
. + 



I 
Check for more than one volume left. | 
If so,, branch to. ................. . >|OE08 

I 

Check for single volume file. If | 
not,, branch to,. - . . . * . -. ,. ,. ... . . .... . ... > [ OEFD 

I 

Check if the volume has already been | 
opened. If not, branch to read the | 
volume 1 abel * . ,. % .. . . . ., ,. .... . ......... > | OEND 

I 

Insert the feed command. | 

I 

Unchain the CCW string. | 

I 
Feed the diskette via SVC and wait | 
for completion. | 



Reset the define operations command. 
Chain the CCW to the string again. 



I 

-X- 



I 

lOECP(OEWS) 
|OEDO(OEWS) 
]OESK(OEWS) 
jOERD(OEWS) 
|OERL(OEWS) 
I 

! 



I 

SOESV(OEWS) 



JOEWS+13 



jWENDCOEWS) 
|WERL(OEWS) 
1WESKOEWS) 
IWEOD(OEWS) 



1 
lOEDO(OEWS) 

I 

|OEDO+4(OEWS) 

] 



JOEDO(OEWS) 

I 

|OEDO+4(OEWS) 

-X 



IR4 



I 

1 



|Rl f R2 j 
1 I 

I ! 



J IPW$ULP 
(Chart GC 



1 I 

1 I 

I IPW$WFC | 
[Chart AA | 



1 



I 



V. y 
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| Labels 
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|Chart GF03: IPW$$OE - 3540 Open Routine 

h T ; 

I Read and Check Volume 1 Label ] 


Modified Data 
Fields 
[ „. 

OESA(OEWS) 


]Reg. 
(Usage 
-i 

] 
] 
1 
I 
1 
1 

n 


]Calls 

h 




IRead Volume 1 Label | 




|OEND 


| Reset the seek argument to tne | 
| initial value X" 00000007 '• 1 






|Load the virtual CCB address into | 
| SVC and wait for completion. | 




1 

JR1 

1 

1 


| IPW$WFC 




| Set the define operations command to ] 

|a NOP command-. J | 


OEDO(OEWS) - 


ii 
i 
i 






| Check for unit check. If so, branch | j 
|to.. . . . .. . >|OE12 

| Check the volume 1 label. If valid, | | 
| branch to.. ........ .. . - . .. .. . . ,. .. ,. . . ..... > | OE16 




i 
i 
i 
i 
i 




|0E1? 


[set up for issuing message ' 1Q91D | 

|VOLl LABEL ERROR OR NOT FOUND R=?* f ] \ 

| and branch to . .. ,. . . . ,. . . ,. . . . . . . ...... > | ER1 


OML2(OEWS) 
0MT2(OEWS) 


i 
i 
i 
i 




|0E16 


| Check for label standard version (W) . | 

]If so, branch to.... .......... ..*.. >|OE12 j 

| Set up for issuing message - 1Q91D | 
| LABEL STANDARD VERSION VIOLATION R=',| 
| and bran ch to . . . . . .* . . ,. . ,. . .... . .. .... > | ER1 


OML2(OEWS) 
OMT2(OEWS) 


i 
i 
i 
I 
i 
i 




|OE20 


j | Check for volume security. If so,, | 
| branch and link for operator | 
[ intervention > j ER3 

| Check for basic exchange volume,. if | 

|so, branch to...................... >|OE24 ] 


OML2(OEWS) 
OMT2(OEWS) 


i 
] 
i 

|R14 
] 

i 

i 

i 

i 

i 
■ 






|Set up for issuing message • 1Q91D | 
|NON- BASIC EXCHANGE DISKETTE TYPE R=V, | 
jand branch to. ..,.-....,.,..,........ ..... >|ER10 






IRead and Check Header 1 Labels | 




i 
i 
i 
i 
i 

i 




|OE24 


(Check if the last sector has already | 

| been read. If not, branch to....... >|OE26 










1 

! 
i 






| If no automatic feed is already | 
| given,, feed next diskette by | 
| branchi ng to . . .. . . » .. ............ .. . . . > | OEFD 

| Otherwise,, reset automatic feed ] 

] indicator and give message......... >|ER20 


OEAF(OEWS) 
OEAF(OEWS) 


l 

i 
i 
i 

i 




|OE26 


| Using register 1 as a work register, | 
| update the seek argument to the next | 
| sector. | 


OESA(OEWS) 


.1 

]R1 

1 

1 

4 






[Load the virtual CCB address into | 
| register 1„ read the header 1 label | 
jvia SVC 0, and wait for completion. ] 




1 

]R1 
] 

1 

i 


| IPW$WFC 
| Chart AA 




(Check the header % label. If not j 
| valid,, branch to read the next ] 
| labe 1 . . . ,. . . . .... . . ,. . .... > | OE 2 U 




1 

1 
1 
I 
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] Modified Data ]Reg. ]Calls 
I Fields J Usage | 



Labels 



Check for a matching file ID. If so, 
branch to . . > 

If the file ID has been omitted,, and 
if the file is secured, branch to 
read the next label .............. ... > 



OE28 



OE32 



OE36 



OE40 



OEUU 



OE48 



OE52 



Chart GF04: IPW$$OE - 3540 Open Routine 



H 



Otherwise,, check for basic exchange 
data. If so, branch to.............. > 

Set up for issuing message 1Q91D 
NON-BASIC EXCHANGE ffffffff FILE R=V, 
and branch to..*................... > 

Check if the file has to be bypassed. 
If not, branch to ................. . > 

Set up for issuing message 1Q91D 
ffffffff BYPASS REQUIRED R=, and 
branch to > 

Check if the file is secured. If so, 
branch and link for operator 
intervention ,. > 



Check if data/file verification is 
required. If not, branch to....... > 

If the data/file has not been 
verified, branch to................... > 

Copy the multi volume indicator into 
the work space. 

Check for a continuation file. If 
not , branch to . > 

Check if more volumes are to be 
expected. If so, branch to. ....... > 

Branch and link to.,........,.,..,.,..,.. > 

Branch to continue.....,...,..,....,.*... > 

Set the multi volume indicator to 
X' 40'. 

If the multi volume indicator was not 
specified in the header 1 label , or 
if the last volume has been 
encountered, branch to............. > 

Set up for issuing message '1Q91D 
MULTI VOLUME IND NOT C, L„ OR BLANK 
R= '• , and branch to. ...... . . * . . ,. . . ,. . > 

Check if more volumes are to be 
expected. If so,, branch and link 
to. .................... . . .......... > 

Set the multivolume indicator to C'L 1 
to simulate last volume. 



v> 



OE28 



OE24 



OE32 



ER12 



OE36 



ER12 



ER30 



OE44 



ER50 



OE48 



OE52 



ER10 



ER8 



|OML2(OEWS) 
IOMT2COEWS) 



| OML2 (OEWS) 
|OMT2(OEWS) 



SWEMI(OEWS) 



OE56 


i 

• 


ER9 


I 

1 


OE5 6 


l 

S 




1 

JWEMI(OEWS) 



|OML2(OEWS) 
IOMT2COEWS) 



| WEMI(OEWS) 
I 



IR14 



|R14 



|R14 



V. 



1 
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Modified Data 
Fields 



Reg. 
Usage 



| Calls 



IOE56 



IOE60 



IOE64 



( 



IOE68 



IOE72 



IOE76 



^kn^y 



Load the length of the volume 
sequence number into register and 
the address into register 1, and 
branch and link to the numeric 
character test subroutine > 

If the volume sequence number is 
invalid set up for issuing message 
'1Q91D VOL SEQ NO. ERR HDRl LABEL 
( ) R=", and branch to > 

If sequence checking is not raquirad, 
branch to. ............. > 

Check if the sequence numbers match. 
If not f branch and link to,..,....-.... > 

Store the new sequence number. 

Load the length of the block length 
field into register 0, and the 
address into register 1. 

Set up for issuing message '1Q91D 

ERR HDRl LABEL ( ) 

R='. 

Branch and link to the numeric 
character test subroutine.......... > 

If the block length is invalid, 
branch to...... > 

Check if the file is a data file or 
a SYSIN file. If SYSIN file # branch 
to... > 

Check the limits of the data file 
(L=l-128) : 

If invalid,, branch to.............. > 

Otherwise, branch to > 

Check the limits of the SYSIN file 
(L=80-81) : 

If valid f branch to,. > 

Set up for issuing message • 1Q91D 
BLOCKLENGTH ERR HDRl LABEL ( ) 
R= " , and branch to... > 

Store the correct block length. 

Load the begin extent address into 
register 1, and branch and link 
to the extent validity test 
subroutine .....* > 

If the address is invalid,, set up for 
issuing message- " 1Q91D BEGINEXTENT 
ERR HDRl LABEL ( ) R= • f and 
branch to. ... . ..••....«..•. > 



OENM 



ER10 



OE64 



ER40 



OENM 



OE7 2 



OE68 



OE7 2 
OE76 



OE76 



ER10 



OEXT 



ER10 



OML2(OEWS) 
OMT2 (OEWS) 



WESNCOEWS) 



OML2COEWS) 
OMT2(OEWS) 



R0 f Rl lf 
R14 



R0 f Rl, 
R1U 



R0,R1 



R14 



OMT210EWS) 



WERL(OEWS) 



OMT2 (OEWS) 
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OE80 



OE84 



OE86 



OE88 



OE92 



OE96 



Store the correct begin extent | 
address. | 

I 
Load the end extent address into | 
register 1, and branch and link to | 
the extent validity test subroutine >|OEXT 

I 
If the address is invalid,, set up \ 
for issuing message '1Q91D END | 
EXTENT ERR HDRl LABEL ( ) R=V, | 
and branch t o, * . - , .. , ,. , , , . . , , . , , . , , . > | ER 1 

I 

Save the correct end extent address | 
in register 4. | 

I 

If the end extent is below the begin J 
extent,, set up for issuing message | 
■1Q91D ffffffff END XTNT BELOW BEGIN | 
XTNT R= f and branch to,,.,,..,,,.,.,.. >|ER12 



Load the end-of-data address into 
register 1„ and branch and link 
to the extent validity test 
subroutine . ........ „ , , . , . ...... .. , , , . 



If the end-of-data address is 
invalid, set up for issuing message j 
'1Q91D END-OF-DATA ERR HDRl LABEL | 
( ) R=', and branch to.,. *..,,. >| 

Check if the EOD address is higher 
than the upper limit extent,, and if 
so, then not more than one sector 
higher. 



I 
I 
I 

> I OEXT 

1 



BRIO 



I 



I 
) 

If the EOD address is correct,, | 
branch to, , , . , . , , , , . , ,. , , . , . . . . . , , , , > | OE 9 6 

I 

Set up for issuing message * 1Q91D | 
END-OF-DATA ERR HDRl LABEL ( ) | 
R= ' f and branch to, • . , .... , . , , . .... > | ER10 

I 

Check if the EOD address is below | 
the begin extent, If so,, set up for | 
issuing message '1Q91D EOD ADDR ] 
BELOW BEGIN XTNT R=\, and branch to >|ER12 



Check for an empty file 

(EOD= beginning of file). If so, 

branch and 1 ink to .... , . . . , , , , .. , 






Update the physical work space: 

• EOD address 

• Updated number of volumes to be 
read 

• Record length 

• Sequence ID 

• Number of successfully opened 
volumes 
Open return code (set to C'O') 



>|ER6 
I 
I 



_ T 

] Modified Data 
I Fields 

]PELO(IPW$DPW) 
I 



I OMT2 (OEWS) 



I 



I 



I OMT2 (OEWS) 



jOMT2(OEWS) 



I 
I 

|PEED(IPW$DPW) 
)PEND(IPW$DPW) 

I 

|PERL(IPW$DPW) 

|PESI(IPW$DPW) 

PEOD(IPW$DPW) 






•T r ■ 

]Reg. ] Calls 

j Usage j 

-4— +— 

1 1 

! 1 

1 J 

]R1,R14 J 



, n 



|R<* 



1 1 

1 1 

]R1 V R14 I 

1 1 



I 



] 



|R14 



! 



I 

jPEOC*IPW$DPW) ] 






K ^ 
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- T r ^ 

(Modified Data J Reg. 
J Fields [Usage 



Calls 



I EXIT 



IOEXT 



( 



IXT04 



I XT 08 



Exit Routine 



Change the command code to a define 
operations command. 

Unchain the CCW from the string. 

Set the mode to read mode and enable 
unit checks. 

Load the virtual CCB address into 
register l i# issue the define 
operations command via SVC and 
wait for completion. 

Release the work space. 



Return to caller (IPW$$ER) via link 
register 14. 

Extent Validity Test Subroutine 

Save the return address. 



Load the length into register 0, and 
branch and link to the numeric 
character test subroutine,.,...,.....,.. > 

If the field is in error, restore 
the return address and return to 
caller via link register 14 with a 
displacement of 4 . 

Check the validity of the cylinder 
address : 



If valid, branch to. 



r 



Otherwise, return to caller via link 
register 14 with a displacement of 
4. 

Save the cylinder number. 

Check the validity of the track 
address which must be zero: 

If invalid,, return to caller via 
link register 14 with a displacement 
Of 4. 

Load the length of the sector field 
into register and branch and link 
to the numeric character test 
subr Quti ne ..... . . ,. ,. . ,. ,. ,. ,. . . ,. . ...... . . > 

If the field is in error, restore 
the return address and return to 
caller via link register 14 with a 
displacement of 4. 



OENM 



XT08 



OENM 



I 

I 

|OEDO(OEWS) 

I 
\ 

|OEDO+4(OEWS) 

I 

]OESM+l(OEWS) 

I 

I 

1 



1 

! 

JOESV(OEWS) 

I 

I 



|OECC(OEWS) 
I 

i 



|R1 



IR14 



IPW$WFC 
Chart AA 



IPW$RLW J 
Chart AC | 

I 
IPW$RET | 



JR0 f R14 



|R14 



IR14 



IR14 



|R0,R14 



|R14 
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]R14 

I 
]R0,,R14 



Labels 






XT12 



OENM 



NM04 



NM08 



ER10 



ER12 



Chart GF08: IPW$$OE - 3540 Open Routine 



Check the validity of the sector 
address: 

If invalid, return to caller via 
link register 14 with a displacement 
of 4. 

Otherwise,, store the converted 
extent address (00CC00RR) into 
register and return to caller via 
link register 14. 

Numeric Character Test Subroutine 



— H 



Set up work registers 2 and 3 for 
examining the characters for numeric 
validity (CO' - C'9'). 

Check for a blank character. If 

not , branch to. > 

If all characters are blank, return 
to caller with reg. set to zero. 

Check the characters for numeric 
validity. 

If invalid,, return to caller via 
link register 14 with a displacement 
of 4. 

Otherwise, convert the field into 
hexadecimal in register 0„ and re- 
turn to caller via link register 14. 

Messages Routines 



Clear register 2 to indicate to the 
message format subroutine that no 
file ID substitution is required. 

Move the message text of message 
1Q91D to the output area. 

Move the message identity to the 
second line of the message. 

Load the address of the cuu field to 
be substituted in the message text 
intc register 1. 

Branch and link to the message 
format subroutine.......*....*-..... > 

Issue the message. 

Branch and link to the message reply 
routine . ............ . . . . ,. ,. . . . . . . . . . > 

If the reply is 'IGNORE',, which is 
not accepted as a valid response, 
return to the reply routine via 
register 6. 



NM08 



OEFM 



RPLY 



|OMLl(OEWS) 



jOMI2(OEWS) 
I 



I 

I 
-X- 



|R2,,R3 | 
1 ! 



|R0,R14 j 
I 1 



]R14 | 



)R0,R14 ] 



IR2 



|R1 

I 

IR6 



]R6 



| IPW$WTO 
| Chart AD 



|R6 



I 
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| Modified Data 
| Fields 



-X 



! 

|OML2(OEWS) 



Move the message text of message j |OML2(OEWS) 

1Q92D to the output area. | | 

II !] 

Load the address of the cuu field to | ) 

be substituted in the message text | | 

into register 1 and the address of ] i] 

the file ID into register 2. | ] 

I I 

Branch and link to the message j J 

format subroutine >|OEFM ] 

1 1 

Branch and link to the message reply | | 

routine. -.....,..,.,...,. . . . . . . . . >'] RPLY ] 

I 1 

If the reply is ' IGNORE' , which is J j 

not accepted as a valid response f | | 

return to the reply routine via | j 
register 6. 

Move the message text of message 

1Q93D to the output area. | j 

I i 

Load the address of the cuu field to | ] 

be substituted in the message text ] ] 
into register 1. 11 

I 1 

Clear register 2 to indicate no file ] ] 

ID substitution. j | 

I I 

Branch and link to the message | | 
format subroutine................... >]OEFM ] 

I I 

If it is a volume label,, change FILE | IOMS2COEWS) 

into VOLUME in the message text. | J 

I I 

Branch and link to the message reply | | 

routine . . . . . . . . . ,. > | RPLY <] 

I I 

If the reply is ' IGNORE' , return to ] ] 

caller via link register 14. j j 

I ! 

Move the message text of message j |OML2(OEWS) 

1Q9UD to the output area. J j 

I 1 

Move the sequence number, converted ] ]OMS2(OEWS) 
to decimal, to the message text. | 

I 

Load the address of the cuu field to | 
be substituted in the message text ] 
into register 1. | 

I 

Clear register 2 to indicate no file | 

ID substitution. ] 

! 

Branch and link to the message j 
format subroutine,. . . ,. > | OEFM 

I 

Branch and link to the message reply | 

routine,. ,. . ,..,.. . . ....... . . . .. ..... .. .... > | RPLY 

I 

If the reply is 'IGNORE',, return to ij 
caller via link register 14. 



! 



JReg.. (Calls 
| Usage | 

-+ + 



IR6 



]R6 



|R6 



|R1 

1 
]R2 

I 

! 

]R6 



|R6 



IR14 



|R1 

I 

|R2 

I 

I 
IR6 



|R1U 

-X 



i 



1 il 
1 I 
|R1 # R2 | 
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IER50 
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I 

I 



I 
I 
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I 
I 
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Move the message text of message 
1Q95D to the output area. 

Load the address of the cuu field to 
be substituted in the message text 
into register 1 and the address of 
the file ID into register 2. 

Branch and link to the message 
format subroutine. . . . . 



> 



Branch and link to the message reply- 
routine. ,. ,. . ,. . ,. . . . . .. ,. . ,. . . . . .. . «. - ..... > 

If the reply is "IGNORE' „ which is 
not accepted as a valid response, 
return to the reply routine via 
register 6. 



Save registers 
space. 



0-3 in the work 



Move the text of message 1Q96I to 
the output area. 

Load the address of the cuu field to 
be substituted in the message text 
into register l, f and the address of 
the file ID into register 2. 

Branch and link to the message 
format subroutine.................. > 



Issue the message. 

Restore registers 0-3 and return to 
caller via link register 14. 

Move the message text of message 
1Q97D to the output area. 

Load the address of the cuu field to 
be substituted in the message text 
into register 1. 

Clear register 2 to indicate no file 
ID substitution. 

Branch and link to the message 
format subroutine. > 



Branch and link to the message reply 
routine . ...... ,.. ,. , m ,. -. , ,. ,. , .... ,. . ,. ,. , ,.,..,.. > | RPLY 

If the reply is ' IGNORE' , which is a 
valid response/, meaning 'last' 
volume encountered, return to caller 
via link register 14„ after the 
diskette volume counter has been 
reset to one. 



OEFM 



RPLY 



OEFM 



OEFM 



| Modified Data 
(Fields 



IOML2COEWS) 



]Reg. ] Calls 
jUsage \ 
-+ 1 



I 



I 



lOESV(OEWS) 



IOMLKOEWS) 



10ML2C0EWS) 



IWENDCOEWS) 

-JL 



1 1 

|Rl f R2 j 



I 



! 



IR6 



|R6 



|R6 



I 1 

I I 

JR0-R3 I 

! 1 

I ! 

! 1 

I I 

9 I 

|Rl f R2 I 

I J 

I 1 

I I 

I 1 

1R6 J 



lR0, f R3, | 
I I 



! 

I 

]R1 

I 
|R2 

1 
1 
JR6 

I 
] 

|R6 



I i 

j IPW$WTO J 
(Chart AD j 
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j Modified Data 
(Fields 

+ 

OMLKOEWS) 



j]Reg.. J Calls jj 
(Usage j \ 



IER90 



IER92 



IER93 



IER94 



1ER95 



IER96 



IER97 



Move the message text of message 
1Q98D to the output area. 

Load the address of the cuu field to 
be substituted in the message text 
into register 1 and the address of 
the file ID into register 2. 

Branch and link to the message 
format subroutine.- ....... ..... *,.„.. . > 

Issue the message and wait for 
reply. 

If the operator's reply is EOB, or 
IGNORE,, branch to......................... > 

If the operator's reply is FEED,, 
branch to..-..,... .. ,. ,. .. .. .. ,. «• . .. .. . .. .. . ..... > 

If the operator's reply is NEWPAC, 
branch to ..... . ,. .. ,. ....... . ,. ...... . ... > 

If the operator's reply is CANCEL,, 
signal immediate stop C'S 1 tfia the 
open indicator and return to caller > 

Save the return address in the work 
space. 

Calculate the length of the reply in 
register 0. 

Branch and link to the numeric 
character test subroutine > 

If the reply is invalid, set up for 

issuing message 'INVALID RESPONSE 

R- * , and branch to. . . . .. . .. .. .. .. .. . . . ... > 

If the reply was zero, branch to.... > 

Update the number of diskettes to be 
read and store the new number. 

Set the multivolume indicator to 
C'C" to indicate current volume. 

Restore the link register and return 
to caller. 

Set the multivolume indicator to 
C'L' to indicate last volume. 

Return the caller via link register 
14. 



OEFM 



ER96 



OEFD 



OEND 



EXIT 



OENM 

ER92 
ER97 



PE0CCIPW$DPW) 



OESV(OEWS) 



OMLKOEWS) 
OMTKOEWS) 



WEND(OEWS) 



WEMI(OEWS) 



WEMI ( OEWS) 



1 I 

I I 

]Rl f R2 ] 



IR6 



|R0 

I 
]R1U 



)R0 



IR14 



-Ji- 



; ]R14 

-iL 



i i 

| IPW$WTR | 
(Chart AD | 
1 I 

) I 



ji 
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j. _ _ . .. 


T 

j Modified Data 
(Fields 

_^x_ _ *. _ __ _„ 




^ _ _ _ - — — 1 — 

(Messaqe Format Subroutine | 


„^. • •. — 

] 


\|OEFM 


] Check if this is a card reader task | 
|with a 3 540. If not,, branch to.... >]FM02 

| Move the device address into the | 
| message text,, and branch to ] 
| substitute the file ID ..,., >|FM04 


I 
] 
1 
i 

! 
1 
1 


]FM02 


| Clear the device address in the | 
(message text. | 


i 
i 

i 

■ 


|FM04 


] Check if the file ID has to be | 
(substituted in the message text. If j 
| not,, return to caller via link | 
| register 6. | 

] Check if the file ID has been. | 
(specified. If not, branch to.,.,.,... >|FM06 


i 
i 

i 
i 
i 

! 
! 

1 




] Move the file ID into the message | 
(text, and return to caller via link J 
(register 6. | 


1 
1 
I 

] 

1 


|FM06 


] Check if this is a data file. If | 
(not, return to caller via link | 
(register 6. ] 


i 

1 
1 

1 

\ 




(Move (NONAME) to indicate | 
(unidentified file into the message | 
| text and return to caller via link | 
| register 6. ] 


J 

1 

] 

1 

1 
i 




I Messaqe Reply Subroutine f 


I 
i 


|RPLY 


(Save registers 0-3 in the work | 
) space. j 

| Issue the message and wait for | 
j reply. | 

j Restore registers 0-3. | 


1 

JOESV(OEWS) 

I 

1 

i 

1 

1 

1 

i 




(If the reply is ' IGNORE "„ return to | 
(caller via link register 6. ] 


1 

1 

1 




(If the reply is FEED, branch to feed | 
(the next diskette.................... >J0EFD 


1 
1 

1 

i 




(Check if a new volume has been | 
(mounted. If so,, branch to read the J 
(volume 1 label.,. .................. . >]OEND 


J 
1 
1 
i 




jcheck if the reply was EOF. If not,, | 
(branch to ,. ... >)RP08 


1 
I 

1 

i 




jcheck if the preceeding volume | 
(existed. If not,, branch to.......... >(RP0 4 


1 
1 
1 

1 




(Set the open return code to C'E* to i] 
(indicate end of file. | 


1 

|PEOC(IPW$DPW) 
1 



T r — 

(Reg. ]Ca 

(Usage j 

+ + 

I 1 
1 I 
1 I 



— ^ 



!R6 



IR6 



1R6 



j )IPW$WTR ] 

I j Chart AD \ 

1 1 1 

(R0-R3 j J 

1 1 I 

I I I 

SR6 1 \ 



V..> 



i 
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Reg, 
Usage 



I Calls 



IRP04 



IRP08 



IRP12 



Set the multi volume indicator to 
C'L' to indicate last volume. 



I 



Return to caller (IPW$$ER) ,. . . >|EXIT 

I 
Set up for issuing message 'NO | 
PRECEEDING VOL,, INCONSIST RESP R=* „ \ 
and branch to issue the message.-... >|RPLY+4 

I 

Check if the task has to be | 

canceled. If not, branch to....... >|RP1? 



Set the stop code to C"S* to 
indicate stop immediate. 



I 



Return to caller (IPW$$ER) >|EXIT 

I 
Set up for issuing message " INVALID | 
RESPONSE R-\, and branch to issue | 
the mess age,. . . ,. - -. . • ■. ,. . . ,. . . . . . . .. .... > | RPL Y+ 4 



PEMI(IPW$DPW) 



OML2(OEWS) 
OMT2 (OEWS) 



PEOC(IPW$DPW) 



( 
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CHART GG: IPW$$OT - OPEN TAPE (4 PARTS) 



Chart GGO-0: IPW$$OT - Open Tape,, General Flow and Macro Calls 



V.^ 



IPW$$XW 



Execution 
Writer 



Queue Management 


Module 


Macro 


Ref. 


Chart 


IPW$$RQ 


IPW$RQS 


1 


DA 




Miscellaneous 


Module 


Macro 


Ref. 


Chart 


IPW$$LU 


IPW$ULP 


II 


GC 



1 



IPW$$OT - Open Tape 



Label 



Routine 



Open Tape 



IPW$$XW 



Execution 
Writer 



Services 



Services 



IPW$$NU 


Macro 


Ref. 


Chart 


Storage Management 


A 
B 


AC 


IPWSRSW 
IPW$RLW 


Message Service 


C 



AD 


IPW$WTO 
IPWSWTR 


Tape Service 


E 


AF 


IPWSCTT 



4 \ 
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|] Modified Data 
| Fields 
_ + 



i]Reg. JCalls 
JUsage J 

m + 



IOT00 



IOT08 



C 



IOT12 



IOT16 



1OT20 



IOT22 



IOT24 



The first 16 bytes constitute the 
section descriptor: 



•OTCS 



V7M0 



Save caller registers 14 through 9 
inclusive (IPW$SAV). 

Reserve work space for a second 
function register save area. 

Chain new save area. 

If tape to be closed,, branch to.... > 

Reserve space for the tape control 
block. 

Set up register 8 as base register 
for the tape control block. 

Calculate the CCW address in register 
2 and store it in the tape control 
block. 

Set the SLI flag in the CCW on. 

If the tape address is present, 
orancn to* <• <• <• '. <■• <• <• <• . -. <« >• -. '. <* . <• <« >. <• >. . ■• <• >. ^ 

Othe rwis e , branch to. . . % .. ,. . . «. .. -. , m . . . > 

Issue message 1Q56I INVALID TAPE 
ADDRESS/MODE SET. 

If a tape address is received, the 
ownership is released. 

Issue message 1Q55D SPECIFY TAPE 
ADDRESS FOR „ and read reply. 

If the reply is blank: 

• the tape control block is 
released. 

• the queue word in the TCB is set 
to zero. 

• the disposition indicator in the 
queue record is set to CD'. 

• A branch i s made to . .. .. ........ -. ... > 

Since segmentation is not valid for 
tape, set the number of records 
before split indicator in the queue 
record to zero. 

If the cuu has been specified 
incorrectly, branch to ........ . . ... > 



OT56 



OT4 
OT20 



OT60 



OT12 



I 



I 



I IPW$DSV 



I 
I 

i 
I 
I 
1 
] 
I 
I 

|TBCA(IPW$DTB) 

1 

|TBCH+1KIPW$DTB) 



I 



|TCQW(IPW$DTC) 

I 

]QRDP(IPQ$DQR) 



|QRBS(IPW$DQR) 



R8 



R2 



|IPW$RSW 
| Chart AC 
1 



I 
I 

J IPW$RSW 
I Chart AC 



| IPW$WTO 
| Chart AD 

1 

\] IPW$ULP 

] Chart GC 

! 

1 IPW$WTR 

[Chart AD 

I 

I 

I 

I IPW$RLW 

(Chart AC 

! 

I 



X- 



X- 



i — 
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Labels |Chart GG02: IPW$$OT - Open Tape 
1 



| Modified Data 
j Fields 



|Reg. |Calls 
j Usage J 



OT32 



OT40 



0T41 



0T42 



0T43 



0TU4 



OT48 



J Set the default mode set in the TCB. j 

j If no mode set has been specified, j 

| branch to. . . . . . .. . ...... . >f|OT4 

'] Check the specified mode set, and if ] 

j it is invalid branch to............. >|0T12 

I I 

J Set the specified mode set in the | 

|TCB. ] 

I I 

jSet up the tape control block | 

J section descriptor. | 

jSet up registers 0„ 1, and 2 for ] 

j getting a tape. j 

! I 

| Get a tape. ] 

il I 

] If no tape is received,, branch | 

| to ,. >| 0T12 

I 1 

JSet cuu in tape control block. j 

| Set up registers and 3 for getting | 

ja LUB,. | 

! I 

| Get a LUB. 1 

1 I 

! I 

| If no LUB is received,, issue message j 

J*1R64I NO LUB AVAILABLE, DISP . . . ' j 

i I 

I I 

(Release tape ownership. ] 

1 i 

[Force disposition to "D". ......... . >|OT22 



| Set up the data disk word and the 
| queue request word in the TCB as 
| tape request word. 

I 

] Save mode in the TCB. Change mode 

j in PUB with specified mode. 

I 

j Issue message 1Q58A MOUNT TAPE ON . 

1 

| Wait for the operator E0B. 

I 

| Set up register 1 for sense, and 
| sense tape. 



I 



| If the tape has a file protect ring, J 

] branch to.-. . . ........... . ... .......... . >)OT48 

I 1 

| Rewind and unload the tape. | 

1 I 

J Issue message 1Q57A WRITE RING | 

| REQUIRED ON . | 

I I 

| Wait for operator EOB, and branch to>|OT44 

i I 

| If the tape is not ready, branch to >|0TU3 

I I 

| If the tape is not positioned at | 

| load point,, branch to.............. >|0T58 

-X -L — . 



|TCQW(IPW$DTC) 



|TCQW{IPW$DTC) !] 

I 1 

I I 

]TBSD(IPW$DTB) ] 

I 



JTCDW(IPW$DTC) 

|TCQW(IPW$DTC) 

I 

1 

jTBSM 

I PUB (Byte 6) 



1R0,R1 J 
IR2 \ 



JTBSD(IPW$DTB) j 



]R0,R3 ] 



] IPW$ULP 
| Chart GC 



I 



I IPW$ULP 
I Chart GC 



| IPW$WTO 
) Chart AD 

I 

j IPW$ULP 

I Chart GC 

I 

1 Chart AD 



|R1 



I 

-X- 



\ IPW$WTR 
] Chart AD 
1 

1 

j IPW$CTT 

| Chart AF 

I 

1 

I 

] 

] IPW$CTT 

(Chart AF 

| IPW$WTO 

] Chart AD 

] 

i 
I 

j IPW$CTT 
] Chart AF 
] IPW$CTT 
| Chart AF 
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( 



c l 



r 

| Labels 

f 


^ 1 , 

| Chart GG03: IPW$$OT - Open Tape 

_ + 

| Set up the data disk word to read 
[first record. 

|Read first record (length 80). 


— i 





— T n 

| Modified Data 
| Fields 

„ + 

[TCDW 

| (IPW$DTC) 

[ TBCH 

| (IPW$DTB) 


r r 1 

Reg. (Calls | 
Usage | | 

h + ) 

| IPW$RDT | 




| If no volume label, branch to...... 


> 


|0T55 








| (length 52). 








| IPW$WTO | 
[Chart AD | 


|OT50 


| Issue message '1R35D VOLUME LABEL 
| FOUND ... • . 

|Test operator response: 








,] IPW$WTR [ 
[Chart AD J 




| If ' 1V # branch to ........ 


> 
> 


J0T55 
OT50 








1 If not •D f or ' N f , branch to....... 






| Rewind and unload the tape. 








| ] IPW$CTT | 
(Chart AF j 




| If operator response was 

I'D 1 branch to. , • 


> 


0T41 
[0T4 3 








| otherwise go to 




|OT55 
|OT58 


[Reposition the tape. 

| Set mode. 

| Set mode byte in TCB to X'OO 1 . 

| Set CCB flags in the tape control 
[block. 

| Reserve disk space for the queue 
| record to be held in the queue 
] space. 

[Initialize the data control fields 
| in the TCB in preparation of the 
[first PUT. 






|TCQW(IPW$DTC) 
|TBCM(IPW$DTB) 

)TCBC(IPW$DTC) 


| IPW$CTT | 

i [Chart AF | 

|IPW$CTT j 

| [Chart AF ] 

| | IPW$RQS ] 
[Chart DA | 




J If the reflective spot on the tape 
[has not been hit yet, branch to.... 


> 


|OT60 








[Backspace over the queue record and 
| write a tapemark over it . 








[ IPW$CTT ] 
| [Chart AF | 


[OT56 


[Rewind and unload the tape. 

[Set the JSEP indicator to X'OO' for 
[subsequent tapes. 






1 QRSP(IPW$DQR) 


| J IPW$CTT ] 
[Chart AF '[ 




[Branch to ask for a new tape 


> 


|OT16 






|OT60 


[Release the work space for the 

| second 

[ function register save area. 








| ] IPW$RLW J 
i [Chart AC [ 




[Clear tape information and return to 
[caller. 






i | IPW$RET [ 
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CHART GH: IPW$$AS - ASYNCHRONOUS SERVICE (6 PARTS) 



Chart GHOO: IPW$$AS - Asynchronous Service, General Flow and Macro Calls 



IPW$$PL 



V 



IPW$$LU 



V 



IPW$$AS - Asynchronous Service 



Label 



Routine 



ASOOO 


Function Entry 


AS 100 


Attach Function 


AS200 


Detach Function 


AS300 


Invoke Service 


AS400 


Analyze Return Gode 


AS500 


Function Exit 


Subtask 


Subtask 



V 



IPW$$PL 



y. 



IPW$$LU 



:£> 



:> 



IPW$RSW 
IPW$RLW 
IPW$RSR 
IPW$RLR 



SETPRT 

LOAD 

ATTACH 

DETACH 

POST 



X_ 
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C 






I 1 










| Labels 

1 


Chart GH01 : IPW$$AS - Asynchronous Service 


Modified Data 
Fields 


Reg. 
Usage 


Calls 


__ _______ 


_ _ __ __ __ _ _____ ___ ___ .- 






ASCS 


The first 16 bytes constitute the 
section descriptor. 
'ASCS V10M1 1 

On entry, the following registers' 

contents are relevant: 

Reg. Branch index to required 
function: 

Service request 
4 Detach DOS/VS subtask 
8 Attach DOS/VS subtask 

Reg. 1 Address of service request 
block (SRB) , if applicable 

Reg. 10 POWER/VS permanent address 
area 

Reg. 11 TCB address 

Reg. 13 Task save area 

Reg. 14 Caller's return address 

Reg. 15 Function entry address 




. _ _ 




R0 

R1 

RA 

RB 
RD 
RE 
RF 




AS000 


Save caller registers 1 4-9 , inclusive. 

The function branch index, passed in 
register 0, and the address of the 
SRB are loaded in registers 4 and 8 
respectively. 

The entry point address, contained in 
register 15, is saved in register 9. 

Register 5 is loaded with the queue 
record address. 

If the asynchronous service anchor 
block already exists, branch to.... > 

Otherwise, reserve storage for it. 

The virtual address of the anchor 
block is stored in the permanent 
address area and copied in register 7 
to address the anchor block. 

The owner field of the buffer control 
word (BCW) associated with the anchor 
control block is addressed and 
updated to indicate that the anchor 


AS005 


IPW$DSV 
CAAB(IPW$DPA) 


R4,R8 

R9 
R5 

R7 
R1 


IPW$SAV 

IPW$RSW 
Chart: AC 


• 


block belongs to the system and not 
to the task requesting it. 

The storage descriptor is built in 
the anchor block. 




ABSD(IPW$DAB) 






AS005 


Lock the asynchronous anchor block. 


- 






IPW$RSR 
Chart: AB 


AS010 


The branch index is used to branch to 
the appropriate function through the 
following branch table: 

Service request > 

4 Detach request > 


AS300 
AS200 










8 Attach request > 


AS100 




. 
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Labels 


Chart GH02: IPW$$AS - Asynchronous Service 


. .. 

Modified Data 
Fields 


Reg. 
Usage 


r 1 

Calls 




Attach DOS/VS subtask 












service users by '1'. 

Set flag, indicating that the task 
uses asynchronous service. 

first user, branch > 

Load the function exit address in 
register 14. 

Clear out subtask ECB. 

Clear out communication ECB. 

Attach the subtask. 


AS500 


(IPW$DAB) 
TCCB(IPW$DTC) 

ABECB 

ABECB2 

(IPW$DAB) 


RE 


ATTACH 




If the attach was successful, 

branch return to caller > 


RE 






IPW$WTO 


Issue message 

1 1QA0I NO SUBTASK AVAILABLE FOR. . . ' 




The asynchronous service use flag is 
turned off. 




TCCB(IPW$DTC) 




Chart: AD 




The immediate stop flag is set in 
TCB. 




TCTT(IPW$DTC) 




IPW$$TR 


AS200 


Branch to function exit > 


AS500 


ABUSCT 

(IPW$DAB) 


R1 




Detach DOS/VS subtask 


The asynchronous service use count is 
decremented by ' 1 ' . 




The asynchronous service use flag in 
the TCB is turned off. 




TCCB(IPW$DTC) 








If the use count is not zero, branch> 


AS500 










If the subtask is already abnormally 
terminated , branch to > 


AS500 






DETACH 


Otherwise, detach the DOS/VS subtask 




Set the subtask TIK field to zero. 




ABTIK(IPW$DAB) 








Exit > 


AS500 








Invoke service 


AS300 


The subtask communication ECB is 
examined. If the subtask is still 
alive , branch to • > 


AS310 
AS110 




RE 




Branch to attach subtask again > 



v,,,,# 



V J 



4T- 
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c 



( 



Labels 


Chart GH03: IPW$$AS - Asynchronous Service 


Modified Data 
Fields 


Reg. 
Usage 


Calls 


AS310 


The SRB (service request block) is 
chained as last entry in the service 
request queue. 


r 


ABNEXT,ABLAST 
(IPW$DAB) 


h "\ 

R2 


— — , 




Unpost the event control block in 
the SRB. 




SRBECB 

(IPW$DSR) 




Chart: AC 


AS330 


The DOS/VS subtask is awakened. 

anchor block. 

Wait for completion of the request. 

Lock the asynchronous anchor block 
again. 

Unchain the service request block 
from the queue: 

If the SRB was not the first one in 
the queue , branch to > 


AS334 
AS 400 




R1 


POST 

IPW$WFC 
Chart: AA 

IPW$RSR 
Chart: AC 


Otherwise, the first in chain pointer 
is set to zero and a branch is made 
to analyze the return code > 


AS334 


The SRB chain is scanned to locate 
the appropriate SRB. If found 
branch to > 


AS338 
AS350 








If not found branch to > 


AS338 


Unchain the SRB from the service 
request queue. 




SRBNEXT 
SRBLAST 

(IPW$SRB) 








The pointer to the last SRB is 

updated if applicable. 

Branch to continue > 


AS400 


ABLAST 

(IPW$DAB) 






AS350 


Set abend reason code ' 04 f . 

Issue message: 

1 1QA2I CATASTROPHIC LOGIC ERROR 

OCCURRED 1 and force POWER/VS to 

abend . 

Branch to > 


PADS 




R0 
R1 


IPW$WTO 
Chart: AD 



c 
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Labels 


Chart GH04: IPW$$AS - Asynchronous 




Service 




Modified Data 

Fields 

I j 




Reg . 
Usage 


Calls 




Analyze return code 


— 












now loaded in register 1 and used t< 
branch to the appropriate routine 
handling the action to be taken. 
00 Successful completion 


> 
> 

> 

> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 

> 


AS500 
AS500 

AS420 
AS430 
AS440 
AS450 
AS410 
AS430 
AS420 
AS470 
AS410 
AS460 
AS410 
AS410 

AS410 








04 Burst not installed 


0C Invalid SETPRT request 

1 Phase not found in CIL 

1 4 Permanent I/O error 


18 Setup cancelled by operator... 

1C Reserved return-code 

20 Insufficient space CGS 

24 Invalid SETPRT request 

28 Not enough GETVIS storage 

2C Logic error occurred. 

30 SETPRT routine not in SVA 

34 Internal macro call failed.... 
38 Invalid work area specified... 

(cannot occur) 
3C LFCB failure (cannot occur) . . . 


AS410 
AS420 

AS430 

AS440 

AS450 
AS460 

AS470 


Set task stop indicator. 

Exit 


> 

> 
i 

h 
> 

> 
> 

> 

> 


AS500 
AS500 

AS500 

AS500 
AS500 

AS500 

AS500 


TCTT(IPW$DTC) 

TCTT(IPW$DTC) 

TCTT(IPW$DTC) 

TCTT(IPW$DTC) 
TCTT(IPW$DTC) 

TCTT(IPW$DTC) 
TCTT(IPW$DTC) 




IPW$WTO 
Chart: AD 

IPW$WTO 
Chart: AD 

IPW$WTO 
Chart: AD 

IPW$WTO 
Chart: AD 


Write message: 

! 1QA3I SETPRT ERROR FOR... 1 

Set task flush indicator. 

Exit 


Issue message: 

' 1QA4I OUTPUT PROCESSING STOPPED. . 
Set task flush hold indicator, whic 
causes the output to be kept in the 
queue with the disposition 'H f . 
Exit 


Set unrecoverable I/O error flag in 
TCB, C f u f , and branch to function 
exit • 


Set task stop indicator. 

Exit •• 


Issue message: 

f 1QA1I SETPRT ROUTINE NOT FOUND... 1 

Set task stop indicator. 

Exit 


Issue message: 

f 1QA6I NO STORAGE AVAILABLE FOR... 1 

Set task stop indicator. 

Exit 


Function exit 


AS 500 


Release asynchronous service anchor 
block. 








R3 


IPW$RLR 




Restore caller registers and return 


• 




J 


RE-R9 


IPW$RET 



V 
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C 



( 



r 1 

Labels 




Chart GH05: IPW$$AS - Asynchronous Service 
DOS/VS Subtask Processing 


r 1 

Modified Data 
Fields 


r 

Reg. 
Usage 


■———————■— 

Calls 




DOS/VS subtask j 




■ — — — -"— ■ 




first-in first-out basis. I 




SUBTASK 


The base register for the subtask is I 
established by using register 9. I 




R9 






addressed using register 2 and the 
subtask identification key (TIK) 
is moved into the anchor control 
block. j 


ABTIK(IPW$DAB) 






ST005 


Examine the first service request in | 
the service queue. | 




R8 




ST010 


If a service request is pending, I 
branch to > I STO 5 




R8 
R1 




Issue WAIT and wait to be activated I 
again. • 
Clear out ECB and branch to >JST005 


WAIT 


ST050 


If this is not a SETPRT request, 

branch to > ST 1 








If the address of the SETPRT logic ' 

module in the SVA already exists in 

the anchor block, branch to > STO 70 






Otherwise, issue LOAD with TXT=N0, to| 
get the entry point address of the I 
SETPRT routine in the SVA. I 




R0,R1 
R3,R4 


LOAD 




Test if the routine is in the SVA. I 

If not, branch to >JST100 


ABADR1 

(IPW$DAB) 


R2 




Save the entry point address of the 
SETPRT logic module in the anchor 
control block and in register 2. 




ST070 


Issue SETPRT request. i 

Store return code in service request | 
block (SRB) . | 


SRBRTC 

(IPW$DSR) 


R1 ,RE, 
RF 


SETPRT 


ST100 


Activate POWER/VS (post master ECB) . | 


SRBECB 

(IPW$DSR) 
PACB(IPW$DPA) 


R1 


POST 


„„ 


Get next service request block to j 
process. j 
Branch to > i ST0 1 








1 „ 





c 
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READER ROUTINES 



CHART HA: IPW$$PR - PHYSICAL READER (7 PARTS) 



x_ y 



Chart MAOO: IPW$$PR - Physical Reader , General Flow and Macro Calls 



IPW$$CP 



Command Processor 



H»W$$NU 



Task Selection 



;■■ v 



Module 


Macro 


Ref 


Chart 


-— •■ ..■ — 


#t^,i ,-, ■ i>- u-.Tr^* 


IPW$$WU 
M»W$$NU 
*W»LR 


ipmdii 
wmcu 

H*W$WeR 


I 

II 
Mi 


AC 
AC 
HB 





JPW$$Pft 


• Physical Reader 


Label 


Routine 


Functions/ 
Interfaces 


Services 


PRCS 


Routine Entry 


1 




PR04 


Initialize PDA 




C 


PR20 


Read Data Block 




A 


PR30 


Deblocking Routine 


II 


E 


PR50 


EOF/EOJ Routine 


II 


B,D,E 


PR70 


Routine Exit 


III 


A 




1 


I 







IPW$$NU 



Task Selection 



Services 



IPW$$NU 


Macro 


Ref. 


Chart 


Task Management 


A 
B 

C 
D 

E 


AA 
AC 
AD 


IPW$WFC 
IPW$WFI 


Storage Management 


IPW$RSW 
IPW$RLW 


Message Service 


IPW$WTO 



v....,^ 



' V y 
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( 



r 

| Labels 

L_ _ 


T~ ~ 

(Chart HA01: IPW$$PR - Physical Reader 

_.L_ _ „_ , _ _ _ ^ ■ 


r 

Modified Data 
| Fields 


T 

|Reg. 
|Usage 
L 


jCalls 

j. 


|PRSD 


• Y~ - — r- — — - — T 

|The first 16 bytes constitute the | 
(section descriptor: | 

| 'PRCS V7M0 ■ | 

| On entry, the following register | 
| contents are relevant: | 


r 


r 


T 




1 1 
1 1 

1 2 

1 9 
| 10 
|11 
1 13 


: Byte - number of buffers (01 | 

or 02) | 

\ Byte 1 - device type card reader | 

Bytes 2 and 3 - programmer | 

logical unit card reader | 

Byte 1 - device type 3540 reader | 

Bytes -2 and 3 - programmer | 

logical unit 354 reader | 

: Physical reader base address | 

; Permanent area address | 

: TCB reader task | 

i Save area reader task. | 


| IPW$DPA 
IPW$DTC 
IPW$DSV 


|R1 

|R2 

|R9 

|R10 

|R11 

|R13 






I Function Entry 1 




|R6 
|R7 






| The entry parameters in register 1 | 
1 are saved in register 6. | 
|The entry parameters in register 2 | 
J are saved in register 7. | 




(PRO 2 


(The logical reader interface is | 
| opened through an IPW$OLI call. | 






1 IPW$OLI 
1 Chart AC 


]PR03 


J If the reader task has not been | 
j started with a connected 3540 | 
\ diskette reader,, branch to reserve a | 
| short physical work space >| PRO 4 










J 160 bytes of physical work space | 
I (PWS) for saving dependent data for a| 
|card reader device and a 3540 | 
| diskette device are obtained to | 
| maintain reenterability,. | 






|IPW$RSW 
(Chart AC 




(Addressability of PWS is set through | 
[register 8. | 




|R8 






| Save the real address of the PWS in | 
|the PWS. | 


PERA(IPW$DPW) 








|Save the 3540 PSTART parameters in | 
|the PWS. | 


PEDI(IPW$DPW) 








| Indicate in the TCB that a JECL RDR | 
| statement is allowed in the input | 
| stream. | 


|LWER(IPW$DTC) 








| Brc 
| 64 

|f03 

(obi 


inch to continue • >| PRO 5 








|PR04 


bytes of PWS (physical work space) | 
: saving device dependent data are | 
:ained to maintain reenterability. | 


| IPW$RSW 
(Chart AC 




|Adc 
1 re< : 


Iressability of PWS is set through | 
fister 8. 1 


IPW$DPW 


|R8 





L X 



i J. JL ± J 
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T 1 

Calls 



Labels 



Chart HA02: IPW$$'PR - Physical Reader 



Modified Data 
Fields 



Reg. 
Usage 



PRO 5 



PR07 



PR08 



Device dependent data is saved in 
PWS. 

The device type is translated into a 
displacement (in number of entries) 
in the DVB (Device Control Block 
Table) and multiplied by the entry 
length to get the proper byte 
displacement in register 7. 

The record length for the specified 
card reader is then moved from the 
proper DVB to the PWS. 



Register 6 
buffers. 



is loaded with number of 



PDA (Physical Data Area) space is 
reserved for card reader CCB f related 
CQWs and data buffers. 

The PDA size is loaded from the 
permanent area. 

The virtual and real address of the 
CCB (first 16 bytes of PDA) is saved 
in PWS, and a branch is made to 
initialize the first liuffer. .-•■*.* * > 

The second PDA is reserved for CCB, 
related CCWs , and data buffers. 

The second PDA is loaded from the 
permanent area. 

The virtual and real address of the 
CCB (first 16 bytes of PDA) is saved 
in PWS. 

Buffer Space Initialization 



The first 16 bytes of the buffer work 
space are now initialized as a card 
reader CCB: 

• Wait for device end 

• Command retry option. 

• Programmer logical unit from PWS. 

• EXCP real. 

• Real address of first CCW is 
stored in CCB. 

The number of CCWs to be generated is 
now calculated in register 5, taking 
into account remaining buffer space,, 
record length, and CCW length. 

The number of CCWs to be generated is 
now multiplied with the CCW length to 
obtain the displacement of the last 
CCW from the beginning of the PDA. 

This displacement is saved in PWS. 



PWDI(IPW$DPW) 



PWDT(IPW$DPW) 
DVDT(IPW$$PR) 



PWRL(IPW$DPW) 



H._ y 



R7 



R6 



IPW$RSW 
Chart AC 



PBV1(IPW$DPW) 
PBRl(IPW$DPW) 



PRO 8 



IPW$RSW 
Chart AC 



PVB2(IPW$DPW) 
PVR2(IPW$DPW) 



IPW$DCB 



CBC1(IPW$DCB) 
CBC2(IPW$DCB) 
CBLC(IPW$DCB) 
CBLC(IPW$DCB) 
CBCA(IPW$DCB) 



R5 



PWLC(IPW$DPW) 



V, 
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( 



r 

(Labels 

|PR10 


- T , 

1 Chart HA03: IPW$$PR - Physical Reader 

^ 1 

| The CCW string is set up: | 




— T 7 

(Modified Data j 
(Fields | 

„ + ^ 


1 

Reg. ] 
Usage | 
1 


Calls 




| entry to the PDA. | 




| IPW$DCW | 


R3 | 






(The real data buffer address | 
| contained in register 6 is stored in | 
|the CCW. | 




|CWDA(IPW$DCW) 


R6 






(Register 4 is incremented with the | 
|data buffer length- 






R4 






| Register 3 is incremented with the 
(CCW length. | 






R3 I 






[The next CCW is set up. 












(The last CCW is unchained. j 




|CWFL(IPW$DCW) 








| If 

|PS 

|ir 

|Tr 
| lc 

|ar 
| mc 


double buffering was Specified in ' 
START command, branch to reserve and 
litialize the second PDA. ......... > 


PR07 
|PR22 


|PBV1(IPW$DPW) 
|PBR1(IPW$DPW) ! 


R6 

Rl 
R2 






ie first buffer pointers are 
>aded in register 1 and register 2, 
i SVC is issued, and a branch is i 
ide to wait for I/O completion. ... > 






| Read Data Block 




|PBV1(IPW$DPW) 
\ PBR1(IPW$DPW) 


Rl 




|PR20 


J The first buffer pointers are loaded 
| in registers 1 and 2. 






j If double buffering was specified, 

j branch to test for active buffer... > 


|PR21 


|PWDB(IPW$DPW) 








(Otherwise, issue an SVC for the 
(first and only buffer, and branch to 

( W8 "i +" for- T /d nnmnl p>4-i on i \ 


| PR22 








|PR21 


|i* 

|tc 
| ot 

lie 


: first buffer is not active, branch 
) make it active > 


PR22 


|PWVE(IPW$DPW) 

|PBV2(IPW$DPW) 
|PBR2(IPW$DPW) 


Rl 

|R1 
R2 






:herwise, registers 1 and 2 are 
>aded with second buffer pointers. 




|PR22 


|Make buffer pointed to by registers 
|1 and 2 active by saving registers 1 
jand 2 in PWS . 

| Wait for I/O completion of active 
| buffer. 

(Registers 0, 2, 3, and 6 are 
(initialized for the deblock routine: 




|PWVE(IPW$DPW) 
|PWRE(IPW$DPW) 


|R1 

|R2 






1 o 

1 3 
|6 


Virtual address first data buffer 
Real address first CCW 
Real address CCW last executed 
Real address last CCW in string 






|R0 
|R2 

|R3 
|R6 






| li 

j re 


: single buffering, branch to get 
scord length - . . > 


|PR28 


|PWDB(IPW$DPW) 
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(Fields [Usage [ 
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JCBSD(IPW$DCB) J j 



j PWRL ( IPW$DPW> J R 1 



Lables 



Chart HA04: IPW$$PR - Physical Reader 



PR28 



PR 30 



PR40 



If unit exception occurred,, branch toj 
get record length. ................ . >|PR28 



Otherwise, issue an SVC for the 
inactive buffer. 



I 



1 



Get record length in register 1„ and 
enter the deblock routine (PR30) at [ 
PR40 ...... > | PR40 

I 

Deblocking Routine | 



Register (virtual address data 
record) and register 1 (record 
length) are restored from task save 
area on return from logical reader. 

Virtual address data record (register 
0) and real address associated CCW 
(register 2) are incremented. 

(This entry point is taken whenever a 
new data block has been read in.) | 

I 
Depending on various conditions, a [ 
record is passed to the logical j 
reader or other action is taken. | 

I 
If the record was not the last one [ 
read f branch to pass to the logical | 
reader , >|PR50 

I 
If last CCW executed was the last CCW| 
in the string, branch to read next | 
block >|PR20 



J 

-JL- 



I 



JRO 
|R1 



|R0 

1 
|R2 



1 
.X- 



j V ^ 
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| Labels 


_ T 

| Chart HA05: XPW$$PR - Physical Reader 


— T — , T 

(Modified Data (Reg. 
| Fields (Usage 

r_ _ ' ,_ i. _ _ 


~T 

| Calls 


r~ 


| If unit exception is detected, branchl 

| to indicate unit exception >jPR4 2 

| If ignored error, branch to read the | 
|next block >|PR20 


f T 

1 |R4 


T 


|Otherwise, f pass the last record.... >|PR50 




|PR42 


| 2560, branch to indicate unit | 
(exception to logical reader >|PR45 








| If device 2560, issue an IPW$PLR | 
| call to pass last record and issue 2 | 
| dummy reads to empty the card path. | 




|IPW$PLR 
(Chart JC 




| Reset DEVICE END switch. | 


|TCG2(IPW$DTC) | 




(PR45 


f detected.) j 








| Register 1 (record length) is set to | 
|0 to signal unit exception to the | 
| logical reader. | 


1 |R1 




|PR50 


| Control is passed to the logical \ 
| reader through an IPW$PLR call. | 

[The return code posted in register 1 | 
| by the logical reader is tested, and | 
|on normal (nonzero) return the next | 
| record is passed to the logical | 
(reader . . . . >|PR30 

IEOF/EOJ Exit j 


1 |RX 


j IPW$PLR 
(Chart FC 


|This routine is entered in case of: | 






(unexpected unit exception, or | 
j unit exception on EOJ. | 






|PR60 


| Device dependent parameters in PWS | 
| (device type and programmer logical | 
j unit) are saved in register 6. ] 


] |R6 






| Register 7 is set to binary zero to | 
| indicate that the reader task has | 
[been started without a connected 354 | 
j diskette. | 


1 |R7 






1 If the task has not been started with) 
(a connected 3540 diskette, branch to | 
1 release the work areas >|PR6 2 


1 |R7 




[otherwise, save the device dependent j 
(parameters (device type and | 
(programmer logical unit), which were | 
(saved in the PWS for the diskette | 
(device, in register 7. ] 





L X , JL X J. X J 
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Modified Data ]Reg. 
Fields | Usage 



|R1 



Labels 






PR62 



PR70 



PR75 



PR80 



Chart HA06: 1PW$$PR - Physical Reader 



The PDA(s) is (are) released. 

Register 1 is loaded with PWS 
address, and PWS is released. 

According to different conditions , 
branches are made to the appropriate 
routine. 

If unit exception occurred,, but not 
at EOJ f branch to indicate unexpected 
unit exception > 

If device readied in the meantime, 
branch to > 

If unit exception and EOJ, message 
1Q34I is issued: 

Message address is taken and stored 
in message request word. 

Message is logged. 

The logical reader interface is 
closed. 

If device readied in the meantime, 
branch to. > 

An IPW$WFI call is issued to wait for 
a possible card reader interrupt. 

On card reader interrupt, indicate a 
new job stream in the card reader. 

If no STOP condition has been posted 
in the TCB, a branch is made to open 
the interface again. > 

Using register 12 as a work register,, 
the address of the task terminator is 
stored in the TCB, register 9 is 
loaded with the terminator base 
address, and a branch is made to 
terminate the task. 



PR85 



PR7 



PR75 



PRO 2 



— f 



TCMW(IPW$DTC) 



|R12 

I 

TCRC(IPW$DTC) )R9 

I 



Calls 

.( 

IPW$RLW 
Chart AC 
IPW$RLW 
Chart AC 



IPW$WTO 
Chart AD 
IPW$CLI 
Chart AC 



IPW$WFI 
Chart AA 



V,.^' 



V. 
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| Labels 


_ T _ — _ — — - 

jchart HA06.1: IPW$$PR - Physical Reader 

j. — — — _ «. _ _ _ 


T r 

(Modified Data 
| Fields 

4- _ _ . 


— T 

| Reg. 
| Usage 
j. _ 


| Calls 

j. 


|PR85 


T ______ 

| (This entry is taken in case of an 
(unexpected unit exception.) 

| If device readied in the meantime, 
j branch to 


T 

>|PR8 8 


T 


— T 


t — 




(Message 1Q35A is issued. 












| stored in message request word. 




]TCMW(IPW$DTC) 








(Message is logged. 








j IPW$WTO 
| Chart AD 




| If device readied in the meantime, 
| branch to «••• 


>|PR88 










I Wait for card reader interrupt. 


I IPW$WFI 
(Chart AA 




| On card reader interrupt, if a STOP 
(condition has been posted in the 
|TCB, a branch is made to detach the 
j task 


>|PR8 










(Otherwise, branch to initialize work | 

| space again >|PR03 









( 
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CHART HB: IPW$$LR - LOGICAL READER (23 PARTS) 



Chart HBOO: IPW$$LR - Logical Reader, General Flow and Macro Calls 



V.-j^ 



Queue Functions 






Module 


Macro 


Ref. 


Chart 


IPW$$RQ 
IPW$$AQ 
IPW$$DQ 
IPW$$FQ 


IPW$RQS 
IPW$AQS 
IPW$DQS 
IPW$FQS 


1 

II 
III 
IV 


DA 
DB 
DD 
OE 



Data Functions 


Module 


Macro 


Ref. 


Chart 


IPW$$PD 


IPW$PDR 


V 


EA 



Account Functions 


Module 


Macro 


Ref. 


Chart 


IPW$$PA 


IPW$PAR 


VI 


FA 



Miscellaneous 


Module 


Macro 


Ref 


Chart 


IPW$$SC 


IPW$SRJ 


VII 


GA 



Interfaces 



Module 


Macro 


Ref. 


Chart 


IPW$$PR 
IPW$$ER 


IPWSGLR 
IPW$GLR 


VIII 
IX 


HB 
HC 



POWER /VS 
Initialization 



Physical 
Reader 



RJE,BSC 

Reader 

Routine 



RJE,SNA 
Inbound 
Processor 



Save Account 



IPW$$LR - Logical Reader 



Label 



LROO 
FQOO 
MCOO 
JEOO 
JCOO 
OC00 
RDOO 
EJOO 

EDOO 
UEOO 
JHOO 
CCOO 
MSOO 
WGOO 



Routine 



Routine Entry 

Format Queue Record 

JECL or JCL Mode check 

JECL Mode initialization 

JCL Mode initialization 

Command Code checking 

3540 Physical reader linkage setup routine 

End of Job Routine 

EOF/EOJ Routine Exit 

User Exit Routine 

JECL Statement Routine 

Continuation check Routine 

Message Routine 

Write Logical Record to disk, 
get next Record 



POWER/VS 
Initialization 



]£ 



Physical 
Reader 



IT 



RJE.BSC 

Reader 

Routine 



Functions/ 
I nterf aces 



11,111,1V, 

VI 

V,VIII,JX 



VII UX 



C 

A,B 



]£ 



RJE.SNA 
Inbound 
Processor 



1£ 



Save Account 



3540 

Diskette 

Reader 



IPW$$NU 


Macro 


Ref 


Chart 


Resource Management 


A 
B 

C 
D 

E 
F 

G 


AB 
AC 
AD 
AG 


IPW$RSR 
IPWSRLR 


Storage Management 


IPW$RSW 
IPW$RLW 


Message Service 


IPW$WTO 
IPW$RMS 


Timer Service 


IPWSRDC 



v.,.y 



Ij 



3540 

Diskette 

Reader 



X y 
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| Labels 

|LRSD 


"T 

| Chart HB01: IPW$$LR - Logical Reader 

_ + T 

| The first 16 bytes constitute the | 
| section descriptor: | 

I'LRCS V7M0 • | 

(On entry, the following register | 
| contents are relevant: j 


t 

(Modified Data 
(Fields 

„ + 


— T 1 

|Reg. (Calls 
(Usage j 




1 o 

1 1 
1 10 
|11 
| 13 

(14 

|15 


: address of record to be handled | 
: length of record to be handled | 
: address of permanent area | 
: address of reader TCB | 
: address of reader task save area | 
: address of entry point taken at | 
first entry ( 
: address of logical reader. | 


| IPW$DPA 
| IPW$DTC 


|R0 | 
|R1 1 
|R10 | 
(Rll | 
(R13 | 
|R14 | 

]R15 | 




(Function Entry 1 






jLROO 


!]This entry point is taken when a | 
1 physical reader issues its first j 
]IPW$PLR call to the logical reader. | 






1 Register 9 is set up as logical | 
(reader base register. | 




|R9 | 


J LR10 


[Record address is saved in register | 
1 6. J 




|R6 | 




(Record length is saved in register 7. | 




|R7 | 




| If unit exception is detected (record) 
| length zero) a branch is made to | 
| return to the physical reader > |ED20 








(Otherwise,, the forms switch is | 
(initialized. | 


|LWFS(IPW$DTC) 






|LDA (Logical Data Area) space is | 
(reserved for the IPW$WTD function andj 
(the LDA is obtained from the | 
(permanent area. | 




| J IPW$RSW 
| (Chart AC 




(Real and virtual address of buffer | 
(space are stored in the TCB. | 


|TCDA(IPW$DTC) 






| If a user exit routine is available, | 

|a link is made >|UE00 




|R4 | 




| Branch to the mode check routine to ] 
(analyze the first card >|MC00 








I Format Queue Record ( 


|TCJB(IPW$DTC) 




1FQ00 


( Save register 1 in register 8 and | 
(indicate start of job in the TCB. j 


|R8 | 




j If no queue space is available yet, | 

( branch to > | FQO 2 








(Otherwise,, clear the queue record j 
(body field. | 


|QRBF(IPW$DQR) 





L X X X X X J 
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Modified Data [Reg. 
Fields (Usage 



Labels 



Chart HB02: IPW$$LR - Logical Reader 



Calls 



FQ02 



The first queue record is read in 
through an IPW$RQS call. The queue 
space is addressed through register 
5. 

The data address is obtained from 
queue space and moved to the TCB. 

The queue record is initialized. 

Register 3 is set up to address the 

DMB. 

Standard start up date is moved from 
DMB to queue record. 

User information field is blanked 
out. 

Default job name is moved from DMB to 
queue record. 

Reader queue record is indicated. 

Default cancel code is moved from DMB 
to queue record. 

Device type is moved from TCB to 
queue record. 

Device unit number is moved from TCB 
to queue record. 

Remote ID is moved from TCB to queue 
record. 

Default class is moved from TCB to 
queue record. 

Default priority is moved from DMB to 
queue record. 

Number of copies is set to one. 

Default forms number is set. 

Default disposition is set (D) . 

Number of tracks is initialized at 1. 

If the current job, allocated on the 
queue file, is not to be placed in 
the hold state, branch to > 

Otherwise, set the current job in the 
hold state. 



FQ05 



TCDW(IPW$DTC) 



QRDY(IPW$DQR) 

QRUI(IPW$DQR) 

QRNM(IPWSDQR) 

QRQI(IPW$DQR) 
QRCN(IPW$DQR) 

QRDT(IPW$DQR) 

QRCU(IPW$DQR) 

TCRI(IPW$DQR) 

QRCL(IPW$DQR) 

QRPY(IPW$DQR) 

QRNC(IPW$DQR) 
QRFI(IPW$DQR) 
QRDP(IPW$DQR) 
QRNT(IPW$DQR) 



R5 



R3 



IPW$RQS 
Chart DA 



V J? 
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Chart HB03: IPW$$LR - Logical Reader 



Modified Data 
Fields 



Reg. 
Usage 



Calls 



|FQ05 



IMCOO 



The DMB is reserved for the duration 
of the update of the job number in 
the master record. 

The job number is updated: 

The current job number is loaded in 
register 1 from the DMB. 

The current job number is stored in 
the queue record. 

The job number is incremented by one 
and stored in the master record,. 

The DMB is released again. 

Register 1 is restored and a return 
is made to caller via register 4. 

Mode Check Routine 



The incoming data record is examined 
and processed according to the 
conditions detected. 

If the termination switch in the TCB 
indicates a stop condition,, exit is 
made to task selection > 

A possible end of data record ID is 
reset. 

A possible flush condition is reset. 

The data record is now checked for 
various conditions, and if the record 
is not a JECL statement, branch to 
check for JC mode. > 

If no JECL operation code is found, 
branch to check for JC mode > 

If the operation code is JOB, branch 
to handle a JOB statement > 

If the operation code is CTL, branch 
to handle a CTL statement > 

If the operation code is RDR,, branch 
to handle a RDR statement > 



A link is made to reserve queue 
space 



> 



Branch to write the current record 
and to read the next card, after 
which JC mode processing is 
performed > 



EJ4 5 



MC10 



MC10 



MC20 



MC30 



MC4 



FQOO 



JC30 



IPW$RSR 
Chart AB 



QRNO(IPW$DQR) 



MRNO(IPW$DQC) 



Rl 



Rl 



IPW$RLR 
Cnart AB 



R1,R4 



TCGP(IPW$DTC) 
TCTT(IPW$DTC) 



RU 
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I Labels 
I 

IMC 10 



I 



IMC20 



I 

JMC30 
I 
I 



IMC 40 



Chart HB04: IPW$$LR - Logical Reader 

A link is made to reserve queue 
space > 

Branch to check the statement in JC 
mode processing. . . . * . . * > 

The JOB operation code ID in the TCB 
is set. 

The branch index used in the 
statement scan is set for job name, 
and a link is made to reserve queue 
space > 

On return, a link is made to handle 
the JOB statement . *-.*••• > 

Branch to write the current record 
and to read the next card, after 
which JECL mode processing is 
performed. * * > 

The CTL operation code ID in the TCB 
is set. 

The parameter form switch in the TCB 
is set to keyword form, and a link is 
made to handle the CTL statement. . . > 

A link is made to get a new record. > 

Branch to check what type of input 
mode is to be applied > 

The return address is set in register 
4 which can be used by the next 
subroutine in case the RDR statement 
is not allowed and a mode che,ck must 
be performed on the next card 
obtained from the physical reader. 

A link is made to handle the RDR 
statement. a > 



The return address to the mode check 
routine is again set in register 4 in 
case the linkage to the diskette 
reader cannot be set and a mode check 
must be performed on the next card 
obtained from the physical reader. 

If the processing mode specified in 
the RDR statement is not data mode, 
branch to set a linkage with the 
physical 3540 diskette reader > 

Otherwise, reset the data mode switch 
in the TCB and branch to issue an 
error message and read the next 
card » . . . > 



FQOO 
JC00 



FQOO 



JHOO 



JEOO 



JHOO 



WG30 



MC00 



JHOO 



RD00 



JH02 



| Modified Data 
(Fields 

I 
I 
i 



I 

1LWFS(IPW$DTC) 



I 



I 



]Reg. ] Calls 

| Usage ] 

]R4 ] 

i r 

i i 

I i 



— H 



,|LWOC(IPW$DTC) j 

I ! 

i i 

|LWBI(IPW$DTC) ]R4 



|R8 



I I 

I I 

|LWOC(IPW$DTC) J 



1 



IR8 



|R4 



|R4 



|R8 



IR4 



I 



1LWER(IPW$DTC) j 



i 
-X- 



I 
i 

.JL- 



v,> 



K^y 



V. 
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Labels J Chart HB05: IPW$$LR * Logical Reader 



Modified Data 
Fields 



Reg,. 
Usage 



(Calls 



( 



[ JECL Mode Routine 

I 
JEOO JA link is made to write the record to 

| the data file and obtain the next 

J record s. > 

1 
JE05 | On return, a link is made to check 

j the operation code > 

i 

| On return, the operation code routine 

| branches into a branch table starting 

jat the return point, and then 

| branches to the appropriate routine , 

(controlled by the return code, which 

| is passed by the operation code 

(routine, 

I 

| If return code == 0, branch to handle 

j data record ........ > 

I 

| If return code = 4 ,, branch to handle 

j • /fc '■ condition > 

I 

| If return code = 8, branch to handle 

| '// JOB' condition > 

I 

(If return code = 12, f branch to handle 

I JECL EOJ • > 

I 

(If return code = 16 , branch to handle 

(JECL JOB before JECL EOJ. > 

J 

I If return code = 2 0„ branch to handle 

| JECL CTL statement > 

I 

] If the return code is 24, branch to 

| handle a JECL RDR statement > 

I 
JE20 I If no flush condition is present, a 
(branch is made to treat the current 
J record as data ..*.... > 

I 

| If no DOS/VS flush condition present^ 

\ branch > 

I 

| If the current statement is a./fc 

| statement, a branch is made to reset 

(the flush condition.... > 

I. 

(Record pointers register 6 and 
(register 7 are saved, 'Inserted 
(Record 1 is indicated, and register 6 
J and register 7 are set up to point to 
(a Vfc' record. 

I 
JE35 | The flush condition is reset, and a 
| branch is made back to treat the 
| record as data > 

«.-. a. * 



WG10 
fOC 00 



JEOO 
JE20 
JE20 
WG00 
JE40 
JE50 
JE60 

JEOO 
JEOO 

JE35 



R4 
R4 



USCC(IPW$DTC) 



TCTT(IPW$DTC> 



R6,R7 



JEOO 
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Labels 



Chart- HBO 6: IPW$$LR - Logical Reader 



Modified Data 
Fields 



Reg. 
Usage 



! Calls 



JE40 



JE50 



JE60 



JCOO 



JC10 



This routine handles unexpected JECL 
f J6B statement. 

Register and register 1 are set to 
point to a JECL EOJ record, and a 
branch is made to add the record to 
the data file > 

This routine initiates CTL statement 
processing. A link is made to handle 
the CTL statement > 

On return, a link is made to get the 
next record > 

A branch is made to process the new 
record > 

The return address is set in register 
4, which can be used by the next 
subroutine in case the RDR statement 
is not allowed in the input stream 
and a link is made to handle the RDR 
statement. . ~ > 

The return address is again set in 
register 4, and a branch is made to 
set a high level linkage 1 with the 
physical diskette routine (IPW$$ER) > 

Job Control Mode Routine 



This routine examines the first 
statement of the job being processed. 

If the current statement is not a // 
statement, branch to set default job 
name /. > 

If no JCL operation code is found, 
branch to set default job name..... > 

If the JCL operation code is not JOB, 
branch to set default job name > 

Otherwise, if no job name is found, 
branch > 

If job name is present, move job name 
to queue record. > 

This routine is entered if the first 
statement is a // JOB statement. It 
moves the job name to the queue 
record. 

The length of the job name is 
calculated in register 3. If the job 
name length exceeds 8 bytes,, the 
number of bytes to be moved to the 
queue record is set to 8. The length 
of the job name is saved in register 
4. 



WG4 5 



JHOO 



WG30 



JE05 



JHOO 



RDOO 



JC35 



JC3 



JC3 5 



JC30 



JC10 



R0 f Rl 



R8 
R4 



R4 



R4 



R3 



R4 



J 
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Chart HB07: IPW$$LR - Logical Reader 



Modified Data 
Fields 



Reg. 
Usage 



I Calls 



IJC20 



IJC30 



I JC35 



( 



IJC40 



IJC50 



pC53 



The job name field in the queue 
record is blanked out. 

The job name is moved to the queue 
record using an execute instruction. 

Sixteen bytes of user information is 
moved to the queue record space. 

A link is made to write the record to 
the data file and read the next one > 

A link is made to scan the bperation 
code of the next record............ > 

On return, the operation code scan 
routine provides a branch index into 
a branch table located at the return 
point, used to branch to the 
appropriate routine: 



branch to handle data record.. > 
branch to handle /£ 

statement > 

branch to handle unexpected 

// JOB statement > 

branch to handle JECL EOJ 

statement > 

branch to handle JECL JOB 

statement > 

branch to handle JECL CTL 

statement. > 

branch to handle JECL RDR 
statement . ,. > 



Record pointer registers and 1 are 
set to point to the EOJ record to be 
inserted. A branch is made to add 
the record to the data file > 

If reading from a 3540 diskette, 
branch to check for a forced EOJ 
statement . > 

If not reading from an SNA work 
station, branch to handle an 
unexpected JECL EOJ statement from 
the card reader. > 

If a forced 3540 EOJ statement is 
passed, the record request word is 
set up with a dummy /£ record and a 
branch is made N to > 



WG10 



OC00 



JC30 
WG00 
JC40 
JC50 
JC40 
JC60 
JC7 

WG4 5 
JC53 

JC55 

WG02 



QRNM(IPW$DQR) 



QRNM(IPW$DQR) 



R4 



R4 



RQ,R1 



TCCC(IPW$DTC) 



R0,R1 



409 



Labels 



Chart HB08: IPW$$LR - Logical Reader 
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Reg. 
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| Calls 



JC55 



JC60 



JC70 



OC00 



An unexpected JECL EOJ statement is 
invalidated by overwriting a $ sign 
with an asterisk. A branch is made 
to write the record to the data 
file > 

The CTL statement detected is handled 
through a link > 

On return, a link is made to get the 
next record > 

A branch is made to scan the new 
record > 

The return address is set in register 
4, which can be used by the next 
subroutine in case the RDR statement 
is not allowed in the input stream, 
and a link is made to handle the RDR 
statement > 

The return address is again set in 
register 4, and a branch is made to 
set a high level linkage with the 
physical diskette routine (IPW$$ER) > 

Operation Code Check Routine 



This routine scans an input record 
and checks for JECL and JCL. A 
■Normal Record 1 indication is made in 
the TC£. If the first character 
compares higner than '/* , and can 
therefore not be the first character 
of a delimiter statement (JECL or JCL 
Statement) , branch back to caller.. > 
If the first character is a ' z 1 , 
branch to test for JCL > 

Otherwise, if the record is a JECL 
statement, branch to check > 

If neither JCL nor JECL statement, 
return to caller* * . . * > 



JC30 



JHOO 



WG30 



JC35 



JHOO 



RDOO 



R8 



R4 



R4 



R8 



(R4) 

OC10 

OC50 
(R4) 
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( 



Chart HB09: IPW$$LR - Logical Reader 



Modified Data 
Fields 



IOC 10 



IOC20 



IOC50 



( 



1OC60 



IRD00 



If '/*' statement, branch to indicate 
data break > 

If statement is a /fc statement , 
branch to caller > 

Otherwise, if not a // statement, 
return to caller > 

If no JCL operation code is found, 
return to caller > 

If a // EXEC statement, indicate data 
break. . > 

If a // JOB statement, return to 
caller > 

Otherwise, return to the caller.... > 

A data break is indicated,, and 
control is returned to the caller-. > 

If no JECL operation code is found, 
return > 

If JECL EOJ statement, return. > 

If statement is a JECL JOB statement 
before EOJ statement, return > 

If the current job has a flush 
condition, return > 

If the current statement is a CTL 
statement, branch to process it.... > 

If the statement is a RDR statement, 
return to check it > 

Otherwise, return to write and get 
the next record > 

Otherwise, the CTL operation code ID 
is set in the TCB, the form switch 
is set to • Keyword' , return to 
caller . . . . > 

354 Physical Reader Linkage Setup 



Routine 



The interface to the physical 
diskette reader (IPW$$ER) is opened. 

A physical save area is reserved for 
the physical diskette routine, which 
is obtained to save the registers 
used by the diskette routine. 



OC20 

(R4)+4 

(R4) 

(R4) 

OC20 

(R4)+8 
(R4) 

(R4) 

(R4) 
(R4)+12 

(R4)+16 

(R4) 
OC60 

(R4)+24 
R4 

(R4)+20 



IPW$RSW 
Chart AC 
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\, y 



EJOO 



EJ10 



The new physical save area is 
initialized as follows: 

• The address of the TCB is stored 
to define the owner. 

• The address of the logical save 
area is stored to define the high 
level interface between IPW$$LR 
and IPW$$ER. 

• The address of the physical 
diskette reader. 

• The base address of the physical 
diskette reader. 

• The entry address of the physical 
diskette reader. 

• The address of the physical work 
space. 

The address of the new physical save 
area is saved in the logical save 
area . 

A branch is made to get the next 

record from the physical 3540 

di skette device > 



End of Job Routine 



The termination condition code is 
copied from the TCB to the queue 
record. 

Job termination time is obtained 
through an IPW$RDC call. 

Job termination time is stored in the 

queue record. According to 

conditions detected, a branch is made 

to the appropriate routine to 

continue EOJ processing: If no flush 

condition, branch to add queue record 

to queue file. >|EJ30 

Otherwise,, the flush condition is 

reset. If no DOS/VS job flush 

condition was detected , a JECL flush 

condition must be present, so branch 

to write an account record > |EJ10 

Otherwise, branch to add queue record 

to queue file >| EJ30 

Write an account record. 

The queue record is deleted from the 
queue set using an IPW$DQS call. The 
queue record is added to free set 
using an IPW$FQS call. 

A branch is made to >|EJ4 

x ' J. 



WG3 



0(R1) 
4(Rl) 

12 (Rl) 
52 (Rl) 
8(R1) 
48(R1) 

SVSV(IPW$DTC) 



Rll 

R13 

R15 
R15 
R15 
R2 



QRCN(IPW$DQR) 



QRET(IPW$DQR) 



IPW$RDC 
Chart AG 



TCTT(IPW$DTC) 



IPW$PAR 
Chart FA 

IPW$DQS 
Chart DD 

IPW$FQS 
Chart DE 
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IEJ30 



IEJ40 



IEJ42 



ISJ45 



IEJ50 



IED00 



IED05 



The queue record is added to the 
queue file using an IPW$AQS call. 

The account record address is loaded 
into register 1. 

The account record length (58 bytes) 
is loaded in register 0. 

An 1PW$PAR call is issued to add the 
account record to the account file. 

The function trace indicator in the 
TCB is set to 'Complete EOJ'. 

If "Stop at EOJ" was not indicated, 
branch to continue > 

Otherwise, 'Detach' is indicated in 
the TCB. 

Register 9 is set up as task 
terminator base register, and a 
branch is made to the task 
terminator , 



> 



If next record not available, branch 
to ^ > 

A possible end of data record ID is 
reset. 

If this is the start of an unexpected 
new job, reset unexpected job 
indicator and return to caller 

Otherwise, check for user exit 
routine by branching * to. > 



EOF/EOJ Exit 



This routine is entered in case of 
unit exception. On unexpected EOF 
(EOF before EOJ) the data block is 
written to the data file to make 
release of work space possible, work 
space is then released and control is 
passed back to the physical reader. 
On interrupt by the applicable reader 
device, the physical reader will pass 
control back and work space is 
reserved again. 

On unexpected EOF, EOB is indicated, 
and a d,ata block is written. 

If the reader task has been started 
for the 3540 diskette only, there is 
no dormant linkage with a card 
reader, and a branch is made to 
release the logical data area > 



EJ50 



(R9)+16 



EDO 5 



UE00 



2D 10 



IPW$AQS 
Chart DB 



Rl 



R0 



IPW$PAR 
Chart FA 



TCFT(IPW$DTC) 



TCTT(IPW$DTC) 



R9 



R7 



TCGP(IPW$DTC) 



LWUJ(IPW$DTC) 



R4 



TCGP(IPW$DTC) 



IPW$PDR 
Chart EA 
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| Reg. 
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|R1 

I 

I 



Calls 



ED10 



ED20 



Register 1 is loaded with the address 
of the physical 3540 save area 
address. 

The physical 3 540 save area is 
released. 

The physical card reader save area is 
chained back to the logical save 
area. 

A possible 3 540 communication switch 
is reset. 

A possible end of data record ID is 
reset. 

A branch is made to continue reading 
from the card reader... , > 

Register 3 is saved as it will be 
destroyed by the following release 
work space function. 

Register 1 is loaded with the LDA 

address. 

The data LDA is released through an 
1PW$RLW call. 

The LDA pointers in the TCB are set 
to zero. 

Register 3 is restored. 

If an EOB record was indicated, 
implying EOF before EOJ, a branch 
is made to bypass release of queue 
space > 

Otherwise, register 1 is loaded with 
queue space address, and queue space 
is released through an IPW$RLW call. 

Queue space pointers in the TCB are 
set to zero. 

End of input is indicated by setting 
register 1 to zero. 

Return to physical reader using an 
IPW$GLR call. 

In case of EOF before EOJ # return is 
made to the logical reader at this 
point, after receiving the interrupt 
of the reader device. 



WG4 2 



jlD20 



SVSV.(IPW$DTC) 

LWER(iPW$DTC) 

TCGP(IPW$DTC) 



1 

SVR3(IPW$DSV) I 



I 



TCDA(IPW$DTC> 



TCQA(IPW$DTC) 



|Rl 



|R3 



I'Rl 



IR1 



IPW$RLW 
Chart AC 



IPW$RLW 
Chart AC 



IPW$RLW 
Chart AC 



IPW$GLR 
Chart HB 
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T 

(Modified Data 
| Fields 


— r r 

(Reg. | Calls 
(Usage | 

- 4- - 4- 


r 


r ~ — i 
| Record pointer registers and 1 are 
| saved in registers 6 and 7, 
| respectively. 


r 


T 


T T 

|R6 f R7 | 




| £jDA space is reserved again. 

(Real and virtual addresses of the 
| buf f er space are stored. 




|TCDA(IPW$DTC) 


| |I£W$RSW 
j | Chart AC 




(Register 3, whose contents, have been 
| destroyed by the IPW$RSW call, is 
| restored. 






|R3 j 




|A branch is made to check the new 

| data record.- > 


WG50 








(User Exit Routine 








|UEOO 


| The current record is examined and 
| passed to the user exit routine 
[according to the following 
j conditions : 






1 • 
1 * 

1 * 
j • 


If no user exit is available, 
return to the caller > 


[ (R4) 

i (RU) 

(R4) 

(R4) 








If flush condition, return to the 
caller. ......................... > 






If the current record has been 
user inserted, return. > 






If neither JECL nor JCL statement, 
return to the caller ^ 




| UE10 


| Registers are saved. 

| Record address and record length are 
(saved in register and register 1, 
| respectively. 

|A link is made to the user exit 
(routine. 

| On return, user exit parameter 

| registers and 1 are stored in tne 

|TCB. 

|The user exit return code is stored 
( in the TCB. 

(Reader registers are restored. 

| Register 1 is loaded with the user 
(exit return code, which is used as a 
j branch index into the following 
(branch table: 




| SVRE(IPW$DSV) 

|USCC(IPW$DTC) 
|USCC(IPW$DTC) 


|R0,R1 | 
|R14 | 

|R1 | 


|UE20 


1 o 


Return to the calling 

routine ....................... > 


(R4) 
u\d30 
Ui',4 
UE50 
UE6 

L_ . 


„J . .. 




I 


1 ** 
1 8 
1 12 

JL 6 . 


: Branch to delete data record.. > 
Brancn to insert data record.- > 
Branch to flush D0S/VS job.... > 
Branch to flush POWER/ VS job.. > 


\RS | 
-_X_ »_____ . . . 



ttli 



- T _ .„ — r . — .. 

I Reg. (Calls 
| Usage j 

-+— +— 



Labels 



Chart HB14: IPW$$LR - Logical Header 



Modified Data 
Fields 



l v y 



UE30 



UE40 



UE50 



UE60 



UE70 



UE80 



JHOO 



The current record is deleted by 
bypassing the write to data .tile: 

Delete condition is reset for next 
record. 

A branch is made to get the next 
record , . . . > 

Record pointer registers 'and 1 are 
restored from the TCB. 

Currerit record pointers registers 6 
and 7 are saved in the TCB. 

inserted record pointers are loaded 
into current record pointer registers 
6 and 7. 



Control is returned to the caller. 



> 



If at job boundary, branch to ignore 
flush. . . > 

Otherwise, set the POWER/ vs cancel 
code in the queue record to x'OCT to 
indicate that only the records of the 
current DOS/V5 job are to be flushed. 

Br an en to continue > 

If at job boundary, branch to ignore 
f lush . ■ . „ ^ . > 

Otherwise, set the POWER/ VS cancel 
code in the queue record to 'X'60' to 
indicate" that all the records of the 
current pOWER/VS job are to be 
flushed. 

Flush condition is indicated in the 

TCB. 

Branch to get next record > 

Reset flush condition and issue 
message 1R57I. 

Control is returned to the caller. 

JECL Statement Handler 



This routine provides the interface 
with the parameter scan function. 
Parameter registers are set up prior 
to IPW$SRJ call. 

If the operation code is not RDR, 
branch to scan the statement 
directly. . . ... > 

If the RDR* statement is read from a 
3540* diskette device, branch to issue 
message 1Q90I > 



WG4 



(RU) 



UE8 



UE7 



UE8 



WG10 



JH(M 



JH02 



USCC(1PW$DTC) 



USCC(IPW$DTC) 



QRCN(IPW$DQR) 



QRCN(IPW$DQR) 



TCTT(IPW$DTC) 



USCC(IPW$DTC) 



|R0,R1 j 



i I 

jR6,R7 j 

I ! 

I I 



1R4 



|IPW$WTO 
I 
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IJH02 



IJH04 



( 



IJH05 



If the RDR statement is read from the 
card reader and the reader task has 
been started in combination with a 
3540 diskette reader, branch to scan 
the statement > 

A link is made to the message 
subroutine to issue message 1Q901 * 
$$ RDR STATEMENT NOT ALLOWED, JOB 
FLUSHED - > 

A flusn condition is set in the TCB . 

Branch to flush the current POWER/VS 
job . > 

Load the address of the physical work 
space in register 2. 

Blank the file name. 

Load the address of the master record 
in register 3. 

Set iollowing defaults into pnysical 
work space: 

• Clear option byte (FEED) 

If the option FEED in master 
record is not on, branch to > 

• Turn option FEED on 

• Number of diskettes to one 

• Volume sequence check option (to 
NO character blank) 

• Verify option (to NO character 

blank) 

The kDR operation code ID in the TCB 
is set, and the oranch index used in 
the statement scan is set for the 
de vi c e pa r amet e r . 



JH04 



MS 5 



WG30 



JH0 5 



TCTT(IPW$DTC) 



PEFI(IPW$DPW) 



PLOP(IPW$lJPW) 

PLOP(IFW$DPW) 

PLND(IPW$DFW) 
PESC(IPW$DPW) 

P.hVE(IPW$DPW)' 



LWOC(IPW$DTC) 
LWEI (IPW$DTC) 



R14 



R2 



R3 
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JH08 



Register 1, on entry poinding to the 
JECL operation code, is set to point 
after the operation code. 

Register 3 is set up to contain the 
length of the remainder of the JECL 
statement minus one. 

Using registers 1 and 3 to control a 
translate and test instruction, a 
scan is made for the first parameter. 

If found, a branch is made to process 
this parameter > 

Otherwise, if no continuation punch 
is present, a branch is made to 
return to the calling routine > 

If a continuation punch is present, a 
link is made to scan the continuation 
line > 

On normal return, a branch is made to 
continue > 

On error return, a branch is made to 
return to the caller > 



j^JHlO 



JH8 



CCOO 



JH10 



JH80 



m 



R3 



Rl,R3 



<_• 
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IJH10 



I JH20 



( 



IJH30 



1JH40 



If the parameters are not omitted, a [ 
branch is made to scan the parameter 
found. > | JH20 

Otherwise, the last parameter switch 

in the TCB is set ON, and a branch 

is made to scan possible 

continuation. . . >| JH7 

Parameter registers and 1 for the 
IPW$SRJ routine are set up: 

Register is loaded with the address 
of the statement end. 

Register 1 already points to the 
parameter to be scanned. 

An IPW$SRJ call is issued to scan the 
parameter pointed to by register 1. 

On return, if the parameter examined 

is valid (indicated by a positive 

value in pointer register 0> f a 

branch is made to continue >|JH30 

Otherwise, register contents are 

converted to positive, a link is made 

to log message 1Q37I > | MSOO 

If the last parameter switch is on, 
indicating that statement scan has 
been completed, a branch is made to 
return to the calling routine >|JH7 

Otherwise, if the current statement 
is not a CTL statement, a branch is 
made to continue > | JH4 

If a CTL statement is being scanned, | 
only one parameter is permitted,, and 
the last parameter switch is 
therefore forced ON. 

Error pointer register is loaded 

with the operation code address 

and a link is made to issue message 

1Q37I . * > I MS 00 

Register 1 is loaded with the address 
of a possible continuation punch. 

If the statement scan turns out to 
have stopped on that position, a 

J branch is made to check for 

j continuation >j JH50 



LWPI(IPW$DTC) 



R0 



Rl 



IPW$SRJ 
Chart GA 



R0 



LWPI(IPW$DTC) 



R0 



Rl 
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| If the next parameter is indicated to| 
| be on a continuation line (comma | 

| branch is made as well >|JH50 

| Otherwise, register 1 is set to point| 
j one position after the delimiting | 
(comma, | 

| If the comma delimiting the parameter | 
| last checked was in column 71, a | 
(branch is made to check for | 
| continuation - > 1 JH6 


— T T , — T 

(Modified Data |Reg. (Calls 
| Fields (Usage j 

„ + ^ + 

1 |R1 | 




(Otherwise, a branch is made back to j 

j scan the next parameter >| JH20 




] JH50 


| If a continuation punch was given, j 
| a branch is made to check | 
| continuation • • • • • >| JH6 






(Otherwise, error pointer register ] 
j is loaded with the address of the | 
(comma in error, a link is made to f 
(issue message 1Q37I. •< • • . >|MS00 


1 |R0 | 
| (R14 } 




|A branch is made to return to the j 
(calling routine ♦ ... >|JH8 




| JH60 


(A link is made..., >|CC00 


1 l R3 f 




j On normal return, branch to scan the | 

j next parameter > J JH20 

(On error .return, a branch is made to | 

j return. ..* >| JH8 




JJH70 


J If no continuation punch is present, ] 
(a branch is made to bypass calling j 
jthe continuation routine >|JH8 






(Otherwise, a link is made to scan | 

| continuation >| CCOO 


1 ! R 3 1 


(JH80 


j On both normal and error return, a [ 
(branch is made >|JH8 

(Parameter switches in the TCB are | 
(reset, and control is passed back to | 
(the caller.. >| (R8) 


|LWPI(IPW$DTC) | 1 



v_y 



v..^/ 
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ICCOO 



C 



ICC05 



ICC10 



ICC20 



Continuation Check 



If 



This routine is entered when a 
continuation punch is found in the 
current record. The current record 
is written to the data file and the 
next record is requested from the 
physical reader. This- record, the 
continuation statement, is syntax 
checked and an error, if found, is 
flagged with error message 1Q37I. 
the 'last parameter' switch is on, 
and the continuation statement itself 
contains, a continuation punch, the 
continuation routine invokes itself. 

Otherwise, the first parameter on the 
continuation statement is searched. 
This parameter should start on one of 
columns 6 through 16 inclusively. A 
possible error return to the caller 
is made to an address four bytes past 
the normal return address. 

A normal record is indicated in the 
TCB. If current statement is not 
CTL, branch to get next record > 

If the current statement is not a RDR 
statement, branch to write the 
current record and get the next one > 

Otherwise, a link is made to get next 
record > 

A branch is made to handle the 
continuation line.. > 

A link is made to write record and 
read the next one > 

If the next record is not a JECL 
statement, branch to issue error 
message 1Q37I > 

If the last parameter switch is ON, 

branch to check continuation 

column > 

If column 5 is not blank, branch to 
issue error message 1Q37I. > 

If parameter starts on any of the 
columns 6 through 16, inclusively, 
return to caller > 

Otherwise, error pointer register 
is made to point to column 16. 

Branch to issue error messaqe 

1Q37I ~. > 



TCGP(IPW$DTC) 



CC05 



CC10 



WG30 



CC20 



WG10 



CC30 



CC50 



CC30 



(R3) 



RO 



CC40 
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CC30 



CC40 



CC50 



MS 00 



MS 02 

MS03 
MS05 



Error pointer register is made to j 
point to column 1. | 

I 
A link is made to message ( 

routine > |MS00 

I 
If no continuation punch is present, | 
error return >f (R3)+4 

I 
Otherwise , branch to check j 

continuation line > J CC00 

I 
If no continuation punch, normal J 
return to caller >( (R3) 

I 
Otherwise, branch to cheqk next | 
continuation line > | CCOO 



Message Routine 



This routine logs error message 
1Q37I, flagging invalid JECL 
information, or message 1Q90I, 
indicating RDR statement not allowed 
in the input stream. If message 
1Q37I must be issued, the entry point 
is MS00. If message 1Q90I must be 
issued, the entry point is MS05. On 
entry, register 6 is supposed to 
contain the address of the statement 
in error, and register contains the 
address of the column in error. 

Caller's registers are saved. 



I 



If the operation code is CTL„ branch | 
to.. . . .. . ... .. > | MS 03 

I 
If no queue has been reserved yet, | 
indicating that the RDR statement has) 
been encountered at job boundary | 
time, branch to. ... ... ............. >|MS02 

I 
Otherwise, set the current job in the] 
hold state, and branch to issue | 
message 1Q37I.... ...... .. >|MS03 

I 
Indicate the hold state for the next | 
job tp be allocated on the queue | 
file. | 

I 

Load the address of message 1Q37I | 
into register 8 and branch to >|MS10 

I 

The caller's registers are saved. | 

I 
Load the address of message 1Q90I | 
into register 8. | 



I 



IRQ 



QRDP(IPW$DQR) 



£.WER(IPW$DTC) j 



I 



|R8 



IR8 



JIPW$SAV 



I I 

I I 

I I 

IPW$SAV | 



I 
I 



I 



\^JJ 



'^y 
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IMS10 



( 



| MS 20 



IWG00 



IWG02 



1WG05 



The statement in error is prepared to 
be logged: 

The byte previous to the record in 
error is set up as a message length 
indicator using register 6 as a work 
register. 

The column number of the column in 
error is calculated in register 4. 

The address of the statement in error 
is stored in the message request 
word. 

The statement in error is now logged. 

The message is printed. 

If the current task is not an RJE 
task, a branch is made to return to 
caller • • . . > 

Otherwise, the address of the 
statement in error is loaded in 
register 1. 

Remote ID and columns 79 and 80 of 
the statement in error are loaded in 
register (low-order byte and 2 
high-order bytes , respectively. 

An IPW$RMS call is issued to print 
the statement in error at the remote 
terminal . 

Register 1 is loaded with the address 
of the message saved in register 8, 
the high-order bytes of register 
are cleared, and an IPW$RMS call is 
issued to print the message. 

Control is returned to the caller. 

Write Record, Get Next 



Set record information in record 
request word. 

Add record defined in record request 
word to the data file. 

Get record information from dummy 
JECL EOJ statement. 

Job boundary is indicated in the TCB. 

End of data record is indicated in 
the TCB. 



MS20 



TCMW(IPW$DTC) 



TCCC(IPW$DTC) 



TCJB(IPW$DTC) 
TCGP(IPW$DTC) 



R6 



R4 



Rl 



R0 



Rl 
R0 



R6,R7 



IPW$WTO 
Chart AD 
IPW$WTO 
Chart AD 



IPW$RMS 
Chart AD 



IPW$RMS 
Chart AD 

IPW$RET 



IPW$PDR 
Chart EA 



\ 

-4- 
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j Labels 


~T — p 

(Chart HB21: IPW$$LR - Logical Reader 

_ f , 

(Routine return register 4 is set to | 
(return to queue record format routine 

| skipped and a branch is made to, ... > 


WG20 


— r 

| Modified Data 
(Fields 

„ + 


— r 

1 Reg . 
(Usage 

-+ 

(R4 


-T 

(Calls 
-+ 


|WG10 


(If a flush condition is found f the 
(record is not written to the data | 
| file and a branch is made to > 


WG40 








|WG20 


(Data record address is stored in the 
|RRW in the TCB. | 




|TCRV(IPW$DTC) 






|WG30 


(Data record length is stored in the | 
fRRW. Data record is added to data 
(file through a IPW$PDR call. | 

j If no record has been inserted, a | 

| branch is made to obtain the next 

| record >| 

(Otherwise, the Record Inserted j 
(indication in the TCB is reset. 

(The pointer registers are restored to 
| point to the previous record. J 

|The IPW$GLR call for the next record | 
|is skipped and a branch is made to 
(test the previous record as if it had 
j just been obtained > 


WG4 
WG50 


(TCRL(IPW$DTC) 
|USCC(IPW$DTC) 


|R6,R7 


|IPW$PDR 
(Chart EA 


|WG40 


| The record length is copied into 
(parameter register 1. 






|R1 




|WG42 


|The next- data record is requested 
(through an IPW$GLR call. 

1 Record address is saved in register 
|6. 








| IPW$GLR 
( Chart HB 




| Record length is saved in register 7. 
1 Branch to •• > 


W&50 


|TCCC(IPW$DTC) 


|R7 
|R0,R1 




|WG45 


| Set up record request word. 






(Indicate: 












(job boundary, 

|end of data record, 

(unexpected job. 




|TCJB.(IPW$DTC) 
|TCGP(IPW$DTC) 
|LWUJ(IPW$DTC) 








| Set up return register 4 to return 
J to MCOO and add record to data file. 








; IPW$PDR 
(Chart EA 


|WG50 


| If stop condition present, branch to 
j detach > 

| If an EOD record was indicated, 

| branch to EO«J routine. > 


|EJ45 
|EJ00 

|ED00 










| Otherwise, if zero record length 
((unexpected EOF), branch to handle 
|end of data... > 


1 






v.,^ 
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-T 

|Reg. 

(Usage 

-+ 



I Labels 



c 



Chart HB22: IPW$$LR - Logical Reader 



Modified Data 
Fields 



ICalls 



If reading from a 3540 data file, 
branch to write the record and get 
the next one > 

If not EOF, and no user exit 
available, return to caller > 



If user exit available, but first 
character of current record- compares 
higher than '/',, and can therefore be 
neither JCL nor JECL statement to be 
processed by the user exit routine, a 
branch is made back to the caller.. > 

If the first character indicates a 
potential JCL or JECL statement, 
branch to the user exit routine.... > 



WG10 



(R4) 



(R4) 



UE00 



( 
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3540 DISKETTE 



CHART HC: IPW$$ER - 3540 DISKETTE READER (11 PARTS) 



/f X 



X_j>> 



Chart HC00: IPW$$ER - 3540 Diskette Reader, General Flow and Macro Calls Macro Calls 



IPW$$LR 



Logical Reader 



Functions 



IPW$$CP 



Command 
Processor 



Miscellaneous 


Module 


Macro 


Ref. 


Chart 


IPW$$OE 


IPWSOIF 


1 


GF 



Interfaces 



Module 


Macro 


Ref. 


Chart 


IPW$$NU 
IPW$$LW 


IPW$OLI 
IPW$PLR 


II 
III 


AC 
JC 



^ IPW$$ER - 3540 Diskette Reader 



iz 



Routine 



RE00 


Routine Entry 


OP00 


Open extent routine 


IP00 


Initialize physical data 


RD00 


Read data block 


DB00 


Deblock routine 


EX00 


Exit routine 


SR10 


Subroutines 



$1 



IPW$$LR 



Logical Reader 



Services 



SL 



Functions/ 
Interfaces 



Services 



B 
A 
C 
C,D 



IPW$$NU 


Macro 


Ref. 


Chart 


Task Management 


A 

B 
C 

D 


AA 
AC 
AD 


IPW$WFC 


Storage Management 


IPW$RSW 
IPW$RLW 


Message Service 


IPW$WTO 



w 



il 



IPW$$TR 



Terminator 
Routine 
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labels 



Chart HC01: IPW$$ER - 3540 Diskette Reader 



Modified Data 
Fields 



Reg. 
Usage 



Calls 



ERCS 
ERSD 



( 



RE00 



This routine is entered when the 
Logical Reader (IPW$$LR) encounters a 
* $$ RDR statement , or when a PSTART 
command is issued for the 3540 
piskette Reader, 

CSECT name. 

The first 16 bytes constitute the 
section descriptor: 



'ERCS 



V7M0' 



General Register Usage 



- 

1 - 

2 - 

3 - 

4 - 

5 - 

6 - 

7 - 

8 - 

9 - 

10 - 

11 - 

12 - 

13 - 

14 - 

15 - 



**** 

**** 
*** * 
**** 



Service work register 
Service work register 
Service work register 
Service work register 
Work register 
Work register 
Pointer to last CCW in 
string 
**** - Record counter per track 
IPW$DPW - Physical work space 
PRCS - Physical reader base 
register 

IPW$DPA - POWER/VS nucleus 
IPW$DTC - Task control block 
**** - Reserved for nucleus use 
IPW$DSV - Task save area 
**** - Subroutine linkage 
register 
**** - Subroutine base register 



Routine Entry 



Check if this routine is entered from 
the Logical Reader. If so, skip 
opening the interface to the Logical 
Reader and branch to > 

Save the parameter values which were 
passed in register 1 in register 6. 

Open the interface to the Loqical 
Reader routine. 

Reserve physical work space to hold 
3540 diskette information. 

Set up register 8 as base to the 
physical work space area. 

Save the real address of the physical 
work space. 



RE05 



R0 
Rl 
R2 
R3 
R4 
R5 
R6 

R7 

R8 
R9 

RIO 
Rll 
R12 
R13 
R14 

R15 



R6 



IPW$OLI 
Chart AC 

IPW$RSW 
Chart AC 



R8 



PERA(IPW$DPW) 
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r t 

| Labels (Chart HC02: IPW$$ER - 3540 Diskette Reader 

j. f T 

| | Insert 3 540 diskette information into| 
1 1 the physical work space: | 


t r 

(Modified Data (Reg. 
(Fields [Usage 

+ + 


_ T 

JCalls 

1 
-+ 

1 

! 


| | • File identification (from j 
| | registers 4 and 5) j 
| |« Device type indication (from | 
| | register 6) | 


|PEFI(IPW$DPW) ( 
|PEDI(IPW$DPW) ( 


i 
i 
i 
i 

i 


| J reader ] 
| | Bytes 2 and 3 : Programmer logical | 
| j unit 354 diskette reader j 
| ]• PSTART parameters (from register | 
1 1 7) | 


|PEPS(IPW$DPW) j 


i 

i 
i 
i 
i 
i 
i 


| | Byte 1: Number of diskettes to be | 
| | read | 
| | Byte 2: Volume sequence check [ 
j J indicator | 
| | Byte 3: Verify indicator | 




i 
i 
i 
i 
i 
i 

i 


j | Store the device type code in the | 
| (TCB. | 


|TCDT(IPW$DTC) | 


i 

i 

j 
i 


j (Load the address of the master record| 
J j register 3, | 


1 l^ 3 


i 

! 
1 

i 


1 | Clear the option FEED. | 


|PEOP(IPW$DPW) | 


1 

1 

| 


j j If the option FEED in the master | 

| frecord is not on, then branch to... >|RE05 




1 

1 

i 


J | Turn on the option FEED in the | 
1 | physical work space. | 


| PEOP(IPW$DPW) | 


l 
i 
1 

1 


|RE05 | Set the 3540 communication byte in | 
j (the TCB to X'02 f to indicate reading ) 
j | from 354 0. | 


JLWER(IPW$DTC) | 


\ 

I 

1 

1 
i 


| j Set the multivolume identification to | 
} IX'40' to indicate the first of . a | 
J | diskette sequence. | 


4PEMI(IPW$DPW) ] 


] 
1 
1 
J 

1 


1 | Set the open return code to X"40*. | 


i]PEOC(IPW$DPW) ] 


1 

1 


J (The following fields have an initial | 
J (value of binary zero set by the | 
I | reserve work space service: | 




i 
i 
1 
1 


J J • Extent lower limit I 
j | • Record length j 
j | • Next sector address | 
j j • Number of opened diskettes | 
j j • Volume sequence number | 


|PELO(IPW$DPW) J 
|PERL(IPW$DPW) | 
JPEED(IPW$DPW) j 
| PEOD(IPW$DPW) J 
JPESN(IPW$DPW) ] 


3 
1 
1 
1 
1 
] 



1 X JL X JL JL J 
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I Labels 



Chart HC02.1: IPW$$ER - 3540 Diskette Reader 



Modified Data 
Fields 



(Reg. 
jUsage 

4 



Calls 



IOP00 



Open Extent 



Open the first 3540 volume. 

Check the open return code: 

If open successful (PEOC=C , , ) f 
branch to * > 

If forced end of volume (PEOC-C'E'), 
branch to > 

Check the 3540 communication byte for 
a card reader with 3540. If not, 
branch to detach > 

Set the termination byte in the TCB 
to C'F' to indicate flush , and branch 
to f lush > 



OP10 



FC00 



EX30 



EX00 



1 



TCTT(IPW$DTC) j 



I 
1 



IPW$OEF 
Chart GF 
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T 1 

Calls 



Labels 



Chart HC03: IPW$$ER - 3540 Diskette Reader 



Modified Data 
Fields 



Reg. 
Usage 



,4" x 



OP10 



OP20 



OP30 



IPOO 



Check whether the extent contains any 
records. If so,, branch to process 
them. m ....... . > 

Check for more diskettes: 

If there are, branch to open the next 
extent * > 

If not, exit ^ > 

Set the seek address to the begin 
extent. 

If the begin extent does not start on 
a track boundary, branch to > 

Otherwise, decrease the track number 
by one. 

Initialize the pre-SEEK address to 
seek for record 25 on the next track. 

Using register 1 as a work register, 
the record number of the next sector 
address indicator is decremented by 
one. If the record number is zero, 
the cylinder number is decremented by 
one, and the record number is set to 
26. 

Initialize Physical Data Area 



Using registers 2 and 3 as work 
registers, the amount of storage is 
calculated for the physical data 
area, which must be large enough to 
contain the CCB, 2 8 CCWs and the data 
buffers for 26 diskette records. 

If the total space necessary is 
smaller than 2Q08 bytes, branch to 
reserve a single buffer space > 

Otherwise, reserve the first 
part of 2008 bytes. 

Save the CCB pointer in the physical 
work space. 

Using register 2 as a work register, 
calculate the displacement between 
the virtual and real addresses of the 
physical data area, and save it in 
t^e physical work space. 

The size of the second physical 
data buffer to be reserved is 
calculated in register 5 and divided 
by the record length to test if it 
contains an integral number of data 
records. 



OP20 

OP00 
FDOO 



OP30 



IP20 



PESK(IPW$DPW) 



PESK(IPW$DPW) 



PESO(IPW$DPW) 



PEED(IPW$DPW) 



Rl 



R2,R3 



H,,,...,^ 



IPW$RSW 
Chart AC 



PECU(IPW$DPW) 



PECD(IPW$DPW) 



R2 



R2,R4 

R5 
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(Labels 



( 



Chart HC04: IPW$$ER - 354 Diskette Reader 



Modified Data 
Fields 



Reg. 
Usage 



Calls 



( 



I 



IIP20 



I 



I IP 20 



I 

I 

IJP30 



IIP4 



If the remainder in register 4 is 
zero, the data buffers to be 
allocated do not cross page 
boundaries, and a branch is made to > 

Otherwise, increase the number in 
register 1 by one to allocate one 
buffer more in the second data area. 

The number of data buffers to be 
allocated in the second data area is 
saved in the physical work Space. 

Calculate the total space required 
for the ^second data area in register 
5 (number of buffers multiplied by 
record length) . 

The result is rounded off to the next 
multiple of 32 and copied into 
register 1. 

The space requested in register 
1 is reserved. (This space can be 
used as a second data area in case 
the total space is greater than 200 8 
bytes, or it can be used as a single 
data area in case the total space is 
smaller than 2 008 bytes.) 

If the space is to be used as a 
second data area, branch to > 



Otherwise, save the virtual address 
|,of the space to be used as a single 
data area in the physical work space. 

Calculate the displacement between 
the virtual and real addresses and 
save it in the. physical work space. 

Branch to > 

Save the real and virtual 

addresses of the second data area in 

the physical work space. 

Establish addressability for the CCB 
in register 1 to initialize the first 
16 bytes of the physical data area as 
a CCB. 

Set the first communication byte to 
X f 08* to indicate wait for channel 
end and return on data check. 

Move the programmer logical unit to 
the CCB. 

Set the EXCP real indication in the 
CCB. 



IP10 



Rl 



PENN(IPW$DPW) 



R4,R5 



R1,R5 



IPW$RSW 
Chart AC 



IP30 



IP40 



PECV(IPW$DPW) 



PECD(IPW$DPW) 



PERN(IPW$DPW) 
PEVN(IPW$DPW) 



Rl 



£BC1(IPW$DCB) 

CBLC(IPW$DCB) 
CBLC(IPW$DCB) 
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Labels 



Chart HC05: IPW$$ER - 3540 Diskette Reader 



Modified Data 
Fields 



[Reg. 
(Usage 

-+ 



I Calls 



IP50 



IP60 



RD00 



Store the real address of the first 
CCW in the CCB . 

Load the address of the first CCW 
into register 3 to establish CCW 
addressability . 

Move the SEEK CCW. 

Store the seek address in the CCW. 

Calculate the real address of the 
first data buffer in register 6, and 
the virtual address in register 4. 

Save the real and virtual 

addresses of the first data buffer in 

the physical work space. 

Load the record length into register 
7. 

Load the number of buffers to be 
allocated in a possible second data 
area in register 1. 

Calculate the number of buffers to be 
allocated in the first data area (or 
possible single data area) in 
register 5. 

Move the read CCW image, the 
real buffer address and the 
record length for all CCW entries. 

Initialize the pre- SEEK CCW to 
perform seek overlap to record 
25 on the next track as the last CCW 
in the string. 

Load the real address of the pre-SEEK 
CCW into register 6. 

Set the record counter to the first 
record from the extent in register 7. 

Read Data Block 



Calculate the number of records read 
on the track in register 1. 

If the current track has not been 
completely read, or if the first 
track of the extent has to be read, 
branch to > 

Otherwise, reset the record counter 
in register 7 and the record number 
in the physical work space to one, 
and branch to > 



RD10 



RD20 



CBCA(IPW$DCB) 



CWCC(IPW$DCW) 
CWDA(IPW$DCW) 



PEDA(XPW$DPW) 
PEDV(IPW$DPW) 



CWDS(IPW$DCW) 
CWDA(IPW$DCW) 
CWCT(IPW$DCW) 

CWCC(IPW$DCW) 
CWDA(IPW$DCW) 
CWFL(IPW$DCW) 



PESK(IPW$DPW) 



fR3 



J R4 , R6 



IR7 



|R1 



|R5 



IR6 



IR7 



JR1 



JR7 

I 

I 

I 
.1 
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( 



r 

| Labels 


_ T 

| Chart HC06: IPW$$ER - 3540 Diskette Reader 


T 

(Modified Data 
(Fields 


— r t 

|Reg. (Calls 
] Usage | 

. ± x _ 


|RD10 


T T 

| Store the current record number in | 
| the pnysical work space. | 

| If a short string has to be generated | 
] to read the remaining record on the | 
| current track, branch to >|RD3 5 


t 

|PESK(IPW$DPW) 


T T 


|RD20 


| Increment the track number by one to | 

| If the pre-SEEK address equals the | 

| last track of the extent, branch to >|RD30 

| Otherwise, update the track number in| 
|the pre-SEEK address to perform seek | 
| overlap to the next track , and branch | 
|to >|RD4 


|PESK(IPW$DPW) 




|RD30 


(Set the pre-SEEK address equal to the| 
(current SEEK address. | 

| If a complete track has to be read, | 

| branch to* * > | RD4 






|RD35 


(Otherwise, generate a short CCW | 
| string to read the remaining records. | 




(RD40 


| Set up CCB addressability in register | 
|1- 1 




|R1 | 




|Save the real address of the first | 
|CCW in register 2. | 




|R2 | 




| Execute the channel program via SVC | 
|and wait for completion. | 




| | IPW$WFC 
| (Chart AA 




| Restore the address of the first CCW. | 


|CBCA(IPW$DCB) 






J Load the address after the seek CCW j 
| into register 2 , and the address of | 
(the last executed CCW into register | 
1 3. | 




]R2,R3 ] 




| Load the address of the first | 
|data buffer into register 0, and the | 
| record length into register 1. ] 
[Calculate the number of buffers | 
| allocated in the first data area in | 
] register 4, and branch to pass the ] 
(records to the logical reader >|DB20 




1R0,R1, ] 
]R4 ] 




(Deblock Routine I 






|DBOO 


J Load the 3540 parameters into j 
] registers and 1. | 


1 R0 , Rl ] 




] Update the record pointer in register] 
]0. j 




]R0 1 




(If the record belongs to the first or| 
[single data area, branch to >|DB10 







-J- , 
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] Modified Data jReg. | Calls 
(Fields | Usage | 



J Labels 



h 



Chart HC07: IPW$$ER - 3540 Diskette Reader 



I 

{DBIO 

I 



|DB20 
I 



JDP30 



I 

|DB40 



|DB50 
L — . 



Otherwise, reload register with the 
address of the first record in the 
second data area. 

Update the CCW pointer in register 2. 

Update the record counter in register 
7 by one. 

Check if the last record has already 
been deblocked. If not f branch to 
pass a the record to the logical 
reader . . > 

If I/O ends with the normal pre- SEEK 
CCW, branch to read a new block. ... > 

If the string is not broken at the 
inserted pre-SEEK CCW # branch to 
check for a special record . . > 

Branch and link to reset the pre-SEEK 
CCW to a read CCW > 



Branch to read a new block. 



• > 



Update the record counter (register 
7). 

Branch and link to reset a possible 
pre-SEEK CCW to a read CCW > 

Check if the last cylinder is being 
read from. If not, branch to read 
the next block > 

Check if the last record has been 
reached: 

If so, branch to open the next 
extent. > 

Otherwise, read the next block > 

Check for data file processing. If 
so , branch to . . . . > 

Check the record length (register 1) , 
and if it is not 81, branch to > 

Decrement the record length by one to 
make it 80. 

Increment the record pointer 
(register 0) by one. 

Branch to process in SYSIN mode.... > 



[Indicate data mode in the TCB. 



DB40 
RD00 

DB30 

SR20 
RD00 



SR20 



RD00 



DB60 
RDOO 

DB50 

DB55 



DB55 



IRO 



|R2 
I 

! 

|R7 



\Rlk 



IR7 



(Rl 



IRQ 



|TCGP(IPW$DTC) 



I 
t 



X V,^ 7 
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Reg, |Calls 

Usage | 



I Labels 



( 



Chart HC08: IPW$$ER - 3540 Diskette Reader 



| Modified Data 
| Fields 
- + 



IDB55 



IDB60 



IDB70 



IFD00 



C 



IEX00 



IEX20 



\^y 



Branch and link to pass the record to 
the logical reader > 

If the last record on the last 
cylinder has not yet been passed to 
the logical reader, branch to 
continue processing . . > 

Branch and link to reset a possible 
inserted pre-SEEK CCW to a read CCW > 

Release the first or only part of 
physical data buffer space. 

If a second data area has not been 
reserved, branch to clear the 
physical work space. .... * > 

Release the second physical data 
area. 

Set the buffer number to zero. 

Check if there is a continuation 
diskette. If so, branch to open the 
next extent > 

Exit Routine 



If the option FEED in the PWS is not 
on , branch to ....... .....* > 

Branch and link to feed the next 
diskette . , > 

Check for data file processing, and 
if so, branch to handle end of data > 

Check if the SYSIN file is linked to 
a card reader, and if so, branch to 
prepare for resetting the linkage.. > 

Check for job boundary, and if so, do 
not insert the EOF record and branch 
to * > 

Load the address of the EOJ record 
into register and the length into 
register 1. 

Branch and link to pass the EOJ 
record to the logical reader. .*.... > 

Set the disposition indicator in the 
queue record to C'H" to indicate job 
in HOLD state. 

Issue message ' 1Q89I cuu EOJ ADDED 
jobname jobn umber' 

Branch and link to send the unit 
exception signal to the logical 
reader ............................. > 



SR10 



DB00 



SR20 



DB70 



OP00 



EX 00 



SR50 



EX4Q 



EX60 



EX20 



SR10 



SR10 



R5 



R5 



I 

I 
|PENN(IPW$DPW) 



|QRDP(IPW$DQR) 






R5 
JL 



I 

I IPW$RLW 
| Chart AC 
I 
I 



j IPW$RLW 
I Chart AC 



R0 ( ,R1 I 



R5 



I 

| IPW$WTO 
| Chart AD 
I 
I 
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|Labels 


j Chart HC09: IPW$$ER - 354 Diskette Reader 
j. «. _ _. 


— 1 

|Modified Data 
| Fields 

X - — - 


— T 

|Reg. 
| Usage 


_ T 1 

(Calls | 

4- —1 


|EX30 


T T 

| Set the stop condition in the TCB. | 

(Exit to the terminator routine | 
| (IPW$$TR), which results in a detach | 
1 of the current 3540 diskette task. | 


t 

|TCTT(IPW$DTC) 


T 


T 1 

|IPW$$TR | 
J Chart LC ( 


|EX40 


| Indicate last data record in the TCB. | 

| Load the address of a dummy end of | 
1 data record into register 0, and the | 
(length into register 1. | 

j Branch and link to pass the end of | 
jdata record to the logical reader.. >|SR10 


)TCGP(IPW$DTC) 


|R0,R1 
JR5 




JEX60 


(Reset the variable fields of the 3540 | 
| part of the physical work space to j 
(binary zeros. | 

| Branch and link to send the unit | 
| exception signal to the logical | 
| reader . .,. >|SR10 

jThe logical reader now resets the | 
| linkage to the card reader and | 
] resumes reading from the card reader. | 

| Subroutines I 


j PEFI(IPW$DPW) 


JR5 


j IPW$RLW | 
[Chart AC | 


|SR10 


jPass the record to the logical | 
| reader. | 


i]IPW$PLR | 
] Chart JC | 




j Return to caller via link register 5. | 




|R5 




|SR20 


j Load the address of the forced | 
| pre- SEEK CCW into register 2. | 

| If there is no forced pre-SEEK CCW, | 

1 branch to return. ••••••••.••••••••• > | SR2 5 




|R2 

|R2 






(Make the address virtual and use it | 
j as a base register. | 






|Move the read CCW saved in the | 
[physical work space back into the ccwf 
| string. | 


|CWDS(IPW$DCW) 








| Clear the forced pre-SEEK CCW address | 
jin the physical work space. | 


|PEBS(IPW$DPW) 






|SR25 


| Return to caller via link register 4.| 




|R4 





^...^ 



v.y 



JL X X X X J 



4'"^ 

^ 
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I Labels 



Chart HC10: IPW$$ER - 3540 Diskette Reader 



Modified Data 
Fields 



Reg. 
Usage 



Calls 



ISR40 



ISR45 



( 



ISK50 



Subroutine to insert a pre-SEEK CCW 



in the middle of the CCW string to 



read part of a track . 



If a short string has to be executed 
which is not on the last track,, 
branch to > 

Otherwise, change the pre- SEEK 
address to the current seek address, 
and calculate the number of remaining 
records to be read in register 1, 
depending on the last record of the 
extent. 

Calculate the address of the read CCW 
to be changed in register 3, and 
establish CCW addressability. 

Save the read CCW image in the 
physical work space. 

Point register 2 to the address of 
the pre- SEEK CCW. 

Move the pre- SEEK CCW image over the 
read CCW to be changed. 

Save the real address of the inserted 
pre- SEEK CCW in the physical work 
space. 

Return to caller via link register 
14. 

Subroutine to build a CCB with CCW to 



FEED and SENSE 



Calculate length for the CCB and two 
CCW's in register one. 

Reserve work space address from work 
space in PWS. 

Calculate the displacement (virtual 
address and real address) . 

Build the CCB. 

Build the CCW FEED. 

Build the CCW SENSE. 

Execute channel program. 

Wait lor operation to complete. 

Release work space. 

Return to caller. 



SR4 5 



PESO(IPW$DPW) 



PEDW(1PW$DPW) 

CWCC(IPW$DPW) 
P.ELS(1PW$DPW) 



PhCV(IPW$DPW) 



Rl 



R3 



R2 



R14 



Rl 



K2 



IPW$RSW 



SVCO 
IPW$WFC 

IPW$i<3.Vv 
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WRITER ROUTINES 



CHART JA: IPW$$PL -' PHYSICAL LIST (8 PARTS) 



\ ,x 



Chart JAOO: IPW$$PL - Physical List, General Flow and Macro Calls 



ipw$$cp 



Command Processor 



V 



IPW$$NU 



Task Selection 
(Attach the task) 



Services 



Module 


Macro 


Ref. 


Chart 


IPW$$NU 
IPW$$LR 


IPW$OLI 
IPW$GLR 


I 
II 


AC 
HB 




Module 


Macro 


Ref. 


Chart 


IPW$$AS 


IPW$IAS 


... 


GH 



=o 



IPW$$PL 


Physical List 




Label 


Routine 


Functions/ 
Interfaces 


Services 


PLCS 


Function Entry 


1,11,111 


B 


PL08 


End of Job Routine 






PLAO 


I/O Error Handler 






PL10 


Printer Command Code check 






PL18 


Initialize CCWs and Data 


II 


C 


PL40 


Print block of data 




A 


PL50 


Print block of data 
(double buffering) 










' 


1 















IPW$$NU 


Macro 


Ref. 


Chart 


Task Management 


A 

B 
C 


AA 
AC 


IPWSWFC 


Storage Management 


IPW$RSW 
IPW$RLW 



x y 



IPW$$NU 



Task Selection 
(Detach the task) 
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Labels 



Chart JA01: IPW$$PL - Physical List 



Modified Data 
Fields 



Reg. 
Usage 



Calls 



PLDS 



( 



PL02 



The first 16 bytes constitute the 
section descriptor: 



'PLCS 



V10M1 



On entry the following register 
contents are relevant: 



9 
10 
11 
13 

1 



Section base register 
address of permanent area 
task control block 
save area list task 
device information 



byte 




number of buffers 
'01 ' one print buffer 
'02' two print buffer 
1 F2' two print buffer 
and two data buffers 


byte 1 


- 


device type 


byte 2- 


■3 - 


programmer logical 
unit number 


Function Ent 


ry 





The physical list routine is entered 
after the command processor has 
initialized a list task control block 
and printer device information 
(passed in parameter register 1) 
whenever a P START command is given 
for a list task. 

The entry parameters in register 1 
are saved in register 6. 

jThe interface with the logical writer 
is opened through an IPW$OLI call. 

Storage for the 3800 TCB extension 
area is reserved when the printer is 
a 3800. 
The address is saved in the TCB. 

The first data record is requested 
from the logical writer through an 
IPW$GLR call. ........... > 

Register 7 is loaded with the record 
address. If this is zero, indicating 
that no record was available, the 
IPW$GLR call is reissued through a 
branch to... > 

Physical work space is reserved 
through an IPW$RSW call, to store the 
device- dependent printer data and, of 
printer CCB, CCWs, and data records 
to be printed by this list task. 64 
bytes of work space are requested. 

Physical work space is made 
addressable through register 8. 



IPW$DPA 
IPW$DTC 
IPW$DSV 



R9 

R10 

Rll 

R12 

Rl 



R6 



IPW$0LI 
Chart AC 

IPW$RSW 
Chart: AC 



TC3E(IPW$DTC) 



PL30 



R7 



PL02 



IPW$RSW 

Chart AC 



IPW$DPW 



R8 
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r T — k . 

JLabels jChart JA02: IPW$$PL - Physical List 



| Modified Data JReg. 
Fields | Usage 



-f- 



Calls 



PL05 



| Device dependent information is 
stored. 

Register 5 is loaded with the number 
of buffers. 

PDA (Physical Data Area) is now 
reserved through an IPW$RSW call, for 
use as CCB, CCWs and data buffer. 

The appropriate PDA size is obtained 
from the permanent area. 

Real address of PDA space is §aved in 
register 2. 

The virtual and real addresses of the 
CCB (first 16 bytes of the PDA) are 
saved . in the PWS . 
Branch to continue > 

The second PDA is reserved for CCB, 
related CCWs and data buffer. 
The virtual and real addresses of the 
CCB (first 16 bytes of the PDA) are 
saved in the PWS. 

Now the first 16 bytes of the buffer 
space are set up as a CCB, 
indicating: 

• Wait for device end 

• Accept unrecoverable I/O error 

• Command chain retry 

• Printer logical unit number 

• EXCP real. 

The real address of the first CCW, to 
follow immediately behind the CCB, is 
loaded in register 6 and stored in 
the CCB and in the PWS. 



PL06 



PWDI(IPW$DPW) 



BLBF(IPW$DPA) 



PBV1 (IPW$DPW) 
PBR1 (IPW$DPW) 



PBV2(IPW$DPW) 
PBR2 (IPW$DPW) 



|CBC1(IPW$DCB) 
|CBC1(IPW$DCB) 
|CBC2(IPW$DCB) 
|CBLC(IPW$DCB) 
|CBLC(IPW$DCB) 

I 

|CBCA(IPW$DCB) 
|PWCA(IPW$DPW) 
I 

I 

-X 



R5 



R2 



R1,R2 



R6 



IPW$RSW 
Chart AC 



IPW$RSW 
Chart: AC 



4 \ 

( 'A 
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Labels 



Chart JA02.1: IPW$$PL - Physical List 



Modified Data 
Fields 



Reg. 
Usage 



Calls 



C 



Register 6, to be used to address the 
CCW when initializing the CCW chain, 
is loaded with the address of the 
first CCW. 

This first CCW is now initialized as 
a NOP CCW, and the CCW data address 
is initialized with the real address 
of the end of the PDA. 

If double buffering was specified in 
the PSTART command, branch to reserve 
and initialize the second PDA. . . . . . > 

Register 5 is now set up with the 
real address of the end of the 
buffer space, which is then stored 
in the PWS. 

The appropriate PDA size is obtained 
from the permanent area. 

Register 5 is now set up with the 
virtual address of the end of the 
buffer space, which is then stored in 
the PWS. 

The address of the first record is 
saved in register 6. 

Register 7 is set up to contain the 
address of the proper printer command 
check table through a translate and 
test instruction executed on the 
device type byte, thus obtaining a 
displacement value in register 2. 
That value, multiplied with the table 
entry length, will yield the proper 
displacement in bytes in register 3. 
Using this value, register 7 is then 
loaded with the appropriate table 
address. 

Now, the record address is reloaded 
in register 3. 

Register 1 is loaded with the 
address of the first PDA and register 
6 is reestablished to point to the 
first CCW. 

If this is not a 3800 printer, branch 
to > 

Otherwise, a IPW$IAS TYPE=ATTACH 
request is issued to attach the 
DOS/VS subtask. 

Branch to continue > 



R6 



CWDA(1PW$DCW) 



PL 05 



R5 



PWDA(IPW$DPW) 



BLBB(IPW$DPA) 



PWDV(IPWfDPW) 



R5 



R6 



R2,R7 



R3,R7 



R3 



R1 
R6 



PL10 



IPW$$AS 
Chart : 



PL10 



UU1 
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Labels 


Chart JA02.1: IPW$$PL - Physical List 


Modified Data 
Fields 


Reg. 
Usage 


1 

Calls 


r i 


|. — _ — — — — — — — , -1 — —————— — -- 

End of job processing 

At end of job, the work spaces are 
released and return is made to the 
logical writer to obtain the next job. 


— i 


}.— ————————_«.———_— .j 




mmm 


PL08 


Register 1 is loaded with the address 
of the first PDA and the PDA is 
released. 






R1 


IPW$RLW 
Chart : AC 




If a second PDA exists, it is 
released too. 






R1 


IPW$RLW 


PL08A 
PL 09 


If printer being used is a 3800, a 
request to detach the DOS/VS subtask 
is issued (IPW$IAS TYPE=DETACH) . 

The following device dependent 
information is saved in register 6: 

• number of buffers being used 

• device type 

• programmer logical unit number 






R0 
R6 


IPW$$AS 
Chart : 
GH01 




Register 1 is loaded with the PWS 
address and the PWS is released. 






R1 


IPW$RLW 
Chart : AC 




Indication is set; PWS released. 






R8 






Branch to continue > 


PL02 








Abnormal condition handler 


This routine is entered whenever an 
unrecoverable I/O error has been 
detected by DOS/VS. 


PLAO 


Prepare reply area. Issue message 
1Q61D and wait for reply. 




PWRA(IPW$DPW) 
PWML(IPW$DPW) 


R5,R6 


IPW$WTR 
Chart AD 


PLA2 


If reply is ' C, branch to > 


PLA8 

PL44 

PL54 
PLAO 








If reply is 'T 1 and single buffering 
is being used, branch to > 


If reply is 'I* and double buffering 
is being used, branch to > 


If reply is not i R l , branch to..... > 




If a backup count is specified, 
branch to • > 


PLBO 
PLCO 




R14 




Branch to count skips to channel one 
not yet printed > 




Set up for restart number of pages 
+ 1. 

If single buffering is being used, 
branch to > 




TCRS(IPW$DTC) 


R5 




PLA6 


PL48 
PL66 


J 


R1 ,R2, 

R14 


. - 1 ...■■— — 


Clear print buffers. Branch to.... > 



x.„ 



V y 
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C 



( 



Labels 


Chart JA02.1: IPW$$PL - Physical List 


Modified Data 
Fields 


Reg. 
Usage 


Calls 




Indicate new start. 




PWVE(IPW$DPW) 








Branch to get next record > 


PL26 








PL A 8 
PLBO 


Set termination byte to 'S' (Stop). 
Branch to termination routine. 

Test if reply is numeric (up to six 
digits). If not, branch to > 


PLAO 


TCTT(1PW$DTC) 


R2 

R1 ,R2 


IPW$$TR 
Chart LC 




Convert reply to binary and set up 
for restart number of pages + 1 . 




TCRS(IPW$DTC) 


R1 ,R2, 
R5 






Branch to count number of skip to 
channel ones not yet printed > 


PLCO 




R14 






Add number of skip to channel ones 
not yet printed to number of pages to 
go back (specified by operator) . 
Branch to > 


PLA6 


TCRS(IPW$DTC) 


R5,R6 




Page count subroutine 






This subroutine counts all skip to 
channel ones in the print buffer (s), 
which are not yet printed. 










PLCO 


Calculate last executed CCW in the 
active print buffer. 






R5,R6 




PLC2 


(Note: NOP-CCW without chain-flag 
stops CCW-chain.) 








R5,R6 




The remaining CCW-chain is scanned 
for skip to channel one operation 
code. If so, branch to > 


PLC 4 
PLC2 




R6 




Otherwise, address next CCW in the 
chain and loop through > 




PLC4 


Add 1 to the skip to channel one 
count. 










PLC 6 


Address next CCW in chain and 

branch to > 


PLC 2 








If double buffering is not being 
used, return is made to the caller. > 


R14 


PLC 8 


The first CCW in the other buffer is 
addressed. 








R6 


PLD2 


The CCW chain is scanned for skip to 
channel ones. If found, the page 
count is increased by 1 and the next 
CCW is addressed. 








R6 
R5 





Return to the caller > 









R14 




L 
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Labels 



Chart JA03: IPW$$PL - Physical List 



Modified Data 
Fields 



Reg. 
Usage 



Calls 



PL10 



PL12 



PL14 



PL15 



Command Code Check Routine 



(PL25 



PL18 



PL12 



PL18 



PL 2 5 



The logical writer has passed the 
printer command code posted in the 
list task control block. This 
command code is examined using the 
translate and test table PLCT: 

If command code invalid, branch to 
ignore command > 

If command code is valid for any 
printer, branch to continue handling 
record > 

If command code not only valid for 1 
type of printer, branch to continue 
command code check ................. > 

If same device as during execution, 

branch to continue handling 

record . . > 

If not valid for this particular 
printer, branch to ignore > 

Otherwise, the proper branch index is 
loaded from the device block (pointed 
to by register 7) into register 2, 
and branch into the following branch 
table. 

Q: Invalid, branch to ignore 

command > 

4: Valid, branch to handle 

record. > 

8: Branch to empty buffer first.. > 
c: Branch to perform FCB load.... > 
1 : Branch to perform printer 

setup * > 

A link is made to print PDA........ > 

If the FCB to be loaded is already 

loaded, branch to... > 

Save the new FCB phase name. 

If double buffering, branch to wait 

for the completion of the last I/O. > 

Convert logical unit number from CCB 
into LFCB macro expansion. 



Wait for free LTA. 

Call $$BATTF0 to load FCB buffer. 

i 
If load FCB successful, branch to.. >JPL26 

i 
Otherwise, give LFCB error message. | 

I 
Indicate stop task, and branch to.. >|PL26 



PL26 

PL18 
PL16 
PL15 

PL32 

PL4 

PL26 
PL50 



LWFB(IPW$DTC) 
PWOT(IPW$DPW) 



R2 



V 



TCTT(IPW$DTC) 



R15 



IPW$WT0 
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Labels 



Chart JA04: IPW$$PL - Physical List 



Modified Data 
Fields 



Reg. 
Usage 



Calls 



PL16 



PL18 



( 



IPL20 



A link is made to print PDA > 

Branch to continue record 

handling > 

Initialize CCWs and Buffer 



This routine calculates the remaining, 
PDA space and checks if it can 
contain the data record and two 
accompanying CCWs* If so, the record 
and CCWs are moved into the PDA and 
an IPW$GLR call is issued to logical 
writer to get the next data record. 
The CCW string is started right 
behind the CCB at the beginning of 
the data buffer space and the data 
records are chained backwards in the 
PDA, starting at the end of the PDA. 
This procedure is followed to 
optimize the use of PDA space,, since 
the variable length list records 
prevent any calculation of a data 
record start address if data records 
are chained forward normally in the 
PDA. If insufficient PDA is 
available, the data buffer is emptied 
first by writing the data records to 
the printer. 

Register 1 is loaded with the address 
of the next CCW to be built. 

Register 2 is loaded with the address 
of the end c-f the available buffer 
space. 

The remaining PDA space is calculated 
by subtracting register 1 from 
register 2. 

If remaining space is zero or more, a 
branch is made to attempt moving of 
CCW and data record > 

Otherwise, a link is made to empty 
the PDA > 

On return, a branch is made to build 

CCW and move data record to the 

PDA > 

If the record to be moved fits in the 
remaining PDA space, a branch is made 
to build CCW and move data record to 
the PDA > 

Otherwise, a link is made to empty 
the PDA > 



PL4 



PL18 



R14 



Rl 



R2 



R1,R2 



PL20 



PL40 



PL22 



PL22 



PL40 



C 
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Labels 


r ,__ 1 

Chart JA05: IPW$$PL - Physical List 


r 1 

Modified Data 
Fields 


. n 

Reg. 
Usage 


r 1 

Calls 


PL21 


When the device is a 3800 and the 
CCW represents 'load forms control 
buffer 1 , a branch is made to update 
the PUB2 area, signalling the fact 
that the FCB now loaded on the 
printer is unknown > 


PL90 




R14 




PL22 


The command code, contained in the 
high-order byte of register 3, is 
stored in the new CCW. 


: 


CWCC(IPW$DCW) 








The real data address , now pointing 
to the end of the available data 
buffer space, is loaded in register 
2 , the record length contained in 
register 4 is subtracted,, and the 
updated real data address is stored 
back into the CCW. 




CWDA(IPW$DCW) 


R2 






The CCW flags are initialized to 
indicate command chaining and 
suppress incorrect length indication. 




CWFL(IPW$DCW) 








Register 6 is set to point to the 
next CCW, which is now made the NOP 
CCW terminating string, while its 
data address is made to point to the 
end of the available data buffer 
space after moving the current data 
record. 




CWDA(IPW$DCW) 


R6 






Register 5 is made to point to the 
target address of the current data 
record in the PDA, by subtracting the 
record length, as contained in 
register 4, from the address of the 
end of available buffer space. 






R5 : 






If the record length is not more than 
256 bytes, a branch is made to move 
the record with a normal MVC 
instruction, subject of an EXECUTE 
instruction > 


PL24 










Otherwise, registers 2, 1, and are 
set up as from-address, to-length and 
to-address , respectively, to be used 
as tne operands of the MVCL 
instruction that moves the data 
record. 






R2 , Rl 

RO | 






After moving the record to the PDA, a 
[branch is made to obtain the next 
record from the logical writer > 


PL2A 








PL24 


Register 4 is decremented by one to 
| contain the record length in machine 

format and the record is moved using 
|an EXECUTE instruction. 




• 


R4 





V. 



.S 



4" « 
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Labels 


r 

Chart JA05.1: IPW$$PL - Physical List 


—————— — — — — — i 

Modified Data 
Fields 


— — — — — — 

Reg. 
Usage 


Calls 


PL2A 

PL25 

I 

I 
I 


If the CCW operation code was a clear 
printer X'87', a branch is made to 
empty the print buffer(s). 

If double buffering, branch to wait 
for the completion of the last I/O. > 

(This is necessary because the double 
print buffer processing routine does 
not wait for the completion of the 
I/O.) 

Check if the last processed data 
record is the last record in the data 
buffer. If not so, or if double 
buffering is being used, or if the 
PDA is empty, branch to > 


PL50 
1 

IPT.26 


PWOT(IPW$DPW) R14 

Rl | 

J. X J 


i 

1 

1 

1 

1 
i_ . „J 


1 I 
Load the CCB address into register l f | 
and execute the channel program via | 
SVC 0. | 

. . -L 



( 






444.1 






\ y 
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r 1 

Labels 


r 1 

Chart JA06: IPW$$PL - Physical List 


r 

Modified Data 
Fields 


r 1 

Reg. 
Usage 

L J 


r 1 

Calls 


r — H 


. — — _ « — — T 

Request the next record from the 
logical writer •••••• ••••• > 


r i 
PL30 




i 1 


r i 


. 


Wait for I/O completion > 


PL41 




R14 | 




PL26 


Branch to > 


PL27 








The next data record is requested 
from the logical writer through an 
IPW$GLR call. 


PL27 ; 


If a record is available , a branch is 
made to process the new record > 


PL10 










If a zero address was passed, 
indicating that no record is 
available, a link is made to print 
the PDA > 


PL4 




R14 






If single buffering is being used, 
branch to End of Job routine > 


PL08 










Set wait request, and branch to wait 
for the completion of the previous 
issued I/O > 


PL50 


PWOT(IPW$DPW) 


R14 




PL30 


Branch to continue > 


P108 






IPW$GLR 


Request the next record from the 
logical writer. 




Save record address and length, 
respectively, in register 3 and 
register 4, and return to caller. 






R2 
R3,R4 






SETPRT request handler 












This routine is entered whenever a 
SETPRT request (signalled by a dummy 
CCW code of ' FD') is encountered for 
a 3800 printer. 










PL32 


A branch is made to empty the print 
buffer > 


PL40 
PL50 


PWOT(IPW$DPW) 


RE 
RE 




If double buffering is being used, a 
wait request is issued by branching 
to > 


(This is necessary because the double 
print buffer processing routine does 
not wait for the completion of the 
I/O.) 


PL34 


When the DUMP/TRACE option has been 
specified in the SETPRT parameter 
list, SYSLST is assigned to the same 
printer being used. 




_ 




IPW$ULP 
Chart : GC 



( 



c 
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Labels 



Chart JA07: IPW$$PL - Physical List 



Modified Data 
Fields 



Reg. 
Usage 



Calls 






PL36 



PL37 



PL38 



If SYSLST is already assigned, 
message f 1QA6I f is written. 

The dump/trace flag is turned off. 



Storage for the service request block 
(SRB) is acquired. 
The SRB is formatted: 

• SETPRT request 

• address of SETPRT parameter list 

The 3800 TCB extension area is made 
addressable using register 2 as base. 

The proper programmer logical unit 
is inserted in the SETPRT parameter 
list. 

The actual copy group index is 
inserted in the parameter list. 

The operator message suppress flag is 
set. 

If setup is requested, branch to... > 

Otherwise, check if the new SETPRT 
request matches the previous request. 
If so, skip setup processing. 

Branch to > 

Copy the SETPRT parameter list into 
the TCB extension area. 

The service request block is passed 
to asynchronous service for pro- 
cessing by means of the IPW$IAS 
TYPE=SERVICE macro instruction. 

Turn off flags for FCB verification, 
mark form, and offset stacking. 



The service request block is released 
and returned to the storage pool. 

When the dump/ trace option was 
specified, SYSLST is unassigned by 
invoking the appropriate function. 



Branch to continue. 
Print Routine 



This routine handles the actual 
printing of list records, as well as 
all resulting normal and error I/O 
conditions. 



PL37 



PL38 



PL26 



SPLFLAG2 

(IPW$DTE) 



SRBREQ 

(IPW$DSR) 
SRBPARM 



SPPLUSYS 



SPPCINDX 



SPLFLAG1 

(IPW$DTE) 



IPW$WT0 



IPW$RSW 
Chart: AC 



R2 



V 



SPLLIST 

(IPW$DTE) 



IPW$$AS 
Chart ?? 



SPLFLAG2 
SPLFLAG1 

(IPW$$TE) 



IPW$RLW 



IPW$ULP 
Chart: GC 



f 
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PL40 


On entry, register 5, supposed to 
point to the end of the free buffer 
space, is compared to the virtual end 
of the data space address in the PWS. 

If equal, indicating an empty block, 
immediate return is made to the 
caller. 

If double buffering is being used, 
branch to • > 


i 
PL50 




R5 
R14 

Rl 




Otherwise, register 1 is loaded with 
the virtual CCB address as stored in 
the PWS, to serve as the parameter 
register for the EXCP (SVC 0), which 
is now issued. 



~\ 
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Calls 



PL41 



PL44 



PL48 



PL50 



PL51 



On return, an IPW$WFC call is issued 
to have the list task wait for I/O 
completion. 

The CCB is checked for unrecoverable 
I/O error. 

If so, branch to ask operator for 
proper action. ^ ....... . > 

The CCB is checked for unit exception 
(channel 12 overflow) , and ignored 
errors. 

If so, a branch is made to restart 
I/O to the printer at the point of 
CCW cnain interruption.... > 

If no channel 9 overflow is indicated 
in the CCB either, a branch is made 
to bypass I/O restart > 

Otherwise, the CCW chain interruption 
address is made CCW start address in 
the CCB, and a branch is made to the 
subroutine entry to restart the I/O 
at the point of interruption....... > 

The CCW start address in the CCB, 
which might have been changed on 
processing a channel 9 or 12 
overflow, is now reset using the 
address saved in the PWS, and 
register 6 is set to point to the 
first CCW again. 

The data address in the first CCW is 
reset to the real address of the end 
of the data buffer space. 

Register 5 is reset to the virtual 
address of the end of the data buffer 
space. 

A branch is now made back to the 
caller. 

Double Print Buffer routine 



PLAO 



Registers 1 and 2 are loaded with the 
virtual and real CCB addresses 
respectively. 

If this is the first time through, 
branch to > 

Register 1 is loaded with the CCB 
address of the active buffer. 

If the CCB is posted, branch to.... > 

Otherwise, issue IPW$WFC request and 
wait for completion of previous I/O. 



PL44 



PL48 



PL4 



PL60 



PL52 



I 



IPW$WFC 
Chart AA 



CBCA(IPW$DCB) 



CBCA(IPW$DCB) 



CWDA(IPW$DCW) 



R6 



R5 



R14 



R1 ,R2 



R1 



V 



IPW$WFC 
Chart: AA 



V.y 



446.2 DOS/VS POWER/VS Logic 



Page of SY33-8577-1 , Added November 24, 1977, By TNL SN33-9241. 



V./' 



( 



Labels 


Chart JA07.3: IPW$$PL - Physical List 
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PL52 


The CCB is checked for unrecoverable 
I/O error. 

If so, branch to ask operator for 
proper action > 


PLAO 










The CCB is checked for unit exception 
(channel 12 overflow) , and ignored 
errors. 












If so, a branch is made to restart 
I/O to the printer at the point of 
CCW chain interruption > 


PL54 








PL54 


If channel 9 overflow is indicated in 
the CCB, a branch is made to bypass 
I/O restart . . . . > 


PL58 


CBCA(IPW$DCB) 






Otherwise, the CCW chain interruption 
address is made CCW start address in 
the CCB. 




An SVC is issued. 












Branch to wait for I/O completion.. > 


PL51 








PL58 


Registers 1 and 2 are loaded with the 
virtual and real addresses of the 
other print buffers respectively. 






R1 ,R2 




PL60 


If this is a wait only request, 
branch to bypass the SVC > 

Registers 1 and 2 are stored in the 
PWS to address the active print 
buffer. 


PL62 


PWVE(IPW$DPW) 








Register 2 is loaded with the real 
address of the first CCW in the PDA, 
which is stored in the CCB and in the 
PWS. 




CBDA(IPW$DCB) 
PWCA(IPW$DPW) 


R2 






Register 1 contains the virtual 
address of the CCB as stored in the 
active print buffer and serves as 
parameter register for the EXCP 
(SVC 0) , which is now issued. 










PL62 


The wait only request is turned off. 

Registers 1 and 2 are loaded with the 
virtual and real addresses of the 
available print buffer. 




PWOT(IPW$DPW) 


R1 ,R2 




PL66 


Register 5 is now set up with the 
real address of the end of the buffer 
space, which is that stored in the 
PWS. 




PWDA(IPW$DPW) 


R5 




l_ , , .. 


Register 5 is now set up with the 
virtual address of the end of the 
buffer space, which is that stored in 
the PWS. 

L J 


. 


PWDV(IPW$DPW) 

L J 


R5 
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__ 

Register 6 is set to point to the 
first CCW again. 

The first CCW is initialized as a 
NOP-CCW and the associated data area 
address is initialized with the real 
address of the end of the PDA. 




CWDA(IPW$DCW) 


__ 

R6 




A branch is made back to the caller. 






R14 




PL90 


Update PUB2 area: 










The TCB extension area is made 
addressable using register 2 as a 
base. 




The high-order byte of the FCB field 
in the extension area is set to X'FF 1 
to signal that the TCB image name is 
unknown on the printer. 




SPLFCB 

(IPW$DTE) 








The PUB2 is updated by issuing the 
MODCTB macro instruction. 












First the MODCTB parameter list is 
built: 

• set ID flag 

• set length of FCB field being 
updated. 




TE38GW 

(IPW$DTE) 


R15 






• calculate displacement of FCB 
field in PUB2 area and store in 
parameter list. 












• store pointer to programmer 
logical unit 






R15 






Address the parameter list using 
register 1 and clear the return 
register (15). 
Issue SVC 98. 






R15,R1 






Upon return, test the return register 
for successful completion. If so, 
branch back to caller via register 
14. 






R14 






Otherwise, set task stop indicator 
and return to caller. 

J 


- 


TCTT(IPW$DTC) 


R14 





1 



4"^ 
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IPW$$CP 



Command Processor 



IPW$$NU 



Task Selection 
(Attach the task) 



IPW$$NU 
IPW$$LR 



Macro 



IPW$OLI 
IPW$GLR 



Chart <C: 



c 



v 



IPW$$PP - Physical Punch 



PPCS 
PP10 
PP30 

PP60 



Routine 



Function Entry 

Punch Command Code Check 

Initialize CCWs and Data, 
End of Job Routine, Exit 

Punch block of data 



V 



Task Selection 
(Detach the task) 



<= 



Functions/ 
Interfaces 



Ml 



=o 



IPW$$NU 


Macro 


Ref. 


Chart 


Task Management 


A 

B 
C 


AA 
AC 


IPW$WFC 


Storage Management 


IPW$RSW 
IPW$RLW 
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T n 

(Modified Data 

| Fields 

x 


r 

(Reg. 
Usage 

i 


"T 

(Calls 

_X 


r 1 7 

|PPDS |The first 16 bytes constitute the | 
| (section descriptor: | 


T 


r 


1 










j | On entry the following register | 
| | contents are relevant: | 








1 1 9 
1 1 10 

1 |11 

1 1 13 
1 1 1 


section base register j 
: address of permanent area | 
: Task control block j 

save area punch task | 

device type and logical unit | 

number of punch. 


| IPW$DTC 
| IPW$DSV 


|R9 

|R11 
|R13 
|R1 




I | Function Entry 1 








| |The physical punch routine is entered] 
| (after the command processor has | 
j | initialized a punch task control | 
| | block and punch device information j 
j | (passed in parameter register 1) | 
| | whenever a PSTART command is given | 
| |for a punch task. | 




| |The entry parameters in register 1 | 
j | are saved in register 6. 




|R6 




|PP02 |The interface with the logical writer 
| |is opened through an IPW$OLI call. | 






| IPW$OLI 
| Chart AC 


|PP04 (The first data record is requested | 

| | f rom the logical writer through an 

| |IPW$GLR call. ! 






| IPW$GLR 
| Chart HB 


| |0n return from the logical writer, | 
| | register should contain the address 
| |of the first data record passed, and 
| (register 1 its length. 




|R6 
|R1 




| (Register 4 is now loaded with the 
| (record length. 




|R4 




| j Register 5 is loaded with the record 
j | address. If this is zero, indicating 
| |that no record was available, the 
| | IPW$GLR call is reissued through a 
| | branch . . > 


PP04 | 


|R5 




| (Physical work space is reserved 

1 | through an IPW$RSW call,, to store the 

| | device-dependent punch data and, 

j | possibly, the addresses of punch CCB f 

| |CCWs and data records to be punched 

j | by this punch task. 32 bytes of work 

| | space are requested. 






|IPW$RSW 
jcnart AC 


( j Physical work space is made 

| (addressable through register 8. 




|R8 




j | Device dependent information is 
| | stored. 


| |PWDI(IPW$DPW) 







' "V..,,,^' 



I X X X X X J 



I/ 



448 DOS/VS POWER/VS Logic 



I Labels 



Chart JB02: IPW$$PP - Physical Punch 
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Reg. 
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T 1 

Calls 



Register 7 is set up to contain the 
address of the proper printer command | 
check table through a translate and 
test instruction executed on the 
device type byte. This gives a 
displacement value in register 2, 
which, multiplied by the table entry 
length, will yield the proper 
displacement in bytes in register 3. 
Using this value, register 7 is then 
loaded with the appropriate table 
address. 

PDA (Physical Data Area) space is now 
reserved through an IPW$RSW call, for 
use as CCB, CCWs and data buffer. 
The appropriate PDA size is obtained 
from the permanent area. 

Real address of PDA is saved in 
register 2. 

Virtual address of PDA is stored in 
PWS. 

Record length is loaded in register 
3. 

Real address of end of PDA 

is loaded in register 5, and stored 

in PWS. 

Now the first 16 bytes of the buffer 
space are set up as a CCB, 
indicating: , 

• \ Wait for device end 

• Accept unrecoverable I/O error 

• Command chain retry 

• Punch logical unit number 

• EXCP real. 

The real address of the first CCW, to 
follow immediately behind the CCB, is 
loaded in register 2 and stored in 
the CCB, as well as in the PWS. 

Register 6, to be used to address the 
CCW when initializing the CCW chain,, 
is loaded with the address of the 
first CCW. 

This first CCW is now initialized as 
a NOP CCW, and the CCW data address 
is initialized with the real address 
of the end pf the PDA. 

Register 5 is now set up with the 
virtual address of the end of the 
PDA r which is then stored in the PSW. 



R7 



R2 



R3 
R7 



IPW$RSW 
Chart AC 



BLBF(1PW$DPA) 



PBV1(IPW$DPW) 



R2 



R3 



R5 



PWDA(IPW$DPW) 



CBC1(IPW$DCB) 
CBC1(IPW$DCB) 
CBC2(IPW$DCB) 
CBLC(1PW$DCB) 
CBLC(1PW$DCB) 



CBCA(IPW$DCB) 
PWCA(IPW$DPW) 



R2 



R6 



CWDA(IPW$DCW) 



PWDV(IPW$DPW) 



R5 
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^ 



Chart JB03i IPW$$PP - Physical Punch 



[Modified Data 
| Fields 



I 



I 



-4 



[PP1Q 

I 
I 
I 

[ ppii 



[PP12 

I 

I 



|PP14 



I 
I 

[PP16 



[PP20 
I 



I 
I 
I 

|PP24 

I 

|PP26 

I 

L 



Command Code Check Routine 



The logical writer has passed the 
punch command code posted in the 
punch task control block. The 
command code is changed from X"09' to 
X'01' . 

If command is X'X9' and device is 
2450P, command code is changed to 
X ' XI ' . 

This command code is examined using a 
translate and test table. 

If command code is invalid, branch to 

ignore command > 

If not dummy command (X'OO 1 ), branch 
to continue > 

If it is, pick up punch and feed 
command out of table, and branch... > 

If this is the same device as during 
execution, branch to continue 
handling record >| 

Otherwise, load the proper branch j 
index from device block (pointed to 
by register 7) into register 2, and | 
branch into the following branch 
table 

0: Invalid, branch to ignore command> 
4: Valid, branch to handle record.. > 
8: 2560 print, branch to indicate, 

that the PDA has to be emptied.. > 

The switch to indicate that the PDA 

has to be emptied is set on in the 

TCB. 

The record length is set to 1. 

If separator cards are requested, the 
default stacker must be selected. 
The device type is checked and a 
branch made to the appropriate 
routi ne . 

Check if separator cards are 

requested. If not, branch- to > 

Check the device type: 

if 2560,, branch to > 

If 1442N2,. branch to > 

If 5425, branch to. .. > 

Otherwise, it is 3525, 2520, or 2540. 
Turn .off bits and 1 of the command 
code. 

Turn off bit 1 of the command code. 

Check whether it is a load print 
buffer. If so, branch to > 



PP48 
PP12 
PP30 

PP20 



PP48 
PP20 

PP16 



PP30 

PP26 
PP24 
PP28 



PP30 



| TCCC 



|PPEB(IPW$DTC> 



I 



|TCCC(IPW$DTC) 



I 



! 



|R7 



R2 



[TCCC(IPW$DTC> \ 



I 

I 

I 

\ 

I 
-X- 



V 
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t 1 

Calls 



IPP28 



IPP30 



c 



IPP34 



Turn off bit of the command code,. 

Check for stacker select command. If 
not f branch to > 



Turn off bits 0, 1, and 2 of the 
command code. 

Initialize CCWs and Buffer 



This routine calculates the remaining 
data buffer space and checks if it is 
enough to contain the data record and 
two accompanying CCWs. If this is 
true, record and CCW are moved into 
the PDA and an IPW$GLR call is issued 
to logical writer to get the next 
data record". The CCW string is 
started right behind the CCB at the 
beginning of the data buffer space, 
and the data records are chained 
backwards in the PDA, starting at the 
end of the PDA* This procedure is 
followed to optimize the use of PDA 
space, since the variable length 
punch records prevent any calculation 
of a data record start address if 
data records are chained forward 
normally in the PDA. If insufficient 
PDA space is available, the PDA is 
emptied first by writing the data 
records to the punch. 

Register 1 is loaded with the address 
of the next CCW to be built. 

Register 2 is loaded with the address 
of the end of the available buffer 
space. 

The remaining buffer space is 
calculated by subtracting register 1 
from register 2 . 

If remaining space is zero or more,, a 
branch is made to attempt moving of 
CCW and data record > 

Otherwise, a link is made to empty 
the PDA. . .....* > 

On return, a branch is made to build 

CCW and move data record to the 

PDA . . . . . . . > 

If the record to be moved fits in the 
remaining PDA space a branch is made 
to build CCW and move data record to 
the PDA > 

Otherwise, a link is made to empty 
the PDA. ........................... > 



PP30 



TCCC(IPW$DTC) 



TCCC(IPW$DTC) 



Rl 



R2 



R2 



PP34 



PP60 



PP38 



PP3 8 



PP60 



R14 






R14 
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PP38 



PP44 



PP46 



The command code,, contained in the 
high order byte of register 3, is 
stored in the new CCW. 

The real data address , now pointing 
to the end of the available data 
buffer space, is loaded in register 
2, the record length contained in 
register 4 is subtracted, and the 
updated real data address is stored 
back into the CCW. 

The CCW flags are initialized to 
indicate command chaining and 
suppress incorrect length indication. 

The general purpose byte is saved in 
the CCW. 

Register 6 is set to point to the 
next CCW, which is now made the NOP 
CCW terminating the CCW string, while 
its data address is made to point at 
the end of the available data buffer 
space after moving the current data 
record. 

Register 5 is made to point to the 
target address of the current data 
record in the PDA, by subtracting the 
record length, as contained in 
register 4, from the address of the 
end of available buffer space. 

If the record length is not more than 
256 bytes, a branch is made to move 
the record with a normal JWC 
instruction, subject of an EXECUTE 
instruction > 

Otherwise, registers 2, 1, and are 
set up as from- address, to- length and 
to-address, respectively,, to be used 
as the operands of the MVCL 
instruction that moves the data 
record. 

After moving the record to the PDA, a 
branch is made to obtain the next 
record from the logical writer > 

Register 4 is decremented by 1 to 
contain the record length in machine 
format and the record is moved using 
an EXECUTE instruction. 

A test is' made to see whether .the PDA 
has to be emptied. If not, branch to 
get the next record > 

Otherwise, the switch in the TCB is 
reset to X'OO 1 , and a link is made to 
empty the block > 



„y 



CWCC(IPW$DCW) 



R2 



CWDA(IPW$DCW) 
CWFL(IPW$DCW) 

CWRE(IPW$DCW) 



R6 



R5 



\, J 



PP44 



R2,R1 
RO 



PP46 



R4 



PP4 8 



PP6 



PPEB(IPW$DTC) 



V 
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Modified Data 
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Reg. 
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Calls 



IPP48 



IPP60 



( 



The next data record is requested 
from the logical writer through an 
IPW$GLR call. 

On return, the record length is saved 
again in register 4. 

The address of the record passed by 
logical writer is loaded in register 
3. If a zero address was passed, 
indicating that no record available, 
a link is made to punch the 
buffer. > 

On return, work space is released and 
return to logical writer. Otherwise, 
a branch is made to process the new 
record > 

Punch Routine 



This routine handles the actual 
punching of punch records . 

On entry, register 5, supposed to 
point to the end of the free buffer 
space, is compared to the virtual end 
of data space address in the PWS. 

If equal, indicating an empty block,, 
immediate return is made to the 
caller. 

Otherwise, register 1 is loaded with 
the virtual CCB address as stored in 
the PWS, tc serve as the parameter 
register for the EXCP (SVC 0), which 
is now issued. 

On return, an IPW$WFC call is issued 
to have the punch task wait for I/O 
completion. 

Test for unrecoverable I/O error. 

If so, branch.., > 

If not ignored errors, branch to... > 

Otherwise, branch to restart from the 
broken CCW and restart I/O. > 



PP60 



ppoa 



PP80 
PP64 

PP60 



IPW$GLR 
Chart HB 



RU 



R3 



R14 



R14 
Rl 



IPW$WFC 
Chart AA 



C 
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|Reg. 
| Usage 
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-T 

jcalls 

L — „. 


r — "" " 
JPP64 


1 — T 

|The CCW start address in the CCB is | 
|now reset using the address saved in | 
jthe PWS, and register 6 is set to | 
| point to the first CCW again. | 

| The data address in the first CCW is | 
| reset to the real address of the end | 
| of the data buffer space. | 

| address of the end of the data buffer | 
| space. | 

|A branch is now made back to the | 
| caller. | 


|CBCA(IPW$DCB) 
|CWDA(IPW$DCW) 


t — 
|R6 

|R14 


T 


|PP80 


| Issue message 1Q61D and wait for | 
| reply. | 
| If reply is * C", branch to >|PP88 


| PWRAl 

| }(IPW$DPW) 

I pwmlJ 




| IPW$WTR 
| Chart AD 




1 If reply is ' I', branch to. ....... • >|PP6 2 






| If reply is not 'R', branch from... >|PP80 






|Get virtual address of failing CCW. | 




| R5 , R6 




|PP82 


| Count data transfers not yet executed | 
| in CCW string. | 








|PP84 


| If not NOP-CCW bump CCW pointer, then| 

| branch to * >|PP82 










| If end of data condition, then branch| 

| to >|PP86 










| If no card movement, then branch to >|PP86 










|Add one to counter. | 








|PP86 


|If not 2540 device, then branch to. >|PP87 

| If punch check add one to count, | 

j otherwise branch to •• >|PP87 








|PP87 


|Set up for restart the number of | 
| cards not punched. | 
1 Branch to. •••••••••••• >|PP64 




|PP88 


|Set termination byte to • S' (Stop). | 
| Branch to termination routine. | 


|IPW$$TR 
| Chart LC 



\4 



.y 



iV. 



L X : X X X X J 
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( 



IPW$$I2 




IPW$$PL 




IPW$$TM 




IPW$$PP 




IPW$$OB 




IPW$$SA 


POWER/VS 
Initialization 


Physical List 


RJE.BSC 
List/Punch Routine 


Physical Punch 


RJE,SNA 
Outbound Processor 


Save Account 





































Functions 



Queue Functions 


Module 


Macro 


Ref. 


Chart 


IPW$$NQ 
IPW$$DQ 
IPW$$FQ 


IPW$GQS 
IPW$OQS 
IPW$FQS 


1 

II 
III 


DC 
DD 
DE 




Account Functions 


Module 


Macro 


Ref. 


Chart 


IPW$$PA 


IPW$PAR 


IV 


FA 



V" 



IPW$$LW 


Logical Writer 






Label 


Routine 


Functions/ 
1 nterf aces 


Services 


LWOO 


Function Entry, start new Job 


IV 


A,B,E, 
G,H,M 


EQ30 


End of Queue Entry Handler 


11,111.1V 


F,M 


ABOO 


Abnormal Condition Handler 




G,H 


RSOO 


Restart Handler 




C,D,G, 
H,J,K, 

L 


SU01 


Setup Handler 




J.K.L 


PJOO 


Pass output to Physical Writer 




J,K 


ACOO 


Accounting Routine 






SEOO 


Separator Handler 




M 



r 



IPW$$I2 



POWER/VS 
Initialization 



IE 



IPW$$PL 



Physical List 



1 



IPW$$TM 



RJE,BSC 
List/Punch Routine 



I 



IPW$$PP 



Physical Punch 



V 



IPW$$OB 



RJE.SNA 
Outbound Processor 



1 



IPW$$SA 



Services 



Save Account 



IPW$$NU 


Macro 


Ref. 


Chart 


Task Management 


A 
B 

C 
D 

E 
F 

G 
H 

J 
K 

L 
M 


AA 
AB 
AC 
AD 
AE 

AF 
AG 


IPW$WFO 
IPW$WFQ 


Resource Management 


IPW$RSR 
IPW$RLR 


Storage Management 


IPW$RSW 
IPW$RLW 


Message Service 


IPW$WTO 
IPW$RMS 


Disk Service 


IPW$RDQ 
IPW$GDR 


Tape Service 


IPW$CTT 


Timer Service 


IPW$RDC 
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Labels 



Chart JC01: IPW$$LW - Logical Writer 



Modified Data 
Fields 



Reg. 
Usage 



Calls 



V. 



LWSD 



LWOO 



NJOO 



The first 16 bytes constitute the 
section descriptor: 



•LWCS 



V10M1 



On entry, the following register 
contents are relevant: 

10 : Permanent area address 
11: Address of writer TCB 
13 : Address of writer task save 
area. 

Entry is made at this point whenever 
any writer task (physical list or 
physical punch) issues its first 
IPW$GLR call for a data record. 

Start New Job 



Register 9 is loaded with the routine 
origin address to serve as the base 
register. 

The job boundary switch in the TCB is 
set. 

The first time switch is set. 

To start processing a new job's 
output, a new queue record is 
obtained. 

If a STOP condition is detected 
(implying end of tape with tape 
spooling) , branch to detach > 



Register 5 is loaded with the queue 
space address from the TCB. 

If register 5 is nonzero, indicating 
that a queue record has been 
obtained, a branch is made to 
continue. > 

If the current task is either an RJE 
task or an active spool management 
(GETSPOOL) request then 
a branch is made to detach the 

task. ............... > 

If message 1Q34I has already been 
issued, branch to > 

Otherwise, (logical writer, no queue 
record available) message 1Q34I is 
issued. 

The selection field is set up to wait 
for queue record and a direct link is 
made to task management. > 

On return a branch is made to retry 
retrieving a queue record. > 



EQ72 



NJ3 



EQ85 
NJ05 



TM00 



NJOO 



IPW$DPA 
IPW$DTC 
IPW$TSV 



RIO 
Rll 
R13 



R9 



TCJB(IPW$DTC) 



LWFT 



IPW$GQS 
Chart DC 



^<~.-.,,...,^" / 



R5 



R5 



TCSF(IPW$DTC) 



IPW$WTO 
Chart AD 



IPW$WFQ 
Chart AA 
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r 1 

Labels 


r 1 

Chart JC02: IPW$$LW - Logical Writer 


r 1 

Modified Data 
Fields 


1 

Reg. | 
Usage 


Calls 


NJ30 


j. — — — p 
LDA (Logical Data Area) space is 
reserved, and the LDA is obtained 
from the permanent area. 

The real address of the LDA is stored 
in the TCB. 

The virtua'l address of the LDA is 
used to initialize the previous 
record pointer in the TCB. 

If tape spooling is active, a branch 
is made to bypass disk data address 
setting .••••...•• > 

The data address is moved from the 
queue record to the TCB. 

If single buffering, branch to > 

The seek address of the first data 
block is moved from the queue record 
to the disk request word for the 
second data file buffer in the TCB. 

Storage for the second LDA (logical 
data area) is reserved. 

The virtual and real addresses of the 
LDA are stored in the appropriate 
disk request word. 


r i 

NJ35 
NJ35 


TCDA(IPW$DTC) 
TCPR(IPW$DTC) 

TCDW(IPW$DTC) 

TC2DW(IPW$DTC) 

TC2DA(IPW$DTC) 
TC2DV(IPW$DTC) 




IPW$RSW 
Chart AC 

IPW$RSW 
Chart : AC 


NJ35 


24 bytes of work space are reserved 
for accounting handling. 

Register 4 is set up to address 

The work space address is stored in 
the TCB. 




LWAW(IPW$DTC) 


R4 


IPW$RSW 
Chart AC 




The task start time is saved for 
accounting. 




LAST (LADS) 




IPW$RDC 
Chart AG 




The number of copies is moved from 
the queue record to the TCB. 




LWNC(IPW$DTC) 








The actual copy count is saved for 
accounting. 




LAWS(IPW$DTC) 








The output device type as specified 
in the queue record is compared with 
the output device type for the 
previous job as saved in the TCB. If 
device types match, or if the current 
task is an RJE task, a branch is made 
to continue. ••••••••••••••••••••••• > 


NJ38 
PJOO 








If spool management is active 
(GETSPOOL) then branch to get data. > 




L 


Otherwise, message 1Q41I is issued. 

L 


J 


L 


L 


IPW$WTO 
| Chart AB 

L . 



( 



457 



Page of SY33-8577-1 , Revised November 24, 1977, By TNL SN33-9241 



~ 1 

Labels 


r ti 

Chart JCO 2.1: IPW$$LW - Logical Writer 


r * ti 

Modified Data 
Fields 


r ti 

Reg. 
Usage 


r 

Calls 


NJ38 


r ~ — — — ~ — . t 

Get first data record. 

If this is not a list task > 


r i 
NJ40 






IPW$GDR 
Chart EB 




If this is not a FCB load... > 


NJ40 










Otherwise load FCB. > 


PJ9 










If this is a 3800 printer, branch 
to. > 


NJ42 
NJ42 

NJ49 






IPW$GDR 
Chart EB 




If RJE task, branch to •• > 






The form-number, flash identifica- 
tion, and paper thread request, as 
specified in the queue record, are 
compared with the appropriate values 
of the previous job. If one of them 
is different, branch to issue 
message. > 






Otherwise, branch to > 


NJ80 
NJ44 








NJ42 


The forms ID as specified in the 
queue record is compared with the 
forms ID of the previous job f as 
saved in the TCB. If both IDs do not 
match, branch to issue message > 






If it is not a punch task, branch to> 


NJ80 










If the PAUSE option was not 


NJ8 








NJ44 


Otherwise, if the current task is not 
an RJJE task, a branch is made to 
issue forms change message > 


NJ50 










If RJE-BSC task, then branch to queue 
message > 


NJ4 6 


TCCU(IPW$DTC) 








Establish addressability in register 
1 for the SNA logical unit control 
block (LUCB). 




TCB1(IPW$DTC) 


Rl 






If session allows PDIR record 

branch to avoid queuing message.... > 


NJ4 8 


LUPD(IPW$DLU) 
LUPS(IPW$DLU) 








Cancel addressability. 






Rl 




NJ46 


The address of message 1Q40A is 
loaded into register 1 „ and the 






R1,R0 
1 








\.y 



L J. X X X X J 



4 
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Labels 


r 1 

Chart JC03: IPW$$LW - Logical Writer 


r 1 

Modified Data 
Fields 


I ti 

Reg. 
Usage 


r 

Calls 




Issue message 1Q4 0A ON ttt FORMS 
ffff NEEDED FOR jobname, jobn umber. 


r i 






IPW$RMS 
Chart AD 


NJ48 


routine > 


PJ8 8 
NJ7 

NJ4A 


TE38GW 

(IPW$DTE) 


R2 




A branch is made to initialize the 
new f orms ID. ...... ........ ....<•*.• > 




issued at end of job time, branch 

to > 




Otherwise, save current record 
control word in the TCB extension 






area. 












The I/O command code in the TCB is 
set to f CLEAR PRINT 1 and the length 




TCCC(IPW$DTC) 
TCRL(IPW$DTC) 








A link and branch is made to the 
physical routine • > 


PJ90 


TCRW(IPW$DTC) 


R8 




Restore actual record control word. 




NJ4A 


Issue message '1QA5A CUU SETUP REQ. f 

Branch to wait for operator 
response • > 


NJ54 






IPW$WTO 
Chart: AB 


NJ50 


Otherwise, message 1Q40A is issued: 

Message address is obtained and 
stored in the message request word. 




TCMW(IPW$DTC) 






NJ54 


Message is logged. 

An IPW$WF0 call is issued to. wait for 
the operator command in response to 
message 1Q40A. 








IPW$WT0 
Chart AB 
IPW$WF0 
Chart AA 


NJ70 


If FLUSH was entered,, branch to. . . . > 

If FLUSH HOLD was entered > 

The new forms ID in the TCB is set 
according to the queue record. 


NJ8 
NJ8 


LWFI(IPW$DTC) 








If RJE task, branch to ••••• > 


NJ72 


LWFH(IPW$DTC) 
LWPS(IPW$DTC) 






The new flash identifier and the 
paper thread request are saved in the 
TCB according to the queue record. 




NJ72 


Set the copy group index in the 3800 
TCB extension area if present. 




TE38CG1 

(IPW$DTE) 


R2 




NJ80 


A check is made if a PSTOP restart 
has been done. If not, a branch is 
made to obtain data. > 


PJ10 
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Labels 


r T 1 

Chart JC03.1: IPW$$LW - Logical Writer | Modified Data 

|Fields 

L , _._ m _«. _ i. — — ■_ _ J 


T 1 

Reg. |Calls 
Usage | 

L— — — -i. —J 


i* ^ 


r ^ _ _ _ _ -j 

If PSETUP is given. >|WJ85 | 


i— _ - _j. _.j 




Indicate restart, get numbers of 
card. 


i 

|LWNC(IPW$DTC) 
|TQRS(IPW$DTC) 

1 

i 








If copies left equal zero- ••••••••• > 


NJ8 5 | 
1 

1 


LWNC(IPW$DTC) 






otherwise set up copies left. 




Copy count for accounting. 


1 

1 


LASR(LADS) 
LAWS (LADS) 








If it is not a 5425 > 

otherwise do a secondary feed. 
Insert count. 


PJ10 

1 

1 


TCCC(IPW$DTC) 
TCGP(IPW$DTC) 








A branch is made to process restart > 


PJ10 

1 

EQ34 








EQ30 


End of Queue Entry 








If this is not a 3800 printer, branch 
to > 




Issue end of transmission. > 


PJ90 
PJ90 


TCCC(IPW$DTC) 
TCCC(IPW$DTC) 


R8 
R2 

R8 




Check the option byte in the master 
queue record if a clear print is 
wanted at end of job time. If so, 
issue clear print > 


EQ34 


A link is made to the physical 
routine. > 


PJ95 










If restart is not requested,, 
continue at •••••••••••••••••••••••• > 


EQ35 
RS00 










Otherwise: 

Set remaining copy counter to 1, 
indicate restart at EOJ, and 
continue with Restart Handler > 


LWNC(IPW$DTC) 
LWEJ(IPW$DTC) 






EQ35 


Get address of SYSCOM. 

(VM Hand shaking change - CP close) 






R2 


ASYSCOM 




Test if VM=YES option has been 
specified for supervisor (bit in 
SYSCOM). If not, continue with 
normal processing. ••••••••••••••••• > 


EQ35A 
EQVM 




R2 






| Branch and link to routine to close 
file when under VM > 




|R8 

1 


: 


EQ35A 


Release logical data area. Indicate 

If a second logical data area exists, 
it Is. released too. 




TCJB(IPW$DTC) 




IPW$RLW 

IPW$RLW 
Chart AC 
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(Labels 


j Chart JC04: .IPW$$LW - Logical Writer 

j. — — — ,-. ± 


T T 

Modified Data Reg. | Calls 
Fields Usage | 




T 'T 

| The buffer pointers in the TCB (real 
|and virtual LDA addresses) are set to 


r t 


TCDA(IPW$DTC) 


T 




| zero. 










|A possible restart indication is set 
| to zero. 




QRRR(IPW$DQC) 






| If not PFLUSH branch to > 


EQ36 










EQ40 
EQ39 






|EQ36 


| If no flush hold condition is 

I present, branch to ••••••••••• • > 






|EQ37 


j If tape , branch to > 








| Store number of remaining copies in 
| the queue record. 




QRCR(IPW$DQR) 


R1 | 




( Indicate restart from the beginning 
j of the job. 




QRRR(IPW$DQR) 






| Save the current copy group index in 
| the queue record if a 3800 TCB 
| extension area is present. 




QRCI(IPW$DQR) 


R1 | 


|EQ39 


|The queue record is set in HOLD state. 




QRDI(IPW$DQR) 


| 

i i 

I i 


i_ 


1 i 
|Set termination to flush. | 

i ,l 


TCTT(IPW$DTC) 

1 ... , 


1 1 

i i 



( 
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EQ40 



Chart JC04.1: IPW$$LW - Logical Writer 



Modified Data 
Fields 



Reg. 
Usage 



Calls 



IAOO 



IA10 



The queue record is deleted. 

If no flush condition is present, 
branch to .......... > 

Otherwise, reset flush condition and 
set cancel code in QR to X"40' . 

Initialization of the account record 
is now entered. 

If accounting is not supported, 
branch to skip the accounting 
routine > 

If the current task is a punch task, 
a branch is made to bypass output 
page counting > 

Otherwise, register 1 is loaded with 
the total page count from the account 
work space. 

The number of pages as kept in the 
queue record is subtracted. 

If the result is positive, a branch 
is made to continue page count 
initialization > 

Otherwise, the extra page count in 
the queue record is set according to 
the extra page count in the account 
work space. 

The total page count in the queue 
record is also set equal to the 
corresponding value in the account 
work space. 

A branch is made to bypass page 
counting > 

The extra page count in the account 
work space is added to the page count 
in register 1. 

The result is stored back in the 
queue record. 



IAOO 



EQ58 



IA20 



IA10 



IA20 



TCTT(IPW$DTC) 
QRCN(IPW$DQR) 



Rl 



Rl 



QRNE(IPW$DQR> 



QRNP(IPW$DQR) 



IPW$DQS 
Chart DD 



Rl 



QRNE(IPW$DQR) 



v y 



\- 
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~T 

| Chart JC05: IPW$$LW - Logical Writer 

L -. _„ — — „ —— 


T 

(Modified Data 

| Fields 

j _ _ . 


— T T 

|Reg. | Calls 
(Usage | 
j. j._ _ 


|IA20 


— j. - T 

| The number of lines or cards in the | 
| queue record (QRLC) is subtracted | 
| from register 7 contents to determine | 

| If the result is positive, a branch | 

1 is made to continue ••••••.••••••••• >| I A3 


— t 


— t — t 

|R7 | 




| Otherwise, the line or card count in | 


|R7 | 




|The extra line or card count in the | 
| queue record is copied from the | 
| account work space. | 


|QRISIA(IPW$DQR) 






|The line count in register 7 is | 
(stored into the queue record, and a | 
j branch is made. • • •••••••••.•••• >|IA40 


|QRNR(IPW$DQR) 




|IA30 


|The extra line or card count | 
| calculation is now completed by | 
(adding the extra line or card count | 
| in the account work space to register | 
|7 contents. | 


|R7 | 




|The result is stored in the queue | 
| record. | 


|QRNA(IPW$DQR) 






| The line or card count in the queue | 
| record is copied from the QRLC f ield. | 


|QRNR(IPW$DQR> 




|IA40 


|The number of copies is loaded from | 
| LAWS in register 1 from the queue | 
| record. | 




|R1 | 




| Register is loaded with the number | 
|of copies remaining as kept in field | 
JLWNC in the TCB* | 




|R0 | 




|The number of copies completed is | 
(calculated in register 1, and stored | 
|in the queue record. | 


|QRNC(IPW$DQR) 


|R1 | 




|The work field LAWS in accounting | 
(record is cleared. | 


|LAWS(IPW$DTC) 






| Line or card count register 7 is set | 
|to zero. | 




|R7 | 




|The current date is stored in the | 
(account part of the queue record. | 


|QRDY(IPW$DQP) 






|EOJ time is obtained, and stored in | 
|the queue record. | 


|QRET(IPW$DQR) 


| |IPW$RDC 
| | Chart AG 
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Chart JC06: IPW$$LW - Logical Writer 



Modified Data 
Fields 



Reg. 
Usage 



Calls 



V 



IA55 
IA56 



EQ57 
EQ58 



The saved start time is obtained and 
stored in the queue record. 

Register 1 is loaded with the account 
record address from the TCB. 

Register is loaded with the account 
record length (72 bytes for list 
account record, 68 for punch) . 

If a PFLUSH command was issued a 
branch is made to... > 

Otherwise if a PFLUSH command with 
hold was not issued a branch is made 
to ...... > 

Set cancel code 

If it is a punch task a branch is 
made to > 

Otherwise get length of account 
record. 

The account record is written to the 
account file. 

The queue record is added to the 
free set. 

Complete EOJ is indicated in the TCB. 

The account work space is released. 

Task conditions are now checked and 
branches are taken:. 

If stop at EOJ condition, branch to 
process detach. > 

If non-RJE task,, branch to get next 
queue record > 

If RJE,BSC or active spool management 
(GETSPOOL) task,, branch to detach 
task. • > 



IA55 



IAS 6 



EQ57 



EQ70 
EQ60 

EQ8 



QRST(IPW$DQR) 



Rl 



RO 



QRNC(IPW$DQR) 



RO 



TCFT(IPW$DTC) 
LWAW(IPW$DTC) 



IPW$PAR 
Chart FA 

1PW$$FQS 
Chart DE 



IPW$RLW 
Chart AC 



/f 



464 DOS/VS POWER/ VS Logic 



Page of SY33-8577-1 , Revised November 24, 1977, By TNL SN33-9241 



( 
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| Labels 


-T 

jchart JC06.1: IPW$$LW - Logical Writer 

_j. «. _ _ 


._ T 

(Modified Data 
| Fields 


— T 

|Reg. 
| Usage 


— T — 1 

| Calls | 

..x — ___..J 


|EQ60 


T T ~ — 

|If normal condition or RJE,SNA task,, | 

| branch to get next queue record.... >|JSIJ00 


T — 


T 


— t —j 


|EQ70 


(initialization task, branch to return) 

| to physical routine * >|EQ80 










| (VM Handshaking change - CP Close) | 








|EQ72 


| specified for supervisor (bit in | 
|SYSCOM). If not, continue with | 
| normal processing >| EQ7 2A 




|R2 




1 1 


| Branch and link to routine to close | 

j file when under VM > IEQVM 




|R8 
|R9 
|R9 




1 ■ 

(EQ72A 


(Register 9 is set up as task | 
| terminator base register, and a | 
| branch is made to the task | 
| terminator . | 




|EQ80 


JThe queue record space is now | 
| released: | 

(Queue record address is loaded in | 
| register 1. | 

| If nothing to release, branch to... >|EQ8 5 




|R1 






| Queue record space is released. | 

|The queue record pointers in the TCB | 
|are set to zero. | 


|TCQV(IPW$DTC) 




| IPW$RLW | 
| Chart AC | 
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| Chart JC07: IPW$$LW - Logical Writer 

_«L _ _^ _. ; i 


T " 

(Modified Data 

| Fields 
j. « 


— T 

| Reg. 
jusage 

4. 


j Calls 

..4. ' — . ^ 


|EQ85 


r — — — t 

| Prior to return to the physical I 
{writer,, register 1 is set to zero to | 
| indicate a detach condition. | 

|A branch is made to return to the | 

| physical writer. •••••••••••••••••• • >|PJ95 


— .j.^. — 


— -j. 

|R1 


T — 




| (VM Handshaking change - CP Close) | 








|EQVM 


|Use IPW$RSW macro to obtain 32 byte | 
|area from Storage Manager for | 
| parameter list. | 

|Move jobname and device address from | 
| other control blocks to parameter | 
|list for SVC56. | 




|R1 


| IPW$RSW 
| (SMOO) 




J Issue SVC56 (CPCL0SE macro) to close | 
|VM file for current task output. | 




|R1 


| SVC 56 




|Use IPW$RLW macro to release | 
| parameter list storage. | 




|R1 


|IPW$RLW 
|(SM50) 




| Return to caller ••••••••••••••••••• > 1 




|R8 






{Abnormal Condition Handler I 




|AB00 


| Dependent on the nature of the | 
| abnormal condition, a branch is made | 
J to the appropriate routine: | 






| If stop at EOJ condition, branch to | 

| continue handling output............ >|PJ17 










| If flush condition, branch to issue | 
jmessage 1Q39I.. >|AB10 










| If flush (hold) condition, branch to | 

| issue message 1Q39I ............... . >|AB10 










| If PSTOP, restart.................. >|AB40 










| If it is RJE task, branch to. ...... >|EQ70 










| If PSTOP, branch to...... >|AB40 










| Otherwise, a detach condition is | 
Ipresent, and a branch is made to | 
(detach the task.... >|EQ70 





x y 



l» JL , ^ J. X X JL J 
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Reg. 
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Calls 



IAB10 



( 



IAB20 



If active spool management (GETSPOOL) 
task, then branch to > 

This routine is entered on a flush 
condition. Message 1Q39I is issued. 

Possible PSETUP/PRESTART indicator is 
reset. 

Flush condition is set in queue 
record. 

Job boundary is set in the TCB. 

Register 1 is loaded with the message 
address. 

If the task is not an RJE task, a 

branch is made to issue the 

message •••• > 

Otherwise, register is loaded with 
the remote ID f and an IPW$RMS call is 
issued. 

On return, a branch is made to 

complete abnormal condition 

handling > 

For a local writer task, the message 
address is stored in the message 
request word, and the message is 
logged. 



PJ10 



AB20 



AB30 



TCRS(IPW$DTC) 
QRCN(IPW$DQR) 
TCJB(IPW$DTC) 



TCMW(IPW$DTC) 



Rl 



RO 



IPW$RMS 
Chart AD 



IPW$WTO 
Chart AD 
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V,._> 



AB40 



AB45 



AB50 



| If the current task is a punch task, 
|a branch is made to continue....... > 

I 

| Otherwise, message 1Q39I is printed: 

I 

| Using register 1 as a work register, 
J the message and the job name are 
| moved into the buffer and the message 
| address and length are stored in the 
| record request word, the command code 
is set to 'select translate 
table 0', and a link is made to 
output routine > 

On return the command code is set to 
'skip to channel one' and a link is 
made to the physical routine > 

On return, the command code is set to 
•write', and a branch is made back. > 

If this is a punch task, branch to do 
dummy secondary feed............... > 

If this is not a punch task and stop 
immediate (PSTOP) > 

If it is not immediate skip > 

othe rwis e > 



Is it not a 5425 *., 

otherwise do secondary feed. 

Indicate EOD. 



Link to physical routine to empty 

buffer >|PJ95 

I 
Branch to terminate task >|EQ72 

. x _. 



PJ17 



PJ90 



PJ90 



PJ17 



AB45 



AB50 

PJ17 
AB50 

AB50 



I 



TCCC(IPW$DTC) 
TCRL(IPW$DTC) 



TCCC(IPW$DTC) 



TCCC(IPW$DTC) 



Rl 



R8 



R0 
R8 
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IRSOO 



IRS01 



IRS03 



IRS04 



( 



Restart Handler 



If it is not a RJE restart branch to> 

Get seek address and branch to > 

If restart is already active branch 
to > 

Otherwise, the restart current page 
count is initialized from the current 
page count in the TCB. 

If the current task is a spool 
management (GETSPOOL) task,, then 
branch to .., > 

If the current task is a list task, a 
branch is made to bypass setting of 
restart current card count.. > 

Otherwise, the restart active 
indicator is 

Set and the restart current card 
count is set equal to the current 
card count . 

Restart value as kept in field TCRS 
in the TCB is loaded in register 8. 

The restart sign code, as kept in the 
high-order byte of field TCRS, is 
loaded in register 2 and used as 
branch index into branch table RS08. 



RS01 
PJOO 

RS04 



RS03 



RS04 



TCDW(IPW$DTC) 



LARC+2CLADS) 



TCG2(IPW$DTC) 
LARC(LADS) 



R8 
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RS08 



RS12 



RS16 



RS20 



RS24 



RS28 



Branches are made from this branch 
table: 
0: Should not occur (branch to 

itself) ..... > 

4: No sign given, branch to process 

absolete restart value > 

8 : Plus sign given, branch to 

calculate absolute restart value 

from forward restart. > 

12: Negative sign given if branch to 

calculate absolute restart value 

from backward restart > 

16: Branch to process setup 

command > 

20 : Branch to process start after 

PSTOP CUU, RESTART.. > 

A branch is made to restart printing 
from the point specified as restart 
value. . . > 

The restart value in register 8 is 
added to the restart current count. 

A branch is made to restart printing 

from the calculated restart 

value > 

Negative sign; register 2 is loaded 
with the restart current count. 

Restart value in register 8 is 
subtracted. 

Calculated restart value is copied to 
register 8. 

If the restart value in register 8 is 
not negative, a branch is made to 
process restart. > 

Otherwise, the restart value is set 
to zero first. 

First, restart indication in the TCB 
is set to zero. 

The restart current count is reset to 
zero. 

The restart active indicator is set. 

The DMB is reserved for subsequent 
reading of the first queue record in 
set. 

Register 6 is set up to address the 
reserved DMB . 

If the current queue record is not 
the first in set, a branch is made to 
read the first- in-set queue record, 
required to compute restart point.. > 



RS08 
RSI 2 

RSI 6 

RS20 
SU01 
RSI 2 

RS24 



RS24 



RS28 



V-.> 



RS32 



R16 



R8 



R2 
R2 
R8 



R8 



TCRS(IPW$DTC) 

LARC(LADS) 

TCG2(IPW$DTC) 



R6 



V ^ 



IPW$RSR 
Chart AB 



^ y 
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i 



JRS32 
I 



|RS36 



I 



|RSU0 
I 



I 



IRS44 



|RS48 



Otherwise , the queue record image is j 
copied to the auxiliary area in the | 
QCB, and a branch is made to bypass \ 
reading the first queue record..... >|RS36 

I 

The disk address of the ' first-in- | 
set" queue record is moved to the DMB[ 

I 

The first-in-set queue record is read| 
in. | 

I 

If the current task is a list task | 
and not a spool management (GETSPOQL)| 
task, a branch is made to continue. >|RS4 

I 

Otherwise, the restart card value in | 
register 8 is compared to the maximum | 
value and a branch is made around the | 
compare for a list task............ >[RS4 4 

I 

The restart page value in register 8 | 
is compared to the maximum value for | 
page restart. | 

I 

If higher , a branch is made to issue | 



message 1Q42I. 

Otherwise, the first queue record 
image is copied back to the queue 
record space from the DMB. 

The DMB is released again. 

A branch is made to continue...... 

The DMB is first released. 



QCQR(IPW$DQC) 



QCQW(IPW$DQC) 



>|RS4 8 

I 

| I IPW$DQR 

I 

I 
I 
I 
I 
> I RS5 6 

I 

I 



IPW$RDQ 
Chart AE 



IPW$RLR 
Chart AB 



IPW$RLR 



C 
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RS50 



RS52 



RS54 



The address of message 1Q42I is 
loaded in register 1. 

If it is a spool management 
(GETSPOOL) task-, branch to. 



> 



If the current task is not an RJE 
task, a branch is made to issue the 
message . . > 

Otherwise, the remote ID is loaded in 
register 0, and an IPW$RMS is issued 
to send the message. 

A branch is made to continue output 
processi ng . . . > 

If the current task is a spool 
management (GETSPOOL) task, then get 
the address of the SPM parameter 
list, indicate EOF in SPL parameter 
list, and branch to continue output 
processing > 

The address of message 1Q42I in 
register 1 is stored in the message 
request word, and the message is 
logged. 

Reset RESTART current counter 

Reset restart active indicator. 

If restart is not issued at EOJ time, 
branch to continue output processing> 

Otherwise,, reset RE START/ EOJ, counter, 
and continue with EOJ processing... > 



Chart AB 



V. 



Rl 



RS54 



RS52 



R0 



IPW$RMS 
Chart AD 



PJ10 



EQ30 



PJ10 



EQ35 



TCMW(IPW$DTC) 

LARC(LADS) 
TCG2(IPW$DTC) 

LWEJ(IPW$DTC) 



IPW$WTO 
Chart AD 
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RS56 



RS60 



RS62 



RS64 



IRS66 



I 



I 



If the current queue record is the 
last- in- set, a branch is made to 
locate the restart card/page > 

If this is a 3800 printer, branch.. > 
(Note: Scanning for the restart page 
has been done from the beginning, 
because multiple SETPRT requests may 
occur in the output job. The last 
encountered SETPRT is reissued before 
processing is resumed with the 
restart page.) 

The disk address of the next-in-set 
queue record is moved to the TCB. 

The next-in-set queue record is 
obtained. 

If the current task is a list task 
and not a spool management (GETSPOOL) 
task, a branch is made to continue 
processing page restart > 

Otherwise, the restart card value in 
register 8 is compared with the 
number of cards associated with this 
queue record, as found in the field 
QRLC. 

If the restart value turns out to be 
within the range of this queue 
record, a branch is made to 
restart . . > 

Otherwise, the restart active 
indicator is set and the restart 
current card count is set equal to 
the card count of this queue record,, 
and a branch is made back to get the 
next queue record > 

The restart page value in register 8 
is compared with the page count for 
this queue record. 

If the restart value is within the 
range for this queue record, a branch 
is made to restart > 

Otherwise, the restart active 
indicator is set and the restart 
current count is set equal to the 
page count for this queue record, and 
a branch is made back to get the next 
queue record > 



RS66 



RS66 



TCQW(IPW$DTC) 



IPW$RDQ 
Chart AE 



RS64 



RS66 



TCG2(IPW$DTC) 
LARC(LADS) 



RS60 



RS66 



TCG2(IPW$DTC) 
LARC+2CLADS) 



RS60 



I 



| If the restart current count is 

| not zero, a branch is made to | 

I continue > | RS6 8 

.j , , - i 
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RS68 
RS70 



RS72 



RS73 



RS74 
RS76 



If the current queue record is the | 
first queue record, a branch is | 
made . . . > | RS6 8 

I 

Otherwise, the disk address of the | 
first queue record is copied into the| 
TCB, and the first queue record is | 
read in. I 



An empty block is indicated to the 
IPW$PDR function. 



If tape spooling is not active, a | 
branch is made to bypass backspace of | 
tape . . . >|RS73 

I 

If not restart forward branch to... >|RS72 

I 

If end of data reached branch to... >|RS50 

I 
If restart at end of job branch to. >|RS50 

Branch to process forward restart.- > RS74 

An empty block is indicated to the 
IPW$PDR function. 

Reset restart active indicator. 

Otherwise, the tape is backspaced to 
the beginning of the file: 

• A backspace file call is issued 

• A forward space file call to skip 
tapemark 

• And a forward space record to 
position past first record. 

A branch is made to continue > RS7 4 

The data pointer is moved from the 
queue record to the TCB. 

When double data file buffering, the 
seek address of the first data block 
is moved from the queue record to the 
disk request word for the second data 
file buffer in the TCB. 
(This is done to indicate: first time 
through now. ) 

Register 6 is loaded with the restart 
current count. 

Restart value in register 8 is 
compared to restart current count in 
register 6. 

If equal, a branch is made to exit 

and start printing > RS90 



TCQW(IPW$DTC) 



TCPR(IPW$DTC) 



TCPR(IPW$DTC) 
TCG2(IPW$DTC) 



TCDW(IPW$DTC) 
TC2DW(IPW$DTC) 



R6 



R6 



IPW$RDQ 
Chart AE 



IPW$CTT 
IPW$CTT 
Chart AF 
IPW$CTT 
Chart AF 



/f" 



474 D0S/VS POWER/ VS Logic 



Page of SY33-8577-1, Revised November 24, 1977, By TNL SN33-9241 



C 



1 1 

Labels 


r 1 

Chart JC12.1: IPW$$LW - Logical Writer 


r T T „. 

Modified Data Reg. Calls 
Fields Usage 


RS80 


|. — — — ~T 

Otherwise,, the next data record is 
obtained. 

If the current task is a list task 
and not a spool management (GETSP00L) 
task, a branch is made to test for a 
•skip* operation > 

Otherwise, the general purpose byte 
is tested if the punch operation 
causes a feed. If not, a branch 
is made back to get the next data 
record > 


r i 

RS84 
RS80 






IPW$GDR 
Chart EB 


RS84 


Otherwise, a branch is made to 

increment the restart current 

count • »•••••••••••• > 


RS86 
RS86 








If the associated command code is a 
'skip to channel 1 immediate 1 (start 
of a new page) , branch to > 






If the associated command code is a 
X'FD* (SETPRT REQUEST), the SETPRT 
parameter list is saved in the TCB 
extension area. 




SPLLIST 

(IPW$DTE) 


R1,R14 






Branch to get next data record..... > 


RS80 








RS86 


The restart current page card count 
is incremented by one. 

A branch is made back to test if 
restart is complete > 


RS76 




R6 
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\_y 



RS90 



RS96 



This routine is entered when the 
repositioning of the data file, 
required to accommodate the restart 
command has been completed, and 
restart condition can be deactivated. 

The restart current value in register 
6 is saved in account work space. 

Set restart active indicator. 

Reset RESTART/EOJ indicator. 

If the current task is a list task 
and not a spool management (GETSPOOL) 
task, a branch is made to handle page 
restart exit > 

Otherwise,, if backward restart has 
been requested, the current card 
count is not changed and a branch is 
made back to resume output 
handling ... ........ > 

On forward restart,, the restart 
current count is copied into the 
current count. 

The total card count in register 7 is 
incremented by one, and a branch is 
made to reset restart condition. ... > 

If no 3800 TCB extension area exists, 
branch to > 

If no setup is required, branch to. > 

Save actual record control word. 



The address of the SETPRT parameter 
list and its length are stored in the 
record control word. The command 
code is set to X'FD'. 



A link is made to the physical 
routine 

The actual record control word is 
restored. 



> 



RS94 



PJ10 



RS98 

RS96 
RS96 



PJ90 



I 



If restart is not forwarded 

branch to >| RS99 

I 

Otherwise, the restart current page | 
count is copied into the current page | 
count, and the total page count is | 
incremented by one, using register 1 | 
as a work register. | 
1 ; 



L ARC (LADS) 

TCG2(IPW$DIC) 
LWEJ(IPW$DTC) 



LACR(LADS) 



TE38GW 

(IPW$DTE) 

TCCC(IPW$DTC) 
TCRL(IPW$DTC) 



TCRW(IPW$DTC) 



LACP(LADS) 
LATP(LADS) 



R7 



R2 



V 



R3,R8 



R1 



4 x 
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RS98 



RS99 



SU01 



C 



SU05 



The restart condition is reset by 

setting the restart current counter 

to zero. 

Reset restart active indicator. 

Exit is made > 

If restart is not from zero a branch 
is made back to > 

Otherwise a get data record for the 
first record will be done after a 
skip to channel 1 is passed to the 
physical routine. 

If not a FCB load record branch to. > 

Page Set-up Handler 



First, the I/O command code is 
checked if a buffer load or load UCS 
is requested. 

If tnis is the case, a branch is made 
to execute this buffer load first. . > 

If this is not a SETPRT request, 
branch to > 

Otherwise, clear out the copy group 
values in the just-obtained SETPRT 
request and execute the setup 
first > 

If the command code is not a ■ skip 
immediate" (new page) , a branch is 
made to translate nonblanks 
to C'X'.. . > 

Otherwise, the setup remaining page 
count in register 8 is decremented by 
one, stored in the TCB, and, if less 
than zero, a branch is made to exit 
setup handling > 



PJ20 



PJ10 



PJ10 



PJ20 



SU05 



PJ20 



SU10 



LARC(LADS) 



TCG2(IPW$DTC) 



SPLCOPYG 

(IPW$DTE) 



R2 



SU40 



R8 



^*N 

\**,^ 
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V- 



SU10 



SU20 



SU30 



SU40 



Using register 2 as a work register, 
the total page number LAEP is 
incremented by one. 

If the current list I/O command code 
will not cause a line to be printed 
(space) , a branch is made to execute 
the I/O. > 

Otherwise,, the extra line counter in 
account work space is incremented by 
one, using register 1 as a work 
register. 

The data record address is loaded in 
register 2 from the TCB, and its 
length in register 1. 

If length is zero, a branch is made 
back .....> 

Otherwise, register 2 is set up to 
point to the last byte of the data 
record by adding the record length 
and subtracting one. 

In tne following loop, the line to be 
written is scanned backwards, 
starting with the last character. If 
the character scanned, pointed to by 
register 2, is non- blank, it is 
overwritten with X. 

If the current character is a blank,, 

a branch is made to bypass 

overwrite > 

Otherwise,, it is replaced by X. 

If the line scan has not yet been 
completed, a branch is made back to 
check the previous character > 

Otherwise, a branch is made to 
pass the record to the physical 
writer , > 

Exit from setup handling. Restart 
current page count is reset- 

If the current queue record is the 
first in set, a branch is made to 
bypass obtaining the first in set, 
required for restoration of page 
pointers . . > 

Otherwise, the disk address of the 
first in set is moved to the TCB. 

The first- in- set queue record is 
obtained. 



LAEP (LADS) 



R2 



PJ20 



LAER(LADS) 



PJ20 



Rl 



R2 
Rl 



R2 



!V. 



y 



SU30 



SU20 



PJ20 



R2 



SU50 



TCQW(IPW$DTC) 



IPW$RDQ 
Chart AE 



4' 
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SU50 


A link is made to the physical 
routine to empty the buffer > 

An empty block is indicated in the 

TCB. 

If tape spooling is not active , a 
branch is made to bypass tape 


r i 
PJ9 5 


TCPR(IPW$DTC) 






Otherwise,, the spooling tape is 
backspaced to the beginning of the 
file. 






Backspace file call is issued. 

Forward space file to skip tapemark. 

Forward space record to position past 
first record. 








IPW$CTT 
Chart AF 
IPW$CTT 
Chart AF 
IPW$CTT 
Chart AF 


SU60 


Restart/setup indicator is reset. 

Restart current counter is reset. 

Reset restart active indicator. 

If current task is a spool management 
(GETSPOOL) task,* branch to... > 


SU6 2 
SU65 


TCRS(IPW$DTC) 

LARC(LADS) 

TCG2(IPW$DTC) 






Check for RJE. If not, branch to.. > 




SU62 
SU65 


Otherwise, branch to the physical 

r outi ne > 


PJ88 
SU70 








Upon return from the physical 
routine, branch to • > 




An IPW$WF0 macro is issued to wait 
for the next operator command. 


IPW$WFO 
Chart AA 




If tape spooling, branch to > 


SU75 








SU70 


Otherwise the data pointer of the 
fir st- in- set queue record is copied 
to the TCB. 

When double data file buffering, the 
seek address of the first data block 
is moved from the queue record to the 
disk request word for the second data 
file buffer in the TCB. 
(This is done to indicate: first time 
through now.) 




TCDW(IPW$DTC) 
TC2DW(IPW$DTC) 






SU75 


The corresponding data record is 
obtained. 

If the associated command code is a 
buffer load, branch to ignore it... >* 

Check for PSETUP or RESTART. If so,, 
branch to > 


SU75 
PJ10 






IPW$GDR 
Chart AE 
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r ~ i 


Indicate restart. 

Get number of copies left. 

Get restart card/page. 




TCRS(IPW$DTC) 
LWNC(IPW$DTC) 
TCRS+1(IPW$DTC) 


r~ ■" — f i 




Get copy group index to be used 






TE38CGI 

(IPW$DTE) 


R2 






Exit is taken. 


> 


PJ10 








PJOO 


Pass Job Output 










IPW$GDR 
Chart EB 


An IPW$GDR call is issued to obtain 
the next record 


PJ10 


Reset restart page count 

If no normal condition is posted in 
the TCB, a branch is made to 


> 


ABOO 


QRRR(IPW$DQR) 






PJ17 


Is first time for this copy? 

If no, branch to, •••• • 


> 


PJ15 


LWFT(IPW$DTC) 






Set first time indicator off. 




A link is made to the separator 
routine 


> 

> 


SEOO 
PJOO 




R3,R15 

- 


^ 


If separator pages/cards are 
written, start over again; branch 
to 





4 



^_y 



4 ^ 
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PJ15 



PJ20 



C 



PJ25 



PJ30 



PJ40 



If a restart or setup command has 
been given,, a branch is made to 
process restart or setup. . . > 

Otherwise, a link is made to handle 
accounting > 

A link is made to pass the data 
record to the physical routine > 

If end of data is not indicated, a 
branch is made to process the next 
data record > 

Otherwise, if page setup was active, 

a branch is made to close page 

setup > 

If restart to be handled, branch 

to > 

The option byte in the master queue 
record is examined to determine if 
the user wants separator pages. If 
yes, 

Set first time indicator on. 

If this is not the last copy, then 

branch > 

A link is made to print end separator 
pages > 

The general purpose byte is reset. 

If the current queue record is the 
first in set, a branch is made to 
skip the following read of the first 
in set > 

Otherwise, the first-in-set pointer 
is moved from queue record to TCB. 

An IPW$RDW call is issued to read the 
first-in-set queue record. 

If present task is an active spool 
management (GETSP00L) task-, branch to 
end-of- job processing. > 

If the job is in boundary state 
branch to end-of- job processing.... > 

The number of copies left to be 
written is loaded in register 0. 

I 

| If all copies have been processed a 
| branch is made to handle end-of -job 
(condition. > 

I 

| Otherwise, processing of the 
(remaining copies is prepared: 
.1 



RS00 



AC00 



PJ90 



PJ00 



SU40 



RS00 



PJ25 






SE00 



PJ30 



EQ30 



EQ30 



EQ30 



R14 
R8 



LWFT(IPW$DTC) 



R3,R15 



TCGP(IPW$DTC) 



TCQW(IPW$DTC) 



IPW$RDQ 
Chart AE 



R0 



4 81 
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Modified Data 
Fields 


1 T 1 

Reg. Calls | 
Usage | 




T 

If on job boundary,, branch to handle 
E0J > 


EQ30 






-j 

I 
i 




An empty data block is indicated. 


TCPR(IPW$DTC) 

i 




1 
1 
1 




The data pointer is moved from queue 
record to TCB to reset the data 
pointer in the TCB to point to the 




TCDW(IPW$DTC> 




1 i 




The updated remaining copies count 
(having been decremented by one by 
the BCT instruction controlling the 
output copy loop) is stored back in 
the TCB. 




LWNC(IPW$DTC) 








The current page counter in the 
account work space is set to zero. 




LACP(LADS) 








The current line/card counter is set 
to zero. 




LACR(LADS) 








When double data file buffering, the 
seek address of the first data block 
is moved from the queue record to 
the disk request word for the second 
data file buffer in the TCB. 
(This is done to indicate: first time 
through now . ) 




TC2DW(IPW$DTC) 






PJ42 


If this is not a 38 00 printer, branch 
to > 


PJ44 


TE38CGI 

(IPW$DTE) 


R1 


, 




Otherwise, address 3800 TCB extension 
area and increase copy group index by 
one . 




Tl|e I/O command code is set to 'end 
of transmission 1 and the length is 
set to one. 




TCCC(IPW$DTC) 
TCRL(IPW$DTC) 








A link is made to the physical 
routine > 


PJ90 
PJ90 


TCCC(IPW$DTC) 


R8 


IPW$GDR 


PJ44 


A skip to channel 1 is set and a 
branch is made to. > 




Get first data record 




If.it is not an FCB record, branch 
to > 


P J'1 
PJ00 
PJ00 










Otherwise, skip FCB load and branch 
to get next data record •••• > 




A branch is made to handle current 
job output. ••••••••••••••••• > 


PJ88 


Indicate set up to RJE. 




TCRW(IPW$DTC) 







V. 



—I 
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Labels 


Chart JC17.1: IPW$$LW - Logical Writer 


Modified Data 
Fields 


|Reg. 
Usage 


Calls 


PJ90 
PJ95 


r i I 

Parameter register is set up with | 
the data record address , register 1 | 
is loaded with the record length, and| 
control is passed to the physical | 
writer. | 

Is request for spool management | 
(GETSPOOL) ? | 
If no, f return to caller >| 

Request for open logical writer | 
interface? | 

If yes, reset indicator and branch to| 
reopen logical writer •••••■•••••••• >| NJOO 


TCSS(IPW$DTC) 


RO 
Rl 

R8 


IPW$PLR 
Chart JC 




Is request for close logical writer? | 










If yes f reset indicator and branch to| 
close logical writer. ••••••• >| PJ25 


TCSS(IPW$DTC) 


R8 




Return to caller... i >| 



( 



482.1 






\^_y 






r t~ 

|Labels jChart JC17.1: IPW$$LW - Logical Writer 



"1 T 

I Reg. J Calls 
| Usage | 

-+ + 



( 



-T- 
I 



Modified Data 
Fields 



( 



I 
I 

I AC 00 



I Account Handler 

I 

| This routine handles updating of 

| counters relevant to accounting such 

| as: 

I 

I if restart is active - 

I 

| Extra card line count 

| Extra page count 

I Restart current card count 

| Restart current page count 



(LAER) 

(LAEP) 

(LARC) 

(LARC+2) 



I 



I 



if restart is not active 



j Current line card count (LACR) J 
| Total lin.es/cards from data file (R7) | 
(Total pages from data file (LATP) | 

I I 

I Register is loaded with the | 
j increment value 1. | 

I I 

| If the current task is a punch task | 

| or active spool management request,, a j 

I branch is made to handle punch ] 

| accounting. . . . * > | AC20 

I I 

| Otherwise, if a 'space' is indicated | 
Jin the general purpose byte, a branch] 
| is made to handle line accounting.. >JAC30 

-X JL 



I 



IRO 



I 



I 
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r 

| Labels 


— r 

| Chart JC18: IPW$$LW - Logical Writer 

L .___ _ . ^ 


T 

[Modified Data 
[Fields 

i „ ' 


— T 1 , 

[Reg. [Calls 
[Usage j 

j J ' 




T T 

| If the list command code j.s not "skipj 
| immediate' , control is returned to | 


— t 


— t 1 

|R14 | 




| The restart current 14-ne/card count | 
| (LARC) is loaded in register 1. | 




|R1 | 




| If restart is active, a branch is | 








| Otherwise, total page gount (LATP) is | 
[incremented by one, using register 1 | 
| as a work register. | 


| LATP (LADS) 


|R1 | 




(Current page count is incremented by | 
|one, using register 1 as a work | 
| register. | 


|LACP(LADS) 


[Rl | 




| Control is returned to the caller. | 




[R14 | 


|AC10 


| The restart current line/card count | 
jis incremented by one and stored back| 
| in account work space. | 


| LARC (LADS) 


[Rl | 




| The extra page count is incremented | 
| by one, using register 1 as a work | 
| register. | 


[LAEP(LADS) 


|R1 | 




| If the restart current page count has | 
[become equal to the current page | 
| count before restart,, a branch is | 
[made to reset the restart | 
| condition >| AC5 








[Otherwise, control is passed to the | 
[caller. | 


[R14 | 


|AC20 


| If no indication is found in the | 
J general purpose byte that the current | 
| I/O operation will cause a feed on | 
| the punch, control will be returned | 
|to the caller immediately. | 




|R14 | 


|AC30 


| (This routine is common to line and | 
| card account handling.) | 

| If restart is active, a branch is | 
jmade to update the extra line/card | 
| count . •••• ••• >| ACU 








[Otherwise, the total line/card count | 
| from data file as kept in register 7 | 
Jis incremented by one. | 


|R7 | 



V, 



I X X X X X J 



V- 
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| Labels 


Chart JC19: IPW$$LW - Logical Writer 




Modified Data 
Fields 


Reg. 
Usage 


Calls 


r 


|. — _ _ — — - - — - -^ n 
The current line/card count is 
incremented by one using register 1 
as a work register , and control is 
returned to the caller. 


r — 1 


LACR(LADS) 


Rl 

R14 




AC 40 


The extra line card count is 
incremented by one using register 1 
as a work register. 

and not a spool management (GETSPOOL) 
task, control is returned to the 
caller. 

Otherwise, the restart current card 
count is incremented by one using 
register 1 as a work register,, and if 
the restart current card count has 
not yet reached the current card 
count, and control is returned to the 
caller. 




LAER(LADS) 
LARC(LADS) 


Rl 

R14 
Rl 

R14 




AC 50 


Otherwise, the restart condition is 
reset by setting the restart current 
line card count to zero, reset 
restart active indicator, and control 
is returned to the caller 




L ARC (LADS) 
TCG2(IPW$DTC) 


R14 




SE00 


Separator Handler 










This routine prints a number of 
separator pages or punches a number 
of separator cards as specified in 
the field QRSP of the queue record. 




If tape spooling is not active, 
branch to > 


SE01 
SETO 




R6,R14 
R15 


IPW$DQS 
Chart: 


If end separator pages to be printed, 
branch to > 


Otherwise, read in trailing queue 
record. 


SETO 


Branch to . > 


SE01 




R3,R6 


IPW$CTT 
Chart: AF 


Read in header queue record: 
• backspace record 


SE01 


Register 6 is loaded with the number 
of separator pages requested. 

If this number is zero or a spool 
management (GETSPOOL) task, control 
is passed to the caller. 

The logical data area is used as work 
space to build the separators. 

The restart information is saved. 
The request word is saved. 




LWTC(IPW$DTC) 
LWSR(IPW$DTC) 


R6 
R3 




L 


Branch to set up the printer if 
applicable > 

L J 


SS01 
L J 




R8 
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,___^.. . 


T „ 

Modified Data 
Fields 




r t 

Reg. Calls 
Usage 


SE02 


Clear out restart information. 


TCRS(IPW$DTC) 


._.„ 






If the current task is a punch 

task , branch to > 


SCTO 


QRER(IPW$DQR) 


R1 ,R2 




The page size (depth) is obtained 
from the queue record. If zero, the 
system default value (SYSCOM) is 
taken. 




|SCT0 


Set up the record address and 

the command code in the TCB. 

Check for end of job. If so, branch 

to punch the end separator cards ... > 

Check for a 5425. If so, branch to > 


SCEJ 
|SCT5 


|TCRV(IPW$DTC) 
TCCC(IPW$DTC) 








Load a record length of 8 into 
register 1 and store it in the TCB. 
Fill the buffer with the attention 
character X'78' . 




|TCRL(IPW$DTC) 
|SCDS 


Rl 






Check the number of required 
separator cards in register 6, and if 
necessary, set it to a minimum of 3. 






R6 




|SCT1 | 


Branch and link to puncn the 
separator cards. >| 


SCT8 | 




R2 I 






Load the buffer address into register | 
8. 






R8 | 






Save the job name. | 




SCNM(SCDS) 








Load the character count into 
register 1, and the starting address | 
into register 2. j 






R1,R2 | 






Fill the buffer with separator card | 
blanks (X'38 1 ). | 




SCDS 






|SCT3 | 


Using registers 3 and 6 as work | 
registers, the job name is 
translated. | 






R3,R6 | 






Set the number of separator cards to | 
be punched to 1 and branch and link | 
to punch the card >| 


SCT8 | 


< 


R6,R2 | 
I 




|SCT5 | 


Branch to. >| 


SE99 | 




R3 | 
Rl | 




Set up for punching the separator | 
cards for the 5425,, which are punched 
in all positions, and the job name | 
printed 12 times on each card. 




| SCT7 | 


Increment the card count by one. 




LAER(LADS) 


Rl | 






Set the command code to punch primary 
(X'OS 1 ) and branch and link to the | 
physical routine > 


PJ90 


TCCC(IPW$DTC) 


R8 | 






Check for a stop condition. If so, 
branch to detach the task >| 


EQ72 j 
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Labels 


Chart JC20.1: IPW$$LW - Logical Writer 


r 

Modified Data 
Fields 


Reg. 
Usage 


n 

Calls 




Set the command code to print and | 
feed (X'41 1 ), and branch and link to | 
the physical routine ->IPJ90 


TCCC(IPW$DTC) 


R8 






When all separator cards have been 
punched , branch to ••••••••••••••••• 


>|SE99 
> | SCT8 




R3 




SCEJ 


Set up for punching two blank 

end separator cards and branch and 

link to the physical routine....... 




Rl f R6, 
R2 






Branch to 


>|SE99 




R3 




SCT8 


Increment the end count by one. 




LAER(LADS) 


Rl 




SCT9 


Check for a stop condition. If so,, 
branch to detach the task 


>|EQ72 










Branch and link to the physical 
routine , 


>|PJ90 




R8 





c 



g^^ 
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L 


J 


Modified Data | 
Fields | 

« 


Reg. j Calls 
Usage | 

j. 




r 

When all separator cards have been 
| punched, return to caller via link 

register 2. 


i 


1 




T 

R2 | 




The buffer address is loaded in 
| register 8, which serves buffer 
| addressability. 








R8 | 


|SE05 


| If the last CCW issued was a skip t< 


D 


PJ90 








(Perform skip to channel 1. 


R8 | 


|SE06 


| Perform 3 "space 3 H operations. 




PJ90 




R8 | 




| If task is in stop state, branch to 


> 


EQ72 








1 If restart to be done, branch to... 
1 (start over again) 


> 


SE02 








1 If page size is less than 40 lines, 

j skip writing of block letters. 

| Branch to • 


> 


SEOG 


LWSN(LWDS) 






j Translate jobname into table 
[displacement. 




|SE07 


|Get centering information. 










|SE0A 


|Set up request word. 






TCRW(IPW$DTC) 




|SE0B 


j.Get start addresses. 










|SE0C 


|Get layer of character until all 
[characters are finished. 












j Print line 


> 


PJ90 




R8 | 




|Loop until all 12 lines printed.... 


> 


SEOC 








| Perform " space 3 H 


> 


PJ90 




R8 | 




| If through with 2nd line, branch to 


> 


SEOF 








|Get Class and Priority and Number 






|LWJN(LWDS) 






[Translate to displacement. 












Branch to • 


> 


jSEOA 


| LAER 
LAEP 




| SEOF 
|SE06 


|Add to extra records. 
|Add to extra pages. 


jRl | 
|iRl | 




| If this is last page, branch 


> 


SE85 








| Restore request word. 

|The 120- byte buffer is filled with 

| blanks. 






TCRW(IPW$DTC) 






| 19 asterisks are moved to beginning 
| and end of the buffer. 






|LWS0(LWSP) 
|LWS8(LWSP) 
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r 

[Modified Data 
Fields 

L _ '_ —■ _ 


— T T -, 

|Reg. (Calls | 
| Usage | \[ 

JL «. -. —X __J 


r 


— j. _ „ T - .j 

| If an EOJ condition exists, a branch | 
|is made around moving START to the | 
1 separator line ••••••••••••••••••••• >| SE10 


r 


t T 1 




| Otherwise, 'START' is moved to the | 
| separator line to indicate a start | 
| separator. | 


LWSKLWSP) 








|A branch is made to continue | 








|SE10 


|END is moved to the separator line, | 


LWSKLWSP) 






|SE20 


| Job name is moved from queue record | 
jto separator line. | 

|Job number is moved to separator | 
|line: | 


LWS2(LWSP) 








jjob number is loaded in register 1 | 
jfrom queue record, converted to | 
| packed decimal in work field,, and | 
| unpacked to separator line. | 


LWCD(LWSP) 
LWS3 (LWSP) 


|R1 






|Job suffix number is moved to | 
| separator line: | 








|SE22 


|Job suffix number is loaded in | 
| register 1 from queue record, | 
| converted to packed decimal in work | 
| fie Id, and unpacked to separator | 
|line. | 


LWCD(LWSP) 
LWS4(LWSP) 


|R1 




|SE23 


| User information is moved from queue | 
| record to separator line. | 

|The date is now moved to the | 
| separator line: | 

|A COMRG macro is issued to obtain | 
| system date. | 

| If system date is in mm/dd/yy format, | 
|a branch is made to handle date | 
(insertion in separator line >|SE25 

(Otherwise, the day of month is moved | 
(to the separator line. | 


|LWS5(LWSP) 
|LWS6(LWSP) 







x_^ 



v.. 



K^ 
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j _ _ _«,. 


t 

(Modified Data 
| Fields 
j. _ _ . 


— T 

|Reg. 
j Usage 
> 4. — — 


jcalls 

j __^_ 


r 


T T 

|The second number in system date, | 
(representing the month number # is | 
| packed into a work field f and a | 

(insertion >| SE26 


— t 

|LWCD(LWSP) 


T 


T ^ 


|SE25 


|The second number field of system ( 
| date is now used as day of month and | 
| moved to the separator line. | 

|The first number field, representing | 
| the month number now, is packed into | 
jthe work field. | 


|LWS6(LWSP) 
|LWCD(LWSP) 






|SE26 


|The month number is loaded in | 
(register 2 in binary, multiplied by 4 | 
| to serve as index to address correct | 
| month name in table. | 

| month name address. | 

(Month name addressed by register 2 is| 
| moved to separator line. | 

| Year number (2 digits) is moved to | 
(separator line. | 


|LWS6(LWSP) 
|LWS6(LWSP) 


|R2 






|The time is obtained using IPW$RDC | 
|call, stored in work field,, | 
|and edited into separator line,. | 


|LWCD(LWSP) 
|LWS7(LWSP) 




| IPW$RDC 
| Chart AG 




(Separator record information is | 
| stored in the TCB. | 


|TCRV(IPW$DTC) 








(Separator line length (80) is loaded | 
|in register 1 and stored in the TCB. | 


|TCGP(IPW$DTC) 


|R1 




|SE40 


|The number of "space 3" to be | 
| performed is calculated. | 









L X P — P X X X X J 
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Chart JC23: IPW$$LW - Logical Writer 


i"" 1 

Modified Data 
Fields 


l 1 

Reg. 
Usage 


r 1 

Calls | 

L J 


I 1 


|. - — _ — - — — T _ — H 






r 1 


|SE60 


The I/O command code in the TCB is 
set to 'space three lines'. 




TCCC(IPW$DTC) 






|SE70 


Check for a stop condition. If so )f 
branch to detach the task •••• • > 


EQ72 
PJ90 
SE60 








A link is made to the physical 
routine • > 


On return , branch back until all 
lines are spaced > 




Set the I/O command code in the TCB 
to 'print line' . 




TCCC(IPW$DTC) 








Register 2 is loaded with 8 to signal 
8 writes of separator lines. 






R2 




|SE80 


Using register 1 as a work register, 
the line length is updated to 120. 

The data pointer is restored. 

The separator line is updated. 

Check for a stop condition. If so (| 


EQ72 


TCGP(IPW$DTC) 

TCRV(IPW$DTC) 
LWSP(LADS) 






1 


A link is made to the physical 
routine > 


PJ90 
SE80 




R2 




On return, branch back until 8 lines 
are spaced. . . > 




If not a 3800 printer, branch to... > 


SE82 










If end separators, branch to > 


SE82 










If mark form is wanted, branch to.. > 


SE84 








SE82 


If a separator page has been 
completed, a branch controlled 
by register 6 is made back to 
initiate printing of the next 
separator page > 


SE05 




i 






Branch to complete last page > 


i 
SE05 










The I/O command code in the TCB is 

set to f mark form 1 . 

The length is set to one. 




TCCC(IPW$DTC) 
TCRL(IPW$DTC) 






SE85 


A link is made to the physical 
routine > 


PJ90 
SE99 




R8 




If START separators, branch... > 




The I/O command code in the TCB is 
set to ' skip to channel one ' 




TCCC(IPW$DTC) 






— — 


Check for stop condition. If so, 
branch to detach task. . > 


_ E _ Q -Zi _ 








- ..J 



v y 



i 
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Modified Data 
Fields 


Reg. 
Usage 


r 1 

Calls 




A link is made to the physical 
routine > 


PJ90 
SE02 




R8 




If restart to be done, branch to 
start over again , > 




Return to caller via register 3. 










SE99 


Load buffer address in register 8. 

Restore restart information. 

An empty block is indicated in the 

If tape spooling, return to caller 
via register 3. 

The DTA pointer of the first-in-set 
queue record is copied to the TCB. 

When double data file buffering, the 
seek address of the first data block 
is moved from the queue record to 
the disk request word for the second 
data file buffer in the TCB. 
(This is done to indicate: first time 
through now.) 

Return to caller via register 3. 

Setup Printer Subroutine 

The subroutine sets up the printer 
(non-impact) with the new or last- 
used printer setup but without copy 
group values, no flush, and no copy 
modification. 

The routine is only invoked by the 
separator-page handler in order to 
avoid multiple copies of each page 
when copy grouping is in use. 




TCRS(IPW$DTC) 
TCPR(IPW$DTC) 

TCDW(IPW$DTC) 
TC2DW(IPW$DTC) 


R8 
R3 




SS01 


If not a 3800 printer, return to 
caller . . > 

If output was not destined for a 
3800 printer, return to caller > 

If end separators, branch to > 


R2 

R2 
SS10 




R2 






If start separators and record is not 
a SETPRT record, return to caller.. > 


R2 




R2 






Address SETPRT parameter list and 
branch to continue. . > 


SS20 




R8 




SS10 

r 


Use logical data area as a work area 
and copy the current SETPRT parameter 
list into it. 


. 


. 


_, 


J 



^ 
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Labels 
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Modified Data 
Fields 


Reg. 
Usage 


Calls 


SS20 

_ 


Set the command code and the length 
in the TCB. 

Set initialize printer flag. 
Clear out copy group values. 
Set no flushing. 
Set no copy modification . 

A link is made to the physical 
routine •• ••••• > 


PJ90 
R2 


TCCC(IPW$DTC) 
TCRL(IPW$DTC) 

SPPFLAG1 
SPPCOPYG 
SPPFLASH 
SPPCPMOD 


R8 
R2 




Return to caller . . > 





\,y 



K .J' 
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Chart KAOO: IPW$$XR - Execution Reader, General Flow and Macro Calls 



SVC 90/91 
Appendage 



SVCO 
Appendage 



T 



IPW$$NU 



Task Management 
(Attach the task) 



Functions 



c 



Queue Management 


Module 


Macro 


Ref. 


Chart 


a a o 

Z Q u. 


IPWSGOS 
IPW$DQS 
IPWSFQS 


I 

II 
ill 


DC 
DD 
DE 




Data Management 


Module 


Macro 


Ref. 


Chart 


IPW$$GD 


IPW$GDR 


IV 


EB 




Account Management 


Module 


Macro 


Ref. 


Chart 


IPW$$PA 


IPWSPAR 


V 


FA 




Miscellaneous 


Module 


Macro 


Ref. 


Chart 


IPW$$XJ 
IPW$$LU 
IPW$$SL 


IPWSSXJ 
IPW$ULP 
IPW$GSL 


VI 
VII 
VIII 


GB 
GC 
GE 



V 



IPW$$NU 



Task Management 
(Detach the task) 



IPW$$CP 



IPW$$XR • 


Execution Reader 


Label 


Routine 


Functions/ 
Interfaces 


Services 


XROO 


Start new partition job 






XR10 


Writer-only partition support 


VI 


F 


XR22 


Task termination 


VII 


B,G,H 


XR32 


Process accounting requests 


V 


F,G 


XCXK) 


Wait for user request 


1 


D,E,F,H 


XQ22 


Emulate channel program 


IV,VI,VIII 


I 


XQ78 


Handle output request 




A,F 


XQ88 


End of user job 


ll,lll,VII 


CG 






< 


/ 









IPW$$NU 


Macro 


Ref. 


Chart 


Task Management 


A 
B 
C 
D 
E 

F 
G 

.H 

1 


AA 

AC 
AD 
AH 


IPW$ATT 
IPWSDET 
IPWSWFI 
IPW$WFQ 
IPW$WFC 


Storage Management 


IPW$RSW 
IPW$RLW 


Message Service 


IPW$WTO 


Validation Service 


IPW$VDA 
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r 


~T 


T 


- T q 




|Labels 


(Chart KA01: IPW$$XR - Execution Reader 

_X. ., ; , 


| Modified Data 
| Fields 

L , 


|Reg. | 
| Usage | 

»x J 


Calls 




1 T 


r~ — 


T 1 






| This routine is entered when the | 










(PSTART command of the Command | 










| Processor attaches an Execution Read | 










| Task. | 








|XRCS 


|CSECT name | 








|XRSD 


| The first 16 bytes constitute the | 
| section descriptor: | 

I'XRCS V7M0 • | 

I Register usaqe: I 




|R0 | 






| 0: **** - Service work register | 






! 1 


. **** - service work register | 




|R1 | 






1 2 


. **** _ service work register | 




|R2 | 






1 3 


. **** - service work register | 




|R3 






1 ■** 


IPW$DDE - Entry in PDB | 




|R4 | 






1 5 


: IPW$DQR - Queue record space | 




|R5 






1 6 


: 1PW$DPD - PDB | 




|R6 | 






| 7 


: IPW$DCB - User command control 1 




|R7 






| block | 










| 8: IPW$DCW - User channel command | 




|R8 






| word | 










1 9 


: XRCS - Base register | 




|R9 






1 10 


: IPW$DPA - POWER/VS nucleus | 




| RIO | 






|11 


: IPW$DTC - Task Control Block I 




|R11 






1 12 


. **** _ Reserved for nucleus use | 




|R12 | 






|13 


: IPW$DSV - Task save area | 




|R13 | 






| 14 


. ****^ - Function linkage register | 




|R14 






1X5 


. **cs - Function Base register j 




|R15 | 






I Start New Partition Job | 


|TCDE(IPW$DTC) 


|R2 




|XROO 


| Save reader PUB address in packed | 






|form. j 










| Save device type. | 


|TCDT(IPW$DTC) 








| Initialize the storage descriptor | 


|TCCU(IPW$DTC) 








|with the reader device address in | 










| hexadecimal form. | 










|Set the job boundary switch to X'80' | 


|TCJB(IPW$DTC) 








|to indicate that no read request has | 










| been received yet. | 










|Set the device type code to C'R' to | 


|PDDT+1(IPW$DPD)- 








| indicate reader partition. | 










| If the device is a normal console | 










|br< 


anch to > | XRO 2 










the device is not a display 1 






| console branch to >|XR04 








|XR02 


|Set the device type code to C'C" to | 
| indicate writer-only partition. | 


|PDCL(IPW$DPD) 






|XR04 


| Set up registers and 4 for scanning | 




|R0 ir R4 






|th 


e entries in the PDB. | 









L X 



* X X- 



X X J 



/f~ 



V. 
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I Labels 



h 



Chart KA02: IPW$$XR - Execution Reader 



Modified Data 
Fields 



Reg, 
Usage 



Calls 



IXR06 



IXR10 



IXR11 



Set the device type code to C'L' to 
assume a printer device. 

If the device is not a printer, set 
the device type code to C'P' to 
indicate punch device. 
If the device type code (PDCL) does 
not indicate a writer-only partition 
(CO branch to wait for a user 
request > 

Writer-only Partition Support 



Initialization 



Reserve queue space to form a dummy 
queue record to allow for the 
initialization of output queue 
records. 

Save the real address of the queue 
space. 

Save the victual address of the queue 
space. 

Insert default values in the queue 

space : 

Move date of job 

Move default name 

Store job number 

Set default priority 

Set queue record identifier to 

C'C to indicate console record 

Set class identifier to C'A' 

Set default output class 

Set forms identifier to blanks 

Set flash identifier to blanks 

Set disposition to C"D' 

Set number of copies to X'01" 

Set cuu address 

Set user information 

Set POWER/VS cancel code 

Wait for User Request 



Unpost the event control block in the 
TCB. 

Check the reader entry in the PDB for 
a user request. 

If an accounting request was issued 
branch to > 

If a read request was issued branch 
to > 

Check termination switch for STOP or 
PEND posted. If so f and job is at 
job boundary, branch to............ > 



XQOO 



XR32 
XR18 

XQ82 



TLCL(IPW$DTL) 



TLCL(IPW$DTL) 



TCQA(IPW$DTQ) 



TCQV(IPW$DTC) 



QRDY(IPW$DQR) 
QRNM(IPW$DQR) 
QRNO(IPW$DQR) 
QRPY(IPW$DQR) 

QRQI(IPW$DQR) 
QRCL(IPW$DQR) 
QRCL(IPW$DQR) 
QRFI(IPW$DQR) 
QRFL(IPW$DQR) 
QRDP(IPW$DQR) 
QRNC(IPW$DQR) 
QRCU(IPW$DQR) 
QRUI(IPW$DQR) 
QRCN(IPW$DQR) 



TCEB+2(IPW$DTC) 



RO 



Rl 



IPW$RSW 
Chart AB 
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1 

| Labels 


~T 

|Chart KA03: IPW$$XR - Execution Reader 

L _ .— — „„ — _ „-- 


-^ T — . 

(Modified Data 

|FieJLds 
_j. _ . . 


'~T 

(Reg. 
| Usage 
j 


-T 

jcalls 

^4. — — „ 


Y~ 


— j. _ _ P 

|Set up registers and 4 for | 
(examining the remaining entries. 




T 


— 1— 

|R0, f R4 


T 


|XR13 


|PDB. If a request was issued branch | 
1 to handle the output request > | 

|Exit to task selection to wait for a 
|user request. | 


XR4 2 






| IPW$WFC 
| Chart AA 




(On return from task selection branch | 
to , > 1 


XR12 


|TCRW(IPW$DTC) 








1 Writer-only Partition Handler 




| XR18 


(Move the channel command word to the 
|TCB. 






|Load the record address into register 
|i- 1 






|R1 






|Link to the JECL statement analysis | 
| routine to handle the incoming 
(statement. | 








|IPW$SXJ 
| Chart GB 


|XR20 


| Store the updated CCW address in the | 
|CCW. 

| Set the residual count to zero. 

| Set the necessary flags in the first 
(communication byte. 

| in register 7 and set it to 

jdi spa tenable. j 

| Check for a job in progress, and if | 
|,so branch to > 


XR12 


|CBCS(IPW$DCB) 

|CBCT(IPW$DCB) 
|CBC1(IPW$DCB) 


|R7 






[Branch to reinitialize the queue 

| record. •••••••••••• ••••••••••• > 


XR10 










iTask Termination 


|XQ84 


|PDMT(IPW$DPD) 






|XR22 


|If this partition was started as 
|"MT" -multi tasking, then set 
(indication off and branch to....... > 






|Load the address of the partition 

| communication region into register 2. 






|R2 






| Reset the POWER/VS control flags in 
(the communication region to zero. 












|The reader device and all unit record 
(partition assignments which relate to 
| the devices in the PDB are 
| unassigned. 








| IPW$ULP 
| Chart GC 




| If a read request is still 
(outstanding, the necessary flags are 
|set in the CCB. 




|CBC1(IPW$DCB) 







f 



X . X X X X^ J 
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r T ~ . — • . 

j Labels | Chart KA04: IPW$$XR - Execution Reader 



-T- 
I 
I 



| Modified Data 
[Fields 

-+ 

|PDPB(IPW$DPD) 



-1 — T 

| Reg. | Calls 
| Usage | 

-+ + 

I I 



| IPW$RLW 
| Chart AC 



( 



IXR28 



I 
I 
| XR32 

I 

I 



I XR34 



|The user partition PIB is set to 
| di s patch able . 



| If there is any queue space, it is | 

| returned to the storage pool, | 

I I 

| Issue message 1Q33I to the operator. | 

I I 

| Release the PDB. | 

I 



| Detach the Execution Read Task. 



j • The task is removed from the task | 
| selection list, | 

I • The TCB storage is released. | 

I . I 

I Process Accounting Requests | 

I I 

| If there is no queue space available | 
|yet, the request is ignored. . . >|XR38 

I I 

(The total length of the execution | 
I account record (EAR) is calculated in| 
j register 1. | 

I I 

| If the request was initiated by an | 
| SVC 9 1 branch to. ... . . > | XR3 4 

I ! 

1 SVC 9Q processing | 

I I 

I Add user account size plus 8 bytes | 

| for the block descriptor to the size j 

| of the EAR. | 

I I 

| If the EAR size exceeds the maximum , | 
| ignore the request and branch to... >|XR38 

I I 

| Reserve space for the EAR . | 

i i 

I Move the user account information to | 
| the EAR. | 

1 I 

I Branch to .................... . . . . . . > | XR3 8 

l i 

I SVC 91 processing | 

I I 

| If an SVC 90 has been issued before | 

I the SVC 91 was issued branch to.... >|XR36 

I I 

| Calculate the size of the EAR in | 

J register 1 | 

I I 

| Reserve space for the EAR* | 

1 I 

| Set up register 7 as a base register | 
| for the EAR* | 



I'Rl 



|R1 



I Rl 

\ 

\ 

I 
|R7 

I 



| IPW$WTO 
| Chart AD 
| IPW$RLW 
| Chart AC 
| IPW$DET 
| Chart AA 



I 

|IPW$RSW 
| Chart AC 
I 



I 
I 

|IPW$RSW 

I Chart AC 
I 

i 



ms 



Labels 



-f- 



Chart KA05: IPW$$XR - Execution Reader 



Modified Data 
Fields 



Reg. 
Usage 



Calls 



XR36 



XR38 



XRU2 



Fill in the execution account record: 

Move the date from the partition 

JA table. 

Move the start time from the 

partition JA table. 

Move the stop time from the 

partition JA table. 

Move the user information from the 

queue record. 

Move the job name from the queue 

record. 

Move the job number from the queue 

record. 

Set the record identifier to C'E'. 

Move the cancel code from the 

queue record. 

Move the 'from 1 terminal 

identifier from the queue record. 

Move the 'to" terminal identifier 

from the queue record. 

Move the class identification from 

the queue record. 

Move the. priority from the queue 

record. 

Move the spool statistics from the 

partition JA table. 

Move the length of the SIO table 

from the partition JA table. 

Move the DOS/VS account record 

from the partition JA table. 

write the execution account record. 

Release the work space for the EAR. 

Reset the SVC 90 request in the TCB. 

Post the user event control block. 

Set the user partition PIB to 
di spatchable . 

Reset the request entry in the PDB. 

If this is a writer-only partition 
branch to . . > 

Otherwise,, branch to > 

Handle Output Request 



Check the job boundary switch to 
determine whether any input request 
has yet been received. If so, branch 
to create a new writer task to handle 
the output request > 



XR12 
XQ00 



AEDY(AEDS) 

AEST(AEDS) 

AEET(AEDS) 

AEUI(AEDS) 

AENM(AEDS) 

AENO(AEDS) 
AERI (AEDS) 

AECN(AEDS) 

AEFJ(AEDS) 

AETJ(AEDS) 

AECL(AEDS) 

AEPY(AEDS) 

AE#L(AEDS) 

AESL(AEDS) 

AEJN(AEDS) 



TCGW+8(IPW$DTC) 

PDCB(IPW$DPD) 

PDPB 

PDCB(IPW$DPS) 



W 



IPW$PAR 
Chart FA 
IPW$R1^7 
Chart AC 



V 



XR4 4 
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( 



r r 

| Labels | Chart KA06: IPW$$XR - Execution Reader 

L «. _X, _ _. _ _ — ——— 


T 

(Modified Data 
| Fields 

i , _ _ 


— T 

|Reg. 

| Usage 
j. 


-T 

| Calls 

_ x -. „ 


r 1 t 

| | Since no input request has been | 
J (received yet, there is no job | 
j (identification for the output | 

| (therefore ignored and the user | 
j | command control block is posted as | 
| | though the output operation were | 
| (completed: | 


T 


— t 


T 


| |« Set the residual count to zero. | 
| | • Set channel and device end. | 
| |» Post the traffic bit. | 


|TLCB(IPW$DTC) 
|CBCT(IPW$DCB) 
|CBSD(IPW$DCB) 
|CBC1(IPW$DCB) 






| |Set the user partition PIB to | 
| (dispatchable. | 








| | If this is a writer-only partition. >|XR12 








| | Otherwise, branch to... >|XQ00 








|XR44 (Reserve storage for the TCB to be | 
( (associated with the new task. | 






| IPW$RSW 
| Chart AC 


| (Set up register 8 as a base register | 
j | f or the new TCB. | 




|R8 




j (Initialize the storage descriptor. | 


|TNSD(IPW$DTC) 






j |Move the device address in | 
| | hexadecimal to the storage | 
| (descriptor. | 


|TNCU(IPW$DTC) 






| JReserve storage for the queue records | 
| |to be generated by the task. | 






| IPW$RSW 
| Chart AC 


| |Set up register 1 as a base register | 
j | f or the new queue record. | 




|R1 




| (Initialize the new queue record: | 








| | • Copy values from the reader queue | 
| | record. | 
| |« Set class identification to C*A' . | 


|QNBF(IPW$DQR) 
|QNCL(IPW$DQR) 






| | • Set forms identifier to blanks. | 
j ]• Set flash identifier to blanks* | 
| |« Set disposition to CD'. | 
j |« Set number of copies to X'01'. | 
| | • Set cuu address. | 
j | • Set device type. | 
| | • Set counts to zero. | 
j | t set more counts to zero. | 


|QNFICIPW$DQR) 
|QNFL(IPW$DQR) 
|QNDP(IPW$DQR) 
|QNNC(IPW$DQR) 
|QNCU(IPW$DQR) 
|QNDT(IPW$DQR) 
|QNNA(IPW$DQR) 
|QNNR(IPW$DQR) 






| | If the additional count value is | 
| |zero, it is set to the maximum. | 


|QNBN(IPW$DQR) 







( 



L X X X X X J 
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Labels j Chart KA07: IPW$$XR - Execution Reader 
I 



Modified Data 
Fields 



Reg. 
Usage 



Calls 



V ,f 



XR46 



XR47 



XR50 



XR58 



Set up register 2 as a base register 
for the disk management block. 

Set the queue record identifier to 
C'P' to indicate punch record. 

Set punch values. 

Check the device type in the PDB for 
printer device. If not, branch to > 

Set the queue record identifier to 
C'L' to indicate list record. 

Set list values. 

Move the line table from the queue 
control block to the TCB. 

Set up the RJE identifiers if 
necessary. 

Initialize the new task registers by 
storing them in the save area of the 
new TCB: 



save area address 
IPW$DTL address 
IPW$DPD address 



Reserve storage for the TCB extension 
area of the new task. 

Initialize the 3800 printer setup 
portion of the extension area with 
system defaults: 

• Set initialize printer flag 

• Set forms identifier to blanks 

• Set DEBUG=NORM flag 

• Set flash identifier to blanks 

• Set number of copies to be flashed 
to 255 

• Set TRC=no flag 

• Set first copy group value to one 

• Set copy group index to one 

• Set correct length of SETPRT 
parameter list. 

• Set default required flag 

Note : The defaults are taken of the 
PUB2 area related to the device at a 
later time. 

Attach the new writer task into the 
system. 

The owner address in the PDB is 
reset, so that control will be passed 
to the execution list task when a 
user request is received. 

Reset task entry. 



XR47 



QNQI(IPW$DQR) 
QNSP(IPW$DQR) 

QNQI(IPW$DQR) 

QNSP(IPW$DQR) 
TNGW(IPW$DTC) 

QNTJ(IPW$DQR) 



SPLFLAG1 
SPLFORMS 
SPLFLAG2 
SPLFLASH 
SPLFLSHC 

SPLFLAG1 
SPLCOPYG 
SPLCINDX 
SPLLNGTH 

(IPW$DTE) 
TE38RQB 



TLTC(IPW$DDE) 



PDCB(IPW$DPD) 



R2 



R2 
R4 
R6 



Rl 



IPW$RSW 
Chart: AC 



x_.y 



IPW$ATT 
Chart AA 



V_ 
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Labels 


Chart KA07.1: IPW$$XR - Execution Reader 


Modified Data 
Fields 


Reg. 
Usage 


Calls 




If this is a writer-only partition. 


>|XR12 
I 










Otherwise, branch to. •••••••••••••• 


1 

>|XQ00 

1 
1 

1 

1 
i 








XR60 


Handle LST/PUN from SLI 




R2,R3 




Save request word. 




If length of record <71, branch to. 


1 

>|XR62 
i 










Set length to 71. 


1 
1 

i 








XR62 


A call is made to IPW$$XJ to scan 
JECL record. 

If not a JECL record branch to 

Restore request word 


i 
i 
i 
i 

>|XR64 
1 
1 

1 




R2,R3 


IPW$SXJ 
Chart GB 


Branch to get next record 

L ,_!_ . 


>|XQ55 

X X . X X J 



( 



498.1 



x_y 



JLabels | Chart KA07.1: IPW$$XR - Execution Reader 



I 



| Modified Data 

I Fie Ida 
_ + _ 



|Reg, |Calls 
|Usage | 



| XR6 4 

I 
I 



IXR70 



I 



IXR72 



I 



IXR76 



I 



I XR7 8 



I XR8 2 



I 



"T" 

I 
I 



| Restore request word. 

I 

| Branch to.... >|XQ6 2 

I I 

I Check for 3540 | 

I I 

| If in the current queue entry the | 
| physical unit for 3540 data spooling j 
| is specif ied,* an extra device list | 
j entry is initialized in the PDB. All] 
| requests to the specified 3540 will | 
| be trapped and spooled as long as the| 
| current queue entry is in effect. | 

I I 

fusing register 3 as a base register,, | 

| the PUB ta'ble is scanned for a | 

I matching entry. | 

I I 

I If no matching entry is found,, branch | 

ICheck if matching entry is a 3540. | 

I If so , branch to > | XR7 8 

I I 

| Issue message 1Q8-8I INVALID 3540 UNIT] 

I I 

I I 

| Set cancel code and branch to...... >|XQ06 

I I 

| Initialize the 3540 spool entry: | 

I I 

| • Update the first entry address | 

| • Store the PUB address | 

| • Store the TCB address | 

| • Set the device type | 

| • Set the device class | 

J • Update the number of entries | 

I I 

(Process new request. Branch to.... >|XQ00 

I I 

1 Emulate Invalid Operation 



I 

| Set the channel status byte to XV20" | 
| to indicate channel program check. j 



I | Set the first communication byte to | 
j IX'20' to indicate unrecoverable I/O | 
| | error. | 



I 
I 

| PDPA(IPW$DPD) 

|TLPU(IPW$DDE) 

|TLTC(IPW$DDE) 

|TLDT(IPW$DDE) 

|TLCL(XPW$DDE) 

|PDNE(IPW$DPD) 

I 

I 



|R2,R3 | 
I I 



I 



|R3 



I 



I 



| IPW^WTO 
| Chart AD 



fCBSC(IPW$DCB) j I I 

I I I I 

I I I I 

|CBCl(IPW$DeB) j I \ 

I I I I 

I i I I 



U99 



Labels 



Chart KA07.2: IPW$$XR - Execution Reader 



Modified Data 
Fields 



Reg. 
Usage 



ICalls 



w 



XR84 



XR86 



XR89 



XQOO 



If the user accepts unrecoverable 
errors , branch to get the next 
command > 

Update the CQW address and store it 
in the CC&. 

Reset the residual count to zero. 

Post channel and device end. 

Calculate the task PIB address in 
register 7. 

Set the PIB to X'lA' to indicate 
cancel due to I/O error. 

Issue message IR3 0I. 

Indicate fetch for EOJ and cancel in 
progress in the PIB. 

Branch to get the next command...... > 

Emulate Transfer in Channel 



Load the address of the next CCW into 
register 8 and branch back* > 

Emulate Sense Operation 



If an invalid sense command was 
issued branch back > 

Get the address of the data field in 
register- 1 and the length in register 
2 and move the sense information, 
with all bits set to binary zero. 

Wait for User Requests 



Unpost the event control block in the 
TCB. 

Check the reader entry in the PDB for 
a user request. 

If an accounting request was issued, 
branch to > 

If a read request was issued,, branch 
to. . > 

Set up register 4 for examining the 
remaining entries. 



X07 2 



XQ74 



XQ28 



XQ3 2 



XR3 2 



XQ12 



CBCS(IPW$DCB) 

CBCT(IPW$DCB) 
CBC1(IPW$DCB) 



R7 



R8 



R1,R2 



TCEB+2(IPW$DTC) 



R4 
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I Labels 



Chart KA08: IPW$$XR - Execution Reader 



Modified Data 
Fields 



Reg. 
Usage 



T 1 

Calls 



JXQ02 



|XQ04 



JXQ05 



IXQ06 



|XQ07 
|XQ08 



|XQ09 



IXQ10 



Check for end of list, 
to 



If so, branch 
• > 



Check the remaining entries in the 
PDB. If a request was issued branch 
to handle the output request > 

Check for a 3540 request. If so, 
branch to , > 

Check whether the operator has 
entered a PFLUSH command. If not, 
branch to. , . . > 

Check whether the user partition is 
to be canceled due to a program 
request or because the operator has 
entered a PFLUSH command. If so, 
branch to . . , > 

If a PFLUSH command with the HOLD 
operand has been entered,, the 
disposition of the queue record is 
saved, to preserve the input queue 
for later processing. I 

Otherwise, branch to... >l 

Using register 7 as a base register 
to the partition PIB, the cancel 
flags in the PIB are set. 

The dump options are set off for the 
partition. 

If SLI work space is present, it is 
released. 

The termination byte in the TCB is 
reset. 

Set the POWER/VS cancel code in the 
queue record. 

Indicate normal record in the TCB. 

If a buffer is available branch to. > 

Reserve buffer space. 

Store the real and virtual buffer 

addresses in the TCB. 

Point register 7 to the data buffer. 

Add 2 to the buffer address and store 
it as the previous record in the TCB. 
Move a /& into tne buffer. 

Exit to task selection to wait for a 
user request. 

On return from task selection branch 
to > 



XQ04 



XR4 2 



XQ12 



XQ10 



XQ06 



XQ10 



XQ09 



QRDI(IPW$DQR) 



R7 



TCTT(IPW$DTC) 
QRCN(IPW$DQR) 
TCGP(IPW$DTC) 

TCDA(IPW$DTC) 
TCPR(IPW$DTC) 



IPW$RSW 
Chart AC 



R7 



IPW$WFC 
Chart AA 



XQ00 
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Chart KA09: IPW$$XR - Execution Reader 



| Modified Data JReg. 
[Fields (Usage 



Calls 



I 



l'XQl.4 



I 

|XQ15 



|XQ16 



IXQ1.8- 



|XQ19 
I 



Handle Read Request 



(XQ12 | Check the job boundary switch in the 
TCB: 

If a job is in progress, branch to 
emulate the channel program... > 

If a job has just completed 
execution, branch to the end of job 
routine. . > 

Get a new queue record. 

If a record is obtained branch to. . > 

Issue message 1Q34I to the operator. 

Indicate Q state. 

If the task is in S or E state, 
branch > 

Exit to task selection to wait for a 
new entry to be added to the queue. 

Check the termination indicator. If 
a PSTOP or PEND command has been 
issued branch to the task termination 
routine. . . ....... . . . .... ... ........ > 

Get a new queue record. 

If no record is obtained, branch to > 

Reset q state indicator. 

Set up register 5 as a base register 
for the queue record. 

Ready the task to obtain data records 
and to react to requests from the 
user program being executed in the 
related DOS/VS partition: 

• Move data seek address into disk 
request word. 

• Set job boundary switch to X" FF* 
to indicate job in progress. 

• Clear the general purpose byte. 

• Move the virtual work space 
address into blocking control word 
in preparation of the first read. 

• Move 'from' RJE ID in printable 
format to TCB. 

If in the current queue entry the 
physical unit for 354 data spooling 
is specified branch to. . ........ .... > 

Otherwise , branch to ............... > 



XQ26 



XQ8 2 



XQ18 



XR22 



XR22 



XQ16 



I 



I 
I 

| POWFLQ1 

I 
I 



I 
I 

|P0WFLQ1 

I 



|TCDW(IPW$DTC) 



I 



|TCGP(IPW$DTC) 
hTCPR(IPW$DTC) 



I 



'I! 



IR5 



I 



|TCJB(IPW$DTC) | 



I 



|TCFL(IPW$DTC) j 



\,,y 



IPW$GQS 
Chart DC 



ipw$wto 
Chart AD 



IPW$WFQ 
Chart hC 



IPW$GQS 
Chart DC 



XR7 | j 

XQ00 | | 



if 
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c 



(Modified Data 
(Fields 
. + 



Reg. 
Usage 



Calls 



( 



I 

I 
|XQ26 



JXQ28: 



JXQ29 



I |XQ2A 
I 
I 



|XQ30 



( Emulate Channel Program | 

I I 

| Set up register 8 as a base register | 
(for the channel command word. For j 
| EXCP real lf branch to handle invalid | 
| operation. ......................... > | XQ32 



(Validate data area addresses. 

I 

| If valid, branch to. . . . . . . . . . 

| If invalid, branch to. ...... . 

I 

| If not control command. ... . ,. . 

I 

( Classify 'Command 



>|XQ29 
>|XQ2A 

I 

>| XQ3 2 
I 
I 



(If the IDAL flag or data chain flag | 
| is present in the channel command j 
(word, which feature is not supported | 
| by POWER/ VS f branch to ....... . >| XQ32 

I I 

[Check the low- order four bits of the [ 

| command code to determine which | 

[handling routine to branch to for | 

| handling the command: | 

I I 

| • Invalid operation ...........*... > | XR8 2 

|« Transfer in channel >[XR86 

| • Sense operation > ( XR8 8 

| • Write operation. >| XR82 

| • Control command . ................ > | XR89 

| • Read operation. ................. > ( XQ4 6 

..x . . ,„j. . — 



I 



I 
I 



R8 



IPW$VDA 
Chart AH 
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| (Fields 
f T + 

XQ39 |Set residual count to ?ero and branch| | 
| to get next command. >|XQ70 | 

j Emulate Read Operations 1 | 


XQ46 | Check whether the user program | j 
| attempts to read past a /& statement.! | 
| If not , branch to > | XQ4 8 | 


| Using register 7 as a base register | | 
|to the PIB, the PIB is set to | | 
| indicate cancel due to reading past | | 
|/£ and a branch is made to cancel the) j 
|task >|XQ34 | 


XQUS (Check the pointer to the SLI work | | 
| area in the PDB to determine whether | | 
|the task is in SLI mode of operation. | | 
| If not, branch to >|XQ5 2 | 

j Check whether the SLI routines | | 
j require an additional record from the| | 
| data file. If not, branch to >|XQ50 | 

(data file. | ( 



|Reg. 
[Usage 



I Calls 






\>^y 



|R7 



L J. 



| IPW$GDR 
|Chart EB 

X i X X J 
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Chart KA12: IPW$$XR - Execution Reader 



Modified Data 
Fields 



Reg. 
Usage 



Calls 



|XQ50 



JXQ52 



|XQ53 
|XQ5A 

|XQ5B 

|XQ54 



JXQ5D 



|XQ5C 



JXQ56 



Get the next record from the source 
statement library. 

If the record is a data record, 
branch to . , > 

If SLI record begins with "* $• 
branch to > 

If not , branch to. > 

Check the general purpose byte for 
end of data. If so branch to the end 
of job routine > 

If reader device has read only 
function go to * » . . > 



If read only switch is on > 

Get the next data record from the 
data file. 

Check if user CCB address changed. 
If not, then branch to > 

Check the new record to see whether 
it is a JECL statement. If not, 
branch to > 

Link to the JECL statement analysis 
routine (IPW$$XJ) . 

If the statement is not JECL, branch 
to > 

£ranch to get the next record...... > 

If command code is not read only. . . > 
If read only switch is on, then 

branch to bypass read to > 

If not on, then turn switch on and 
read card > 

Turn read only switch off, bypass 
read, and give the same card buffer 
to register > 

Load the record address in register 
Load the record length in register 1. 

Check for a 3540 request. If not, 
branch to . . . > 

Check for a 3540 data record. If so,, 
branch to > 

Issue message 1Q89I PROGRAM OUT OF 
SEQUENCE. 

Branch to cancel the job > 



XQ54 

XR60 
XQ6 2 

XQ8 2 

XQ5D 
XQ5C 



XQ00 



XQ56 



XQ56 
XQ46 
XQ5 3 
WQ5B 
XQ5A 

XQ5B 



XQ6 
XQ58 

XQ32 



IPW$GSL 
Chart GE 



IPW$GDR 
Chart EB 



IPW$SXJ 
Chart GB 



TCG2 
TCG2 



R0 
Rl 



IPW$WTO 
Chart AD 
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Labels j Chart KA12.1: IPW$$XR ~ Execution Reader 



(Modified Data 
| Fields 



(Reg. j Calls 
(Usage j 



XQ58 



XQ60 
XQ62 



| Check for 3540 end of file. 

I XJiCinCXl C- O • • • * . • • . ... • • . • • > • . • . . m m « . • • 

1 

| Set unit exception, 
jset special EOF. 

I 

I jz?rancn 1^0 • • . « • * • «.••••••••• .« * • .. • • . .. . 

I 

| Check for 3540 data record. If so,, 
(branch to get the next record...... 

I 



If not,, j 
, . . . ... >} XQ62 

I 

I 

I 

1 
....... >JXQ72 



>jXQ46 



|Check the record for end of file C/*)| 
(or end of job (/£),, and if so, set ] 
| the appropriate flags in the FIB. | 



J 



JCBSD(IPW$DCB) 
|CBC2(IPW$DCB) 






i 



V>' 



v. 
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[Labels 
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[Chart KA13: IPW$$XR - Execution Reader 

L - — . — ■ —. — — - - - - - 


T 

| Modified Data 
| Fields 

L _ «.„-.„. 


|Reg,. | Calls 
| Usage | 

§ ,. —j _ 


r 1 

JXQ64 


r i 

|Set EOF on reader, 

|Set unit exception. | 


r — — 


f 

|CBC1(IPW$DCB> 


— t — ~f- — 


|XQ66 


|Load the user record length into 
register 3. 

|Load register 2 with maximum record 

128 when reading from 3540, otherwise 
| 80. 






|R3 1 
|R2 | 


|XQ67 


|Set residual count to zero. 

jlf CCW count is the same as maximum 
I record length, branch to. •••••••••. > 


XQ69 
XQ68 


|CBCT(IPW$DCB) 






If CCW count is lower than maximum 
1 record length , branch to. ••••••<•••• > 








[Otherwise, calculate residual count 
i and store it in CCB. 


|CBCT(IPW$DCB) 






Calculate number of bytes to move. 








|XQ68 


I If SLI bit is not on, indicate wrong 
| length error. 




|CBSeCIPW$DCB) 




|XQ69 


[If wrong length is posted, break I/0> 
I Get Next Command 


XQ72 
XQ28 


|CBSC(IPW$DCB) 




[XQ70 


| If the command chaining bit is on, 
load the address of the next CCW into 
| register 8 and branch to handle the 
[ next command. > 


|R8 | 


[XQ72 


[Set the necessary flags in the first 
| communication byte, and update the 
|CSW CCW address in the CCB. 

| If the emulator interface is active,, 
post the emulator ECB if required* 

Set the user partition PIB to 
di spatchable . 




|CBC1(IPW$DCB) 
|CBCS(IPW$DCB) 

|PDPB 




|XQ7U 


[Reset the task entry in the PDB. 

| Check the general purpose byte for a 
data break condition. If not, branch 
I to. 1 > 


XQ80 


|TLCB(IPW$DDE) 


(R7 | 


|XQ76 


|Scan the entries in the PDB for 
relating writer tasks, and if found,, 

| indicate the break condition in the 
writer TCB. 


|TNTT(IPW$DTC) 




|XQ78 


Release the data buffer. 
| Clear the addresses in the TCB. 




|TCDA(IPW$DTC) 


| |IPW$RLW 
| | Chart AC 



L X , r X 



_X X X J 
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Labels 



Chart KA14: IPW$$XR - Execution Reader 



Modified Data 
Fields 



Reg. 
Usage 



t 1 

Calls 



XQ80 



XQ8 4 



XQ86 



XQ88 
XQ90 



XQ92 



XQ94 



Check the general purpose byte for 
the end of data. If not, branch to 
wait for the next user request > 

Set the job boundary switch to X'OO'. 

Branch to wait for the next user 
request . . . > 

End of User Job 



If .writer only partition, branch to > 
Release data buffer. 

Set up register 8 for shutting down 
any subordinate writer tasks. (R8 = 
address of first entry in PDB.) 

If partition starts as 'MT 1 (multi- 
tasking) branch to > 

Scan the entries in the PDB. 

If DISP is not N, branch to > 

If the device entry contains a class 
code of ' N', the device class is 
reset to C'L' (for list) or C'P' (for 
punch) . 

Release the ownership of the device, 
and branch to > 

If a task has been started: 

• Reset the ownership in the TCB. 

• Set terminator type to C'S'. 

• Post event control block. 

Wait for signal from the list task. 

Load the address of the next entry 
into register 8. 

Check for the end of entries. If 
not, branch to > 

Check if this is a writer-only 
partition. If so, branch to....... > 

Check for a 3 54 unit specification. 
If not, branch to, > 

Release the 3540 device list entry: 

• Zero the 3540 entry 

• Update the first entry address 

• Update the number of entries 

Delete the queue record from the 
queue. 

Release the queue record. 



XQ00 



XQ00 



XQ8 4 



XQ9 3 



XQ9 



XQ9 2 



XQ86 
XQ96 
XQ94 



TCJB(IPW$DTC) 



R8 



TLCL(IPW$DDE) 



TLTC(IPW$DDE) 
TNTT(IPW$DTC) 
TNEB+2(IPW$DTC) 



R8 



PDER(IPW$DPD) 
PDPA(IPW$DPD) 
PDNE(IPW$DPD) 



IPW$RLW 
Chart AC 



IPW$ULP 
Chart GC 



IPW$WFC 
Chart AA 



IPW$DQS 
Chart DD 

IPW$FQS 
Chart DD 
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XQ96 (Check the termination indicator in | | II 
|the TCB. || II 

1 1 1 1 1 
| If it is blank branch to get the next| | | | 
jfrom queue >|XQ1U | j | 


i i i i i 

| Otherwise, branch to the reader | | | | 
1 termination routine .....••••••••••• >| XR22 1 1 1 


X X X X X 
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CHART KB: IPW$$XW - EXECUTION WRITER (17 PARTS) 



Chart KBOO: IPW$$XW - Execution Writer, General Flow and Macro Calls 






IPW$$NU 



Task Management 
(Attach the task) 



Functions 



Services 



Queue Management 


Module 


Macro 


Ref. 


Chart 


9: £ 2: 


IPWSRQS 
IPW$AQS 
IPW$FQS 


1 


DA 
DB 



Data Management 


Module 


Macro' 


Ret. 


Chart 


IPW$$PD 


IPW$PDR 


Ill 


EA 



Miscellaneous 


Module 


Macro 


Ref. 


Chart 


-i X O 
& <» <» 
5 5 5 


tit 


IV 
V 


GC 
GB 



=o 



IPW$$XW • Execution Writer 



<= 



xvoo 

XW64 
XW74 
XW84 
XXOO 
XX02 



Start new partition job 

End of user job 
Output segmentation 
Handle break condition 
Wait for user program request 
Emulate channel program 



IPW$$NU 



Task Management 
(Detach the task) 



Functions/ 
Interfaces 



l,lll,IV 

II.III.IV 
l,ll,lll, 
III 



B,D,E, 
F,G,H 

A,E 

F,l 

C,D,E 

C 

F,l 



=o 









IPW$$NU 


Macro 


Ref. 


Chart 


Task Management 


A 
B 
C 

D 
E 

F 
G 

H 

I 


AA 

AC 
AD 
AF 
AH 


IPWSDET 
IPW$WFO 
IPWSWFC 


Storage Management 


IPW$RSW 
IPW$RLW 


Message Service 


IPWSWTO 
IPW$WTR 


Tape Service 


IPWSCTT 


Validation Service 


IPWSVDA 


I) 


Resource Management 




IPW$RSR 
IPW$RLR 





v._,y 



4' 
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Labels 


Chart KB01: IPW$$XW - Execution Writer 


Modified Data 
Fields 


Reg. 
Usage 


Calls 




T 

This routine is initiated by the 












Execution Read Processor „ which has 












acquired a queue space and formed the 












queue record for this task. 










xwcs 


CSECT name 










XWSD 


The first 16 bytes constitute the 

• XWCS V1 0M1 1 
Reqister usaqe 






R0 






0: **** - Service work register 






1 


. **** - service work register 






Rl 






2 


**** - service work register 






R2 






3 


**** - service work register 






R3 






4 


i IPW$DDE - Entry in PDB 






R4 






5 


IPW$DQR Queue record space 






R5 






6, 


IPW$DPD - PDB 






R6 






7. 


IPW$DCB - User CCB 






R7 






8: 


IPW$DCW - User CCW 






R8 






9 


XWCS - Base register 






R9 






10. 


IPW$DPA - POWER/VS nucleus 






RIO 






11, 


IPW$DTC - Task control block 






Rll 






12 


**** - Reserved for nucleus use 






R12 






13 


IPW$DSV - Task save area 






R13 






14 


. **** _ Function linkage register 






R14 






15: 


**CS - Function base register/ 












2nd base register 












Start New Partition Job 






R15 






Set up second base register, using 






register 15. 










xvoo 


Reserve space for the data buffer in 
which the output records are to be 
formed. 

Store the data buffer addresses in 
the TCB. 

The buffer control word (BCW) of the 
queue record and of the TCB extension 
area, which have been acquired by the 
execution reader task, are updated, 
so that the ownership references the 
proper execution writer task. 
(Note: This is necessary so that the 




TCDA(IPW$DTC) 


R1 


IPW$RSW 
Chart AC 




storage can be released properly if 






abnormal termination of the task 












should occur.) 












The jobnumber obtained from the 












reader queue entry is saved for 












accounting purposes. 




QRJ#(IPW$DQR) 


R1 ,R14 




XV06J 


Update job number so that all output 
may be easily manipulated by 












ope 


orator. 











( 



^iltfcj^ 



-J 
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Labels 
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Chart KB01.1: IPW$$XW - Execution Writer 


r t t 1 

Modified Data Reg. | Calls | 






Fields 


Usage 


I I 

L J 


. 


T 

Reserve queue block. 


_. 


R3 | IPW$RSR | 
1 Chart AB | 

1 ! 




Get next number for this queue entry. 




QRNO(IPW$DQR) 


,R1 


1 1 

1 

1 1 




If number is >32767, set back to 1. 




|MRNO(IPW$DQC) 


|R1 


1 1 

1 

1 1 


XV08 


Release queue block. 

Set the tape flag in the TCB to X'OO' 
to indicate 'no tape'. 

If disposition not = , T , r branch to. > 


XV14 


TCQW(IPW$DTC) 




IPW$RLR | 
| Chart AB | 

1 


XV12 


Call IPW$OTP to open tape. 






IR2/R0- 


IPW$OTP 
Chart GG 




If disposition has been changed by 
open function , branch to • > 


XV14 
XV16 


1 


R0 




If this is first open, branch to... > 


XV14 


Otherwise branch to > 


XX38 




|R2 


IPW$RQS 
Chart AC 


Reserve a queue record. 




Set up record pointer. 




TCBC(IPW$DTC) 








Set up seek address. 




TCDW(IPW$DTC) 








If disposition changed for tape,, 
branch to > 


XX38 








XV12 


If hot a 3800 printer, branch to. .. > 


XV20 




R2 






Branch to get the system defaults 
for the particular printer device.. > 


XVAO 




R14 






If no modification character 












arrangement table is specified, 
assume the first character arrange- 
ment table as such. 




SPLCMCHR 

(IPW$DTE) 




.„, ,.-. j 



^. 



' V . s 
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Labels 


Chart KB02: IPW$$XW - Execution Writer 


.................. 

Modified Data 
Fields 


Reg. 
Usage 


Calls 


XV20 


Forms Control Buffer Processing 


XV20 
XV30 
XV70 
XV40 


TCCT(IPW$DTC) 


■———————« 

R3 
R2 


.-.—-.———_—— 


If FCB name specified, branch > 

If 3800 printer, branch to > 


Link to get default FCB name > 

Branch if not a FCB type printer... > 




the model GENL and the phase name 
into the work space and branch and 
link to the phase load subroutine.. > 


XV74 




R14 






If an error has occurred branch 

to > 


XV26 
XV80 




R0 




Set up register for converting the 
FCB to line table and branch and link 
to the line table subroutine > 




If an error has occurred branch 

to > 


XV28 

XV24 
XV56 








Check the device type code. If the 
device is a 3211 or 3203-4 (X'i\3') r a 
3203 (X^A'), a 5203 (X»4C»), or a 
5203U (X'4D') branch to > 


If a 3800 printer, branch to > 




Otherwise, indicate no FCB printer 
and branch to check for UCS buffer 
loading > 


XV40 


TCCT(IPW$DTC) 






XV24 


Branch and link to set up a special 
record containing LFCB macro 
expansion > 


XV76 




R2 






Pass record to data file. 






R2 


IPW$PDR 




The total record counter is 
decremented by one because the FCB 
record is not a user data record. 




QRNR(IPW$DQR) 


R1 






If there is no UCS name specified, 
branch to > 


XV56 

XW76 
XV40 


TCGP(IPW$DTC) 


R2 
R2 


IPW$PDR 


Otherwise, indicate end of block 

and branch to > 


Branch to process UCS load > 


XV26 


Copy the default line table from the 


XV90 




R14 




XV28 


Issue message IQ54I FCB/UCB ERROR 
FOR . 




- 




IPW$WTO 
Chart: AD 


I 


Indicate that FCB is wrong. 




TCCT(IPW$DTC) 
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Chart KB03: IPW$$XW - Execution Writer Modified Data Reg. Calls 

Fields Usage 

L ... -L i. X J 


XV30 


If 3800 printer, branch to, > 


XV56 
XV40 

XV90 
XV56 


R1 4 


„ - 


Otherwise, branch to process UCS 
buffer load, .., > 


Copy the default line table from the 
master queue record into the TCB... > 

Branch to process SETPRT record.... > 



V 
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Labels 



Chart KB03.1: IPW$$XW - Execution Writer 



I 



Modified Data 
Fields 



Reg. 
Usage 



Calls 



XV40 



XV42 



( 



XV48 



XV50 



XV56 



jf**\ 



UCS Buffer Loading 



Check whether UCS buffer loading is | 
needed. If not, branch to . . . . > |XV56 



Check the device type code* If the 
device is not a 1403U (X , 42 , ) f a 
3211 or 3203-4 (X'43'), a 3203 
(X^A 1 ), or a 5203U (X^D'), branch 
to > 

The UCS buffer length is set to 512 
bytes for a 3211 or 3203-4 printer or 
to 240 bytes for all other supported 
printers. 

Set up for loading the UCS buffer by 
moving the model GENL and the phase 
name into the work space and branch 
and link to the phase load 
routine > 

If an error has occurred, branch 

to > 

If the UCS buffer length is incorrect, 
branch to > 

Set up the record control word in the 
TCB by storing the data address and 
the foid operation code and pass the 
record to the data file. 

Branch and link to the update count 
subroutine > 

Set up the record control word in the 
TCB by setting the block code and 
pass tne record to the data file. 

Branch and link to the update count 
subr outi ne > 

Set up the record control word in the 
TCB by storing the text address and 
the UCB command and pass the record 
to the data file. 

Branch and link to the update count 
subroutine > 

Branch to clear the UCS name in the 
TCB > 

Issue message 1Q54I FCB/UCS ERROR 
FOR to the operator. 

Clear the UCS name in the TCB. 

Clear the restart information in the 
TCB. 



I 



[XV56 



XV74 



XV50 



XV50 



XV72 



XV72 



XV72 



XV56 



TCRW(IPW$DTC) 



R3 
R3 

R14 



TCRW(IPW$DTC) 



TCRW(IPW$DTC) 



TCRW(IPW$DTC) 



R1 



R14 



R1 



R14 



R1 



R14 



TCCT(IPW$DTC) 
TCRS(IPW$DTC) 



IPW$PDR 
Chart EA 



IPW$PDR 
Chart EA 



IPW$PDR 
Chart EA 



IPW$WTO 
Chart AD 
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3800 Setup processing 


r 

XV58 


__ „ ... T 
R2 




Address TCB extension area using 




register 2 . 












Set up record control word in the TCB 




TCRW(IPW$DTC) 


R3 






address and the X'FD 1 operation code. 




TCCC(IPW$DTC) 








Pass the SETPRT record to the data 






R1 


IPW$PDR 




file. 








Chart: EA 




If no copy grouping is specified, 
use the copy value. 




QRNC(IPW$DQR) 






XV58 


If the number of copies indicator is 
zero, it is set to one. 

Branch to wait for a user 

request > 


XXOO 


QRNC(IPW$DQR) 

1 


I 





V 



V 



y 



/f 
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End of User Job 








k — ^ 


XV60 


Check the record count in the queue 
record to see if any output has been 
generated. If so, branch to > 

If tape spooling, branch to > 


XV62 
XV62 










Set disposition to ' D' and free 
queue set. 




QRDP(IPW$DQR) 


R1 


IPW$FQS 
Chart: DE 


XV62 


Branch to > 


XV66 
XW76 


TCGP(IPW$DTC) 


R2 




Set end of data and branch and link 
to the NOP creation subroutine > 




Indicate end of segment in the queue 
record. 




QRSN(IPW$DQR) 








Check the disposition indicator to 
see whether the record has to be 
added to the reader queue. If not, 
branch to > 


XV64 


QRSN(IPW$DQR) 






For reader entry, set the suffix 
number to zero. 




Set the queue record identifier to 
C'R'. 




QRQI (IPW$DQR) 








Set the disposition to CD 1 . 




QRDP(IPW$DQR) 






XV64 


Add the current queue set to the 
class chain. 






R1 


IPW$AQS 
Chart: DB 


XV66 


Return the data buffer space to the 
storage pool. 

Check for tape processing, and if so: 






R1 


IPW$RLW 
Chart : AC 




• Release the tape assignment. 
Restore original mode in PUB. 

• Return the tape control space tc 
the storage pool. 




PUB (Byte 6) 


R0,R1 


IPW$ULP 
Chart GC 
IPW$RLW 
Chart AC 


XV68 


Return the queue space, if present, 
to the storage pool. 








IPW$RLW 
Chart AC 




Reset the space addresses in the TCB. 




TCQA(IPW$DTC) 


R0,R1 






Return the TCB extension area, if 
present, to the storage pool. 






R1 


IPW$RLW 
Chart AC 




Set the Execution read task to 
dispatchable. 




TCSF(IPW$DTC) 






XV69 


Detach the Execution writer task: 








IPW$DET 
Chart AA 




• The task is removed from the task 
selection list. 

• The TCB storage is released. 








_ 
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XV70 


Set up Default FCB Name 










$$BFCB for 3211 or 3203-4 
$$BFCB3 for 3203 
$$BFCB5 for 5203 




Return (R2) if not FCB printer. 






R2 






Return 4 (R2) if FCB printer. 






R2 




XV72 


Update Line Count Subroutine 




QRLC(IPW$DQR) 


R1 




Increment the line/card count in the 
queue record by one. 




Increment the number of lines spooled 
in the PDB. 




PD#L(IPW$DPD) 


R1 






Return to caller via link register 
14. 






R14 






Phase Load Subroutine 










XV74 


Fill in the parameter list for the 
FETCH routine: 

• Store the phase name address. 

• Store the load list pointer. 

• Store the end of list indicator. 

• Set the option switch to X'OV to 
indicate no text loading. 

Load the address of the parameter 
list into register 1 . 

Ensure that the load may indeed take 
place by loading the entry point into 
register and issuing an SVC 4. 

If the phase is not present in the 
core image library, or if its size is 
invalid, return to caller via link 
register 14. 

Store the buffer length in the TCB. 

Set the option switch in the 
parameter list to X'00' to indicate 
loading of text. 

Load the address of the parameter 
list into register 1. 

Load the phase by loading the entry 
point into register and issuing an 
SVC 4. 




TCRS(IPW$DTC) 


R1,R2 

R1 
RO 
R14 

R1 
RO 






Load the load point address of the 
phase in register 3 and the directory 
list pointer in register 2. 






R3 
R2 


- 



iC 
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„ _ 

If not a 3800 printer, branch back to 
caller. 


■' 




R14 






If the phase just loaded is not an 
FCB, take error exit. 






R2 






Get the FCB length out of the header 
and save it in the TCB. 




TCRS(IPW$DTC) 


R2 






Bump with register 3 over the FCB 
header. 






R3 






Return to caller via link register 
14. 






R14 






Build FCB-record 










XV76 


If no FCB name is specified in the 
TCB, return to caller. > 


R2 


TCRW(IPW$DTC) 
TCCC(IPW$DTC) 


R2 
R3 




Initialize LFCB macro expansion in 
data buffer and set up record control 
word in the TCB with an X'FF* command 
code. 




Return to caller via register 2. . . . > 


R2 




R2 






Process FCB to line table 












The carriage control line table in 
the TCB is set according to the 
specified FCB image. 












Register on entry: 

R0 - lengths of FCB image 

R3 - points to 1st byte of FCB 












Clear out line table in TCB. 




XWLC(IPW$DTC) 








Add the FCB start address to 
register 0, so that register 
points to the end of the FCB image. 






R0 






If not a 3800 printer, branch to... > 


xvco 










For a 3211 or 3203-4 printer, the 
index byte is ignored, if present. 






R3 




XV83 


Each FCB buffer position is checked 
for a channel specification. If the 
channel position is valid, it is 
stored in the TCB at its proper 
location. 

If an invalid channel position is 
specified, branch to > 


XV90 
XV94 


XWLC(IPW$DTC) 


R0,R1 
R2,R3 




If end of FCB image, branch to. 1 . . . > 


XV90 


The carriage control line table in 
the TCB is set to the default line 
table from the master queue record. 




XWLC(IPW$DTC) 


R2 
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If not a 3800 printer, return to 
caller via register 14 


R14 


QRER(IPW$DQR) 


R14 




Otherwise, subtract 6 from the 
default page size (the top and 
bottom 1/2 inch of the page are 
unprintable for the 3800 printer) . 




Return to caller via register 14... > 


R14 




R14 




XV94 


All channel positions are now 
converted to positions relative to 
channel one. 

Return to caller via register 14 
with a displacement of 4 > 

Get system defaults for 3800 Printer 

The system default information is 
obtained from the PUB 2 area and 
moved in the SETPRT parameter list 
which is part of the TCB extension 
area. 


4(R14) 


XWLC(IPW$DTC) 


R0,R1 
R2,R3 




XVAO 


Address the TCB extension area using 
register 2 as a base. 






R2 






If no system defaults are requested, 
return to caller > 


R14 




R14 






The logical data area (LDA) is used 
as a work space to carry a copy of 
the PUB2 area. 












The content of the PUB2 area is 

obtained by issuing the EXTRACT macro 

instruction. 

Construct the EXTRACT parameter list: 












• set length 

• set data area address 

• set ID flag (extract function) 

• set physical unit supplied flag 

• set physical unit address 




SVC98LN 
SVC98AR 
SVC98ID 
SVC98FL 
SVC98SE 








Clear out return code and issue 
SVC98. 






R1,R15 






On return, test for successful 
completion. If not, force program 
check by branching to > 


XWCS 








__ 


Reestablish the second base register, 
which has been destroyed by the 
EXTRACT supervisor function. 






R15 


-,,,,„ „ 



V 



v..> 



if \ 
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XVA2 
XVA4 
XVA6 
XVA8 
XVBO 
XVB4 

XVCO 


Now each field in the SETPRT 
parameter list is checked if 
specified. If not, the appropriate 
system default is inserted into the 
SETPRT parameter list, which is part 
of the TCB extension area. 

If a FCB name is specified or no 
FCB default name is defined, branch 
to > 


XVA2 
XVA4 

XVA6 

XVA8 

XVBO 

XVB4 

R14 


SPLFCB 
TCCT(IPW$DTC) 

SPLCHAR1 

(IPW$DTE) 

SPLCMMOD 

(IPW$DTE) 

SPLFLASH 

(IPW$DTE) 
QRFL(IPW$DQR) 

SPLFORMS 

(IPW$DTE) 
QRFI(IPW$DQR) 

SPLFLAG1 

(IPW$DTE) 
QRPS(IPW$DQR) 

SVR4(IPW$DSV) 


R2 
R14 

R4-R7 

- 


-, 


Save FCB name in TCB extension area 
and also in the TCB. 

If a character arrangement table is 
specified, branch to. > 


Otherwise, set the default character 
arrangement table in the TCB 
extension area. 

If a copy modification module is 
already specified, branch to > 

Otherwise, set default copy 
modification name in TCB extension 
area. 

branch to > 


Otherwise, copy the default flash id 
into the TCB extension area and the 
queue record. 

If a forms id is already specified, 
branch to > 


Otherwise, copy the default forms 
name into the TCB extension area and 
the queue record . 

If BURST=Y|N is specified, branch 

to > 


Otherwise, take the default burst 
specification and save it also in 
the queue record. 

Clear out the portion of the logical 
data area which has been used as work 
area, obtaining the default settings 
out of the PUB2. 

Return to caller > 


Validate 3800 FCB Image 


Since the subroutine uses more 
registers than are available, 
contents of registers 4-7 are saved 
in the own save area addressed by 
register 13. 
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The first 1/2 inch of the page (top 
margin) is not printable; therefore, 
counting the page size starts with 
the first printable line on the page. 
The FCB image is scanned to locate 
the first printable line. 












The total number of printable lines 
of the FCB image is calculated by 
taking the length of the FCB image 
and subtracting the number of bytes 
that represent the first and last 
half inch of the paper. This value 
is used as page size. 










XVG2 


Locate the first printable line of 
the page. 

Clear out work registers 1 and 2. 






R1-,R3 
R4,R5 
R6 

R1 ,R2 




XVC4 


Each FCB buffer position is checked 
for a channel specification. If the 
channel position is valid, it is 
stored in the TCB at its proper 
location. 

If an invalid channel position is 
specified, branch to > 


XVD4 


XWLC(IPW$DTC) 


R0,R1 , 
R2,R3 






If end of FCB image, subtract from 
page size the number of lines which 
represent the last half inch of the 
page. 






R1 ,R2 
R4,R5 
R6 




XVD4 


Restore registers 4-7. 

and branch to > 


XV94 
XV90 




R4-R7 
R4-R7 




Restore registers 4-7. 

Branch to • > 


Merge the current printer setup 




This subroutine merges the current 
printer setup contained in the TCB 
extension area with the just- 
obtained SETPRT-request. 












Register on entry: 
R1 - SETPRT parameter list address 
R3 - TCB extension area address 
R14 - return address 




I 

I 








Each field of the SETPRT parameter 
list is checked if specified. If so, 
the appropriate field in the TCB 
extension area is updated with the 
new value. In addition, if the new 
printer setup requires operator 
intervention, the segmentation- 
required flag is set. 


I 

I 

I 

I 

I 

I 

I 
I 
I 
I 
L_ L 







\ 



"v_> 



f 
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XVEO 


If INIT=Y is specified in the SETPRT 
parameter list, set the appropriate 
flag in the TCB extension area. 


r 


SPLFLAG1 

(IPW$DTE) 






XVE2 


If SEP=M is specified in the SETPRT 
parameter list, set the appropriate 
flag in the TCB extension area. 




SPLFLAG1 

(IPW$DTE) 






XVE4 


If SEP=0 is specified in the SETPRT 
parameter list, set the appropriate 
flag in the TCB extension area. 




SPLFLAG1 

(IPW$DTE) 






XVE6 


If FCB verification is specified, 
set the appropriate flag in the TCB 
extension area. 




SPLFLAG2 

(IPW$DTE) 






XVE8 


If DCHK=U (unblock data check) is 
specified in the SETPRT parameter 
list, set the appropriate flag in the 
TCB extension area. 




SPLFLAG2 

(IPW$DTE) 






XVFO 


If the DEBUG keyword is specified in 
the SETPRT parameter list, set the 
appropriate flag in the TCB 
extension area. 




SPLFLAG2 

(IPW$DTE) 






XVF2 


If BURST=Y|N is specified in the 
SETPRT parameter list, set the 
appropriate flag in the TCB extension 
area. 




SPLFLAG1 

(IPW$DTE) 






XVF4 


If TRC=Y|N is specified in the 
SETPRT parameter list, set the 
appropriate flag in the TCB 
extension area. 

If TRC is not specified but INIT=Y, 
the TRC=N flag is set in the TCB 
extension area. 




SPLFLAG1 

(IPW$DTE) 

SPLFLAG1 

(IPW$DTE) 






XVGO 


If an FCB name is specified in the 
SETPRT parameter list, save FCB 
name in TCB extension area. 




SPLFCB 

(IPW$DTE) 






XVG2 


If the same copy groupings are 
specified, branch to > 


XVG6 
XVG5 


SPLCOPYG 

(IPW$DTE) 
TE38RQB 

(IPW$DTE) 






If no copy groupings are specified, 
branch to • > 


Set the new copy group value in the 
TCB extension area and set the 
segmentation-required flag . 




Calculate the number of transmissions 
needed. 




QRTC(IPW$DQR) 


R0,R2 
R3 






Branch to continue > 


XVG6 




. 


- 
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j- 1 
XVG5 


r sm ' mm - ; ■""■■ ■ " "■"' — — 

If INIT=Y was specified, set the 
first copy group value and the 

Set segmentation-required flag. 




r " H 

SPLCOPYG 

(IPW$DTE) 

TE38RQB 

(IPW$DTE) 







XVG6 


If a different CINDX value is not 
specified, branch to > 


XVHO 
XVG7 








SETPRT request, branch to. ........ . > 




If CINDX value is > 1, update the TCB 

extension area. 

Branch to > 


XVG8 


SPLCINDX 

(IPW$DTE) 






XVG7 


If INIT=Y was not specified, branch 
to > 


XVHO 


SPLCINDX 

(IPW$DTE) 






Set CINDX value to one. 


XVG8 


Set the segmentation-required flag. 




TE38RQB 

(IPW$DTE) 






XVHO ! 


If a forms value different from the 
previous one is specified, update the 
TCB extension area and set the 
segmentation-required flag. 




SPLFORMS 

(IPW$DTE) 
TE38RQB 

(IPW$DTE) 






XVH4 


If FLASH was specified, update flash 
id and flash count in the TCB 
extension area. 

If INIT=Y was specified but no flash 
id, reset flash id and count in the 
TCB extension area. 




SPLFLASH 
SPLFLSHC 

(IPW$DTE) 

SPLFLASH 
SPLFLSH 

(IPW$DTE) 






XVIO 


If CHARS has been specified in the 
SETPRT request, the CHARS values are 
updated in the TCB extension area. 




SPLCHARS 

(IPW$DTE) 






XV12 


If MODIFY was specified, update 
appropriate fields in the TCB 
extension area. 

Return to caller via register 14... > 


R14 


SPLCPMOD 
SPLCHAR1 

(IPW$DTE) 






XWOO 


Handle SETPRT request 


XW88 








Check if the device is a 3800 
printer. If not, branch to > 




Address the SETPRT parameter list 
using register 1 . 






R1 






The TCB extension area containing the 
current printer setup is addressed by 
register 3. 






R3 






Check each field of the SETPRT 
parameter list. If specified, the 
appropriate field in the TCB 
extension area is updated with the 
new value by branching to > 


XVEO 




R14 







v.,y 



V. 
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XW06 


If no segmentation has been forced, 1 
branch to > !xwl fi 






- 


(Note: Segmentation is done when the 
new SETPRT request requires a 
different printer setup for BURST, 
FORMS, FLASH, COPYG, and CINDX.) 


i ~ 






Turn off segmentation-required flag. 




TE38RQB 

(IPW$DTE) 








Check the record count to see if any 
records have been trapped. If not, 
branch to > 


XW18 
XW76 


TCGP(IPW$DTC) 


R2 




Set end of data, branch, and link to 
the NOP creation routine . > 






Add the current queue set to the 
class chain. 






RO 


IPW$PDR 
Chart DB 




Reserve a new queue record. 

Reset record counts in the queue 
record to zero. 




QRNA(IPW$DQR) 
QRNR (IPW$DQR) 




IPW$RQS 
Chart DA 




Set the number of tracks used for 
spooling the output to one. 




QRNT (IPW$DQR) 


R1 






If not tape spooling, update the 
request word in the TCB. 




TCDW(IPW$DTC) 






XW08 


Set the suffix number in the queue 
record to zero. 

Update job number so that all output 
may be easily manipulated by the 
operator: 




QRSN(IPW$DQR) 








Reserve a disk management block 
(contains master queue record) . 






R3 


IPW$RSR 
Chart AB 




Get next number for this queue entry. 




QRNO(IPW$DQR) 


R1 






Increase next job number by one; if 
number is > 32767, set back to one. 




MRNO(IPW$DQC) 


R1 




XW10 


Release the disk management block. 








IPW$RLR 
Chart AB 


XW12 


Update the queue record with the 
values obtained from the SETPRT 
request: 

• forms-id 

• flash-id 

• copy groupings 

• paper thread request 




QRFI(IPW$DQR) 
QRFL(IPW$DQR) 
ORCG(IPW$DQR) 
QRPS(IPW$DQR) 






XW14 


Check if the CINDX value is > 1 . If 
so, the copy count is set to one, 
assuming that the user will manage 
the transmission himself. 




QRNC(IPW$DQR) 
QRCI (IPW$DQR) 

L 
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XW16 


Check if the transmission count is 
zero. If not, set number of copies 
to the same value. 




QRNC(IPW$DQR) 






XW18 


If no FCB name, or the same FCB, has 
been specified in the SETPRT request, 
branch to > 


XW32 
XV90 




R14 
R3 


IPW$RSW 
Chart AC 


Copy the default line table from the 
master record in the TCB > 


If the logical data area (LDA) is not 
empty, reserve temporary storage to 
carry the FCB image to be loaded. 


XW24 


Save the temporary work space 
address. 

Set up for loading the FCB by moving 
the model GENL and the phase name 
into the workspace. 




TE38GW 

(IPW$DTE) 


R2 
R3 






Branch to load the FCB phase > 


XV74 




R14 






If an error has occurred, branch 

to > 


XW26 
XV80 




RO 
R14 




Set up register for converting the 
FCB to line table and branch and link 
to the line table subroutine > 




If an error has occurred, branch 

to > 


XW26 


TCCT(IPW$DTC) 


R2 




Save the new FCB phase name 
(including prefix) in the TCB. 


XW26 


Branch to continue > 


XW30 


SPLFCB 

(IPW$DTE) 


R2 


IPW$WTO 
Chart AD 


Issue message: ! 1Q54I FCB/UCS ERROR. 1 

Clear out FCB name in the TCB 
extension area (SETPRT parameter 
list) . 


XW30 


When temporary storage has been used, 
it is released and returned to the 
storage pool. 






R1 


IPW$RLW 
Chart AC 


XW32 


Set up record control word in the TCB 
with the SETPRT parameter list 
address and with the X f FD f command 
code. 




TCRW(IPW$DTC) 
TCCC(IPW$DTC) 








Place record in data file. 






R1 


IPW$PDR 
Chart EA 




The total record count is decremented, 
by one because the SETPRT record is 
not a user data record. 

—— — _. — 


_ — — 


QRNR(IPW$DQR) 


R1 





^ 



^y 
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Some printer setup flags are turned 
off: 












• FCB verification 

• offset stacking 

• mark form 




SPLFLAG1 
SPLFLAG2 
SPLFLAG2 

(IPW$DTE) 








Branch to • > 


XX76 








Handle Q-SETPRT request 


XW36 


Move the proper system/programmer 
logical unit number out of the CCB 
into the SETPRT parameter list. 

Get the address of the data field in 
register 1 and the length in register 

■2". 

Move the current SETPRT parameter 
list into that area. 

Branch to get next operand > 


XX76 


SPLLUSYS 

(IPW$DTE) 


R1 
R2 






I i 
| Output Segmentation | 
1 1 










l l 
1 l 








XW58 


1 1 

1 Save current request word. | 




R0,R1 




I I 11 
XW76 |Set end of data and branch and link | TCGP (IPW$DTC) R2 | | 

jto the NOP creation subroutine >|XW76 | | 

L JL JL .X X X J 



^f pm %, 
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Labels 


r 1 

Chart KB 06: IPW$$XW - Execution Writer 


T T 1 

Modified Data |Reg. Calls 
Fields | Usage 

j._ .+.. j _ 




r 

Restore request word. 




1 — r 

TCRW(IPW$DTC) |R0,R1 
i 






Add the current queue set to the 




1 

i 

1 


IR2 


IPW$AQS 
Chart DB 




If intermediate storage is on 
magnetic tape if branch to the tape 
segmentation routine. •••••• > 


iXV12 


1 

1 


R0 




XW59 


Update the request word in the TCB. 


1 
TCDW(IPW$DTC) 


,R2 


Chart DA 




Increment the suffix number in the 
queue record by one. 




QRSN(IPW$DQR) 








Reset the record counts in the queue 
record to zero. 




QRNA(IPW$DQR) 
QRNR(IPW$DQR) 








Set the track number (number of used 
tracks) to one. 




QRNT(IPW$DQR) 


R1 






Issue message 1Q53I OUTPUT SEGMENTED 
FOR. 


• 






IPW$WTO 




If not a 3800 printer , branch to... > 


XV60 










Otherwise, save request word. 






R0.R1 






Set up record control word in the TCB 
by storing the SETPRT parameter list 
address and an X'FD' as command code. 




TCRW(IPW$DTC) 
TCCC(IPW$DTC) 






XW60 
XW61 


Branch to > 


XW61 

XX38 
XV76 




R2 


IPW$PDR 
Chart EA 


If FCB load is not needed , branch to> 

Link to get LFCB record... . ... > 

Pass FCB/SETPRT record. 




Subtract one from the total record 
count in the queue record, because 
the FCB SETPRT record is not a user 
data record. 

Branch to... > 


XX38 


QRNR(IPW$DQR) 


R1 


I 



x y 



\^ : y 
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| Labels 

1 

L 1 


T 1 

Chart KB06.1: IPW$$XW - Execution Writer |Modified Data | 

| Fields | 
_ _ _ - . ± -i 


1 

Reg. 
Usage 


r 

Calls 


r t 
1 


Proqram-driven Segmentation 


1 

> 

> 


1 

1 
1 

1 

XW66 
XW76 


r t 
1 
1 

1 

TCGP(IPW$DTC) 


R2 




1 

|XW62 

1 


Check the record count to see if an] 

records have been trapped. 

If not, branch to. •• , 






Set end of data and branch and link 
to the NOP creation subroutine 






class chain. 








R2 


IPW$AQS 
Chart DB 




If spooling to tape 


> 


XW6 3 










Reserve a new queue record-, if 
spooling to disk. 








R2 


IPW$RQS 
Chart DA 


XW63 


Reset the record counts in the queue 
record to zero. 




QRNA(IPW$DQR) 
QRNR(IPW$DQR) 








Set the track number (number of used 
tracks) to one. 




QRNT(IPW$DQR) 


R1 






If tape spooling, branch to 


> 


XW64 










Update the request word in the TCB. 






TCDW(IPW$DTC) 






XW64 


Set the suffix number in the queue 
record to zero. 






QRSN(IPW$DQR) 






XW66 


Set the forms identifier to blanks. 






QRFI(IPW$DQR) 

• 








Validate data area address. 

If the address is invalid branch 

to 


> 


XW88 


TCCT(IPW$DTC) 


R2 
R1 


IPW$VDA" 
Chart AH 


Save the new FCB name in the TCB. 






If a forms ID is present the new 
forms ID is moved to the queue 
record. If not,, branch to 


> 
> 


XW67 


QRFI(IPW$DQR) 






XW67 


Is it tape spooling? 

If not , branch to 


XX76 








Reserve Queue record. 




1 

1 




R1 


IPW$RQS 
Chart DA 


L- 


Branch to get the next command 

L 


> 


|XX76 

L 


L 


j 


L 
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| Labels 

h 

|XW68 


~T 

(Chart KB07: IPW$$XW - Execution Writei 

_ f , 

I Handle Break Condition | 


XW76 


— T : 1 

| Modified Data 

| Fields j 

|TCGP(IPW$DTC) j 


r 

Reg. 

Usage 



JR2 


j Calls 
-+ 


| Force end of block and branch and | 
| link to the NOP creation subroutine >| 






| Release the data buffer space. | 
| If task stopped, branch to......... >| 


XW74 






| IPW$RLW 
| Chart AC 


|XW70 


| Reset the data break condition in the| 
|TCB. 




|TCTT(IPW$DTC) 






|XW72 


| Check for a user request. If so, 

j branch to. •••••• •••••••••••••• > I 


XW74 


|TCEB+2(IPW$DTC) 






|Unpost the event control block and | 
| exit to task selection. 


| IPW$WFC 
| Chart AA 




| Check for a data break condition. If 
| so, ignore it and branch to. >| 


XW7 








|XW7U 


| Check for a stop condition. If not | 
I so, branch to. •••••••.. > 


XW72 


| TCDA(IPW$DTC) 






[Recover from Break Condition 




| Reserve new buffer space. 

| Store the new buffer addresses in the] 
|TCB. 


|IPW$RSW 
| Chart AC 




| Check for stop condition. If so, 

I branch to. •• >| 


XV60 
XX02 








| Branch to process the next user 

I request. ••••.•••••••••••••••••••••• > 




|XW76 


j NOP Creation Subroutine 










| This subroutine creates a NOP record 

| to pass the end of data or end of 

j block condition for the queue record. 






j • Set data address to blanks 
j • Set length to one 
| • Set NOP command code 




|TCCC(IPW$DTC) 
|TCGP(IPW$DTC) 
|TCCC(IPW$DTC) 








| Pass the record to the data file. 

| Return to caller via link register 2. 






|R0 

|R2 


| IPW$PDR 
| Chart EA 




Handle special printer commands. 










|XW78 


| Set up register 2 for checking the 
j command code against the entries in 
|the printer command table. 






|R2 
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Labels 


r <i 

Chart KB08: IPW$$XW - Execution Writer 


r ^ 

Modified Data 
Fields 


r ti 

Reg. 
Usage 


r 

Calls 


XW80 


Check the command code against the 
entries in the printer command table. 


r i 




R2 






If the command code matches with one 
of the printer command tables branch 
to > 


XW82 
XW85 




R3 






If the command code is not in the 
table, it represents an immediate 




XW82 


If a correct printer has been 
specified, branch to. •••••••••••••• > 






If the command is invalid branch to > 


XW88 








XW85 


If the command should be ignored, 
branch to • > 


XX76 
XW86 










If not a 3800 printer, branch to... > 






set the unblock data check flag in 
TCB extension area and branch to. . . > 


XW86 


SPLFLAG1 

(IPW$DTE) 






XW85A 


If block data check command code, 
turn off the unblock data check flag 
in the TCB extension area and branch 
to > 


XW86 
XW85C 

XV90 


SPLFLAG1 

(IPW$DTE) 

SPLLIST 

(IPW$DTE) 
SPLFLAG1 


R14 




XW85B 


If not, initialize printer command 
code , branch to •••• > 






Clear out current printer setup in 

TCB extension area . 

Set initialize printer flag. 

Branch to get default line table... > 






Branch to. •••• > 


XW32 


SPLFCB 

(IPW$DTE) 






XW85C 


If a load FCB command code, set the 
FCB unknown flag in the TCB extension 
area. 




XW86 


If the command does not imply a data 
transfer, branch to treat it as a 
control command > 


XX55 










Validate data area address. If the 
address is invalid, branch to > 


XW8 8 




R2 


IPW$VDA 
Chart AH 




If the command does not represent an 
FCB load, branch to treat it as a 
write operation > 


XX21 










Set up registers and 3 with the 
data address and length for 
processing the FCB load. 






R0,R3 






Branch and link to the FCB line table 
subroutine > 


XV80 




R14 






If an error has occurred, branch to > 


XW88 









( 
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Chart KB08.1: IPW$$XW - Execution Writer 



Modified Data 
Fields 



Reg. (Calls 
Usage [ 
+ 



XW88 



xxoo 



Branch to the write routine........ > 

Emulate Invalid Operation 



Set the channel status byte to X^O' 
to indicate channel program check. 

Set the first communication byte to 
X'20' to indicate unrecoverable I/O 
error. 

Bump to the next CCW in chain. 

If the user accepts unrecoverable 
errors, branch to get the next 
command. > 

Issue message IR30I. 

Set up the cancel code X'lA" in 
register and branch to.. > 

Emulate Transfer in Channel 



XX21 



Validate data area address. 

If the address is invalid, branch 

to > 

If the address of the next CCW is not 
on doubleword boundary, branch to.. > 

If more than 255 TIC-commands have 
been specified in a single channel 
program, branch to > 

Load the address of the next CCW into 
recrister 8 and branch back > 

If the user will accept unrecoverable 
I/O errors , branch to > 

Otherwise, ignore error and branch 
to > 

Wait for User Program Request 



Check the termination indicator in 
the TCB for a data break condition. 
If so branch to handle the break 
condi tion „ .. » > 

Check the termination indicator for a 
stop condition. If so, branch to.. > 



XX7 8 
XX80 

XW88 
XW88 

XW88 
XX04 
XW88 
XX76 



XW6 8 



XV60 



CBSC(IPW$DCB) 
CBC1(IPW$DCB) 



TLCB(IPW$DDE) 



R8 



RO 

R2 
R1 

R1 
R8 



IPW$WTO 



IPW$VDA 
Chart: AH 



V 
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Labels 


r 1 

Chart KB09: IPW$$XW - Execution Writer 


r 1 

Modified Data 
Fields 


T 

Reg. | Calls 
Usage | 
i j— ■ 


r •" i 
XX02 

XX03j 


|— - - - — p 

Check the entries in the PDB to see 
if the user program has issued a 
write request. If so branch to the 
emulation routine > 


r l 
XX02 

XXOO 

XW88 

XW88 
XW88 

XW8 8 
XW90 
XXI 2 
XXI 6 
XXI 8 
XX4 2 


TCEB+2(IPW$DTC) 


r t 
R8 


r~ 


Unpost the event control block in the 

TCB. 

Exit to task selection. 

Branch to check for a user 

request > 

Emulate Channel Proqram 


IPW$WFC 
Chart A A 


Set up register 8 as a base register 
for the channel command word. 

Check for EXCP real, which POWER/VS 
does not support when issued from a 
virtual partition. 

If so, branch to > 




Classify Command 




The CCW address in the CCB is checked 
to determine whether it is in the 
user partition or in the LTA (logical 
transient area) . If the CCW is not a 
valid address, branch to > 




If the IDAL flag or data chain flag 

word, which feature is not supported 
by POWER/VS , branch to > 




Check the low- order four bits of the 
command code to determine which 
handling routine to branch to for 
handling the command: 

• Invalid operation....... > 




• Tranfer in channel > 

• Sense operation > 

• Read operation > 

• Write operation ••••• > 




• Control command > 





( 



( 
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Chart KB10: IPW$$XW - Execution Writer 


F 1 

Modified Data 
Fields 


-i 

Reg. 
Usage 


r 1 

Calls 


XXI 2 
XX13 


r "■"•" ""— —— t 
Emulate Sense Operation 


r 1 

XW88 
XW88 






IPW$VDA 
Chart AH 


If an invalid sense command was 
issued branch to • > 


Validate data area address. If the 
address is invalid,, branch to > 




Get the address of the data field in 
register 1 and the length in register 
2 and move the sense information with 
all bits set to binary zero. 






R1,R2 






If the command code is a sense I/O 
(X f E4 f ) - only valid for a 3800 - the 
type and model of the 3800 printer 
are moved into the data area. 










- 


Branch to get the next command > 


•XX76 








XXI 6 


Emulate Read Operation 










Since any read operation addressed to 
an output device is assumed to be a 
dummy, it is ignored. 




If this is not a punch task,, branch 
to get the next command > 


XX76 
XW8 8 




R2 


IPW$VDA 
Chart AH 


Validate data area address. If the 
address is invalid, branch to. > 


XX18 


Branch to continue > 


XX56 
XW8 8 






IPW$VDA 
Chart AH 


Emulate Write Operation 


Validate data area address. If the 
address is invalid, branch to > 




If the command code represents a 
SETPRT request, branch to > 


xwoo 










If a punch command is being 
processed, branch to the punch write 
routine. > 


XX24 

XX8 8 
XX22 




R14 




Branch and link to the line count 
subroutine for updating the line 
counter > 


If the command is a write and skip to 
channel one command, branch to > 




If not a 3800 printer, branch to... > 


XX21 










If the command code is a load graphic 
modification module or copy modifica- 
tion module, branch to > 


XW88 


■ , ..„ 









X J? 



0; \ 
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Modified Data 
Fields 



Reg. 
Usage 



Calls 



IXX21 



IXX22 



IXX24 






Form the record control word in the 
TCB: 

• Move the user CCW. 

• Set general purpose byte to X'01" 
to indicate data record if 
necessary. 

• Clear the rest of the general 
purpose byte. 

Branch to > 

Collect the record text from the user 
area : 

• Move the user CCW. 

• Set command code to X'01' to 
indicate write with no space. 

• Set general purpose byte to X"01" 
to indicate data record. 

• Clear the rest of the general 
purpose byte. 

Collect the user record. 

Branch and link to the line count 
subroutine for updating the line 
counter .. , . . . > 

If the CCB address has changed, 
branch to , > 

Set command code to X'SB* to indicate 
skip to channel one. 

Set general purpose byte to indicate 
a length of one. 

Branch to . . . . . > 

Emulate P unch Write Operation 



Form the record control word in the 
TCB: 

• Move the user CCW. 

• If the command code does not 
indicate potential print with no 
feed, set general purpose byte to 
X'01" to indicate data record. 

• Clear the rest of the general 
purpose byte. 

If the output has disposition 'I 1 , 
and it is a 3525, 2560, or 2560 print 
record, branch to > 

If the output disposition is I, and 
it is a punch record, the record is 
to be added to the input queue and 
the command code is therefore set to 
zero. Branch to > 



XX38 



XV72 
XX00 



XX32 



XX64 



XX38 



TCRW(IPW$DTC) 
TCGP(IPW$DTC) 



TCGP+1(IPW$DTC) 



TCRW(IPW$DTC) 
TCCC(IPW$DTC) 

TCGP(IPW$DTC) 



TCGP+1(IPW$DTC) 



TCCC(IPW$DTC) 
TCGP(IPW$DTC) 



TCRW(IPW$DTC) 
TCGP(IPW$DTC) 



TCGP+1(IPW$DTC) 



R2 



R14 



IPW$PDR 
Chart EA 
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L _ _ _ _ _ 


T 

(Modified Data 
| Fields 
_j. _ _ . 


— T _ T < 

(Reg. JCalls 
(Usage j 

_ 4.^ x 




I Test Output Segmentation I 


T 

||TCGP(IPW$DTC) 
|QRBS(IPW$DQR) 


T T 

||R3 | 

||ri i 
||ri i 

|R0 | 
|r2 I 


r 


|XX32 


(Check if segmentation has been | 

| Check for punch record. If not,, | 

j branch to >|XX34 






| For a punch record, check for a | 

| segmentation and branch to- ....... • >|XX38 






| Load current record count and branch | 

| to >| XX3 6 




|XX34 


| Check for skip-to-channel-^one | 
| command. If not, ignore segmentation! 
j and branch to >| XX3 8 




|XX36 


| Load current page count. | 

| If segmentation limit has been | 
j reached, branch to segmentation | 




JXX38 


| Pass record to data file. | 

| If X'63' command then indicate end of| 

| block and write NO-OP..... >|XX64 


IPW$PDR 
Chart EA 


||XX39 


| If the CCB address has changed,, | 
(branch to >|XX00 




|XX40 


| If the disposition indicates tape | 
| processing, and the reflective spot | 
| on the tape has been hit, force | 

| If the previous command was a control) 
| command, do not update the data | 
| transfer command and branch to. .... > | XX68 

(Branch to count routine >|XX64 





V_y 



L — P . 



x_,y 
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| Modified Data 

| Fields 
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|Reg. 

| Usage 
. 1 — 


| Calls 

— 1.; « — . 




T — ~ ~ - T 

I Emulate Control Command | 


— t — • 


t — 


t" 


|XX42 


I If the command is not a NOP,, then | 
jbranch to.. >|XX4 3 






| Validate data address. | 




|R2 


| IPW$VDA 
| Chart AH 




| If invalid, ignore command >|XX76 










| Is 1st 4 characters of data area | 
1 '* $$'? 1 










1 If not, branch to... • >| XX7 6 


|TCRW(IPW$DTC) 








| If so, set up request word. | 




| XX 4 A 


| Scan JECL record. | 

| If not a JECL record, branch to.... >||XW94 

IJf it was LST/PUN card for our | 
| device, we do not handle output | 
| anymore, post to Stop. | 

| Branch to >|XX76 


|TCTT(IPW$DTC) 


|R2 


| IPW$SXJ 
(Chart GB 


|XX43 


| If the command is a printer command, j 
| branch to the printer control | 
| routine >|XX54 
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Modified Data 
Fields 



Reg. 
Usage 



iCalls 



XX44 



XX46 



XX50 
XX52 

XX54 



If the output disposition is I, the 
record has to be added to the input 
que ue . Howe ve r , cont rol oper at ion s 
cannot be emulated for input. 
Therefore, ignore the command and 
branch to get the next user CCW. ... > 

If the device is not a 2560P, branch 
to. > 

If the command is a punch/SS command, 
branch to treat it as a write 
command. > 

Form the record control word in the 
TCB: 

• Move the user CCW. 

• If the command is a card motion 
command and the device is a 3525P, 
3525RP, or a 2540P, set the 
general purpose byte to X' 40" to 
indicate data record. 

• Otherwise, set the general purpose 
byte to X'OO' . 

Brancn to handle punch control 
command. > 

Emulate Printer Control Operations 



If the command code represents an 
LFCB operation code branch to > 

Branch and link to the line count 
subroutine to update the line 
counter > 

If the command code is not a skip or 
space branch to > 



XX76 
XX4 6 

XX18 



XX30 



XW6 2 



XX88 



XW7 8 



TCRW(IPW$DTC) 



TCGP(IPW$DTC) 
TCGP(IPW$E?TC) 



R1 



v. y 



R14 



V 
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r 1 

Chart KB14: IPW$$XW - Execution Writer 


n 

Modified Data 
Fields 


1 

Reg. 
Usage 


r i 

Calls 


XX56 


r — — ~ — — " r 

Form the record control word in the 
TCB: 

• Move the command code. 

If the command is a 'Skip to Channel 
one 1 or not an immediate command, 
branch to > 


r i 

XX57 
XX58 


TCRW(IPW$DTC) 








Otherwise, check if the previous 
command was a 'Print No Space.' If 
yes , branch to > 


XX57 


Load the address of a dummy I/O area 
into register 1 and store it in the 

TCB. 

Set a record length of one. 




TCRW(IPW$DTC) 
TCGP(IPW$DTC) 


Rl 






Combine the previous Print No Space 
command with the current immediate 
command . 
Branch to • • > 


XX76 
XX32 


QRLC(IPW$DQR) 


Rl 






Branch to , > 




Increment and Test Counts 


XX64 


If user data has been added to the 
file, the line/card counter in the 
queue record is incremented by one. 




Increment the list (PD#L) 

or punch (PD#C) value in the PDB by 

one. 




PD#L(IPW$DPD) 
PD#C(IPW$DPD) 


Rl 
Rl 




XX68 


Check whether the output limit has 
been exceeded. If so, the limit 
value is increased by the standard 
value and message 1Q52I OUTPUT LIMIT 
EXCEEDED FOR is issued to the 
operator. 

If the CCB address has changed, 
branch to • > 


XXOO 
XX76 


QRBM(IPW$DQR) 


R1,R2 


IPW$WTO 
Chart AD 


XX70 


Check the record type for a punch 
record. If so, bypass the page 
counting routine and branch to > 




Check the control character in the 
record just written. If it does not 
represent a skip to channel one, 
branch to get the next user CCW. ... > 


XX76 










Increment the number of pages spooled 
in the PDB. 




PD#P(IPW$DPD) 


R2 






Increment the number of pages in the 
queue record. 




QRNP(IPW$DQR) 


Rl 





c 
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Fields 



Reg. 
Usage 



! Calls 



v_^' 



XX76 



XX78 



XX80 



XX84 



XX86 



Get Next Command 



Load the address of the next channel 
command into register 8. 

Check the command for command 
chaining. If not, branch to . > 

If channel 9 was posted, branch to 
break the chain. > 

If cnannel 12 was not posted, branch 
to process the new command > 

Indicate no cancel by setting 
register to zero. 

Indicate completion of the channel 
program to tne user: 

• Store the updated CCW address. 

• Set the residual count to zero. 

• Set the necessary flags in the 
communication byte. 

If the emulator interface is active, 
post the emulator ECB if required. 

Get the address of the task PIB in 
register 8. 

Set the PIB to dispatchable. 

If a cancel condition has occurred 
(register = nonzero) , indicate 
cancel due to I/O error and signal 
fetcn for EOJ and cancel in progress 
in the PIB. 

If the CCB address has changed, 
branch to > 

Reset the task entry in the TCB. 

Branch to wait for the next user 
request. ". . > 



XX7 8 



XX7 8 



XX04 



XXOO 



XXOO 



CBCS'(IPW$DCB) 
CBCT(IPW$DCB) 
CBC1(IPW$DCB) 



TLCB(IPW$DTC) 



R8 



RO 



R8 



R1 ,R2 
R3 



R8 



|R7,R8 



V.. .7 



vy 
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r _ - — 1 

Labels 


r 1 

Chart KB16: IPW$$XW - Execution Writer 


r 1 

Modified Data 
Fields 


r 

Reg. 
Usage 


r 1 

Calls 


XX88 


h — - r 
Carriage Control Emulation 


r i 




Rl 




Get the command code, which 
represents either a skip or a space 
code in register 1. 




If the command code represents a 
Print No Space, return to caller via 
register 14 with a displacement of 4. 






R14 






If the command code is not a Skip or 
Space code, return to caller via 
register 14. 






R1 
R14 




XX90 


If the command code represents a skip 
code branch to • • > 


XX94 




R1 ,R2 
R2 




Calculate the new value of the line 
count in register 2. 




Check for carriage channel 9 
processing. If not branch to 
check for carriage channel 12 
processing > 


XX91 










If necessary post channel 9 overflow. 




CBC2(IPW$DCB) 








Set unit check. 




CBSD(IPW$DCB) 






XX91 


Branch to check if the page is 
filled > 


XX92 




R3 




Set master record address ibility. 




If channel 12 is not in +-he LTAB 
specified, branch to > 


XX92 










If the current line count is lower 
than LTAB channel 12, then branch to> 


XX92 










Is option MULT12 in the master record 
is on , brancn to • > 


XX91A 
XX 9 2 








If channel 12 already passed, branch 
to ...,. ^ 


XX91A 


Post channel 12 overflow. 




CBSD(IPW$DCB) 






XX 9 2 


If the page is filled, the page size 
is decremented. 

Branch to store the new count...... > 


XX96 


XWPC(IPW$DTC) 






XX94 


Calculate the new skip value in 
register 2. 






R2 




XX96 


Store the new line/skip value in the 
TCB. 




XWLC(IPW$DTC) 


R2 







Return to caller via register 14 
with displacement of 4. 







R14 
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INITIATORS/TERMINATORS 



CHART LA: IPW$$I1 - INITIATOR, PHASE 1 (7 PARTS) 



Chart LAOO: IPW$$I1 - Initiator, Phase 1, General Flow and Macro Calls 



User-generated 
POWER/VS phase 



V 



IPWSSI1 - POWER/ VS Initiator, Phase 1 


Label 


Routine 


Functions/ 
Interfaces 


Services 


1100 


Basic initialization; check if 
POWER/VS is active 






1103 


Check SYSLOG assignment, 
task ID, and runmode 






1120 


Check if JAI requested and if 
supervisor supports POWER/VS 






I1SR 


RJE,$NA checking routine 






I1RJ 


RJE,BSC checking routine 






1130 


Pageable area and RSIZE check 






1170 


Load initiator phase 2 








normal 


abnormal 




exit 


exit 




\ 


/ I 


7 







V_ y 



IPW$$1 1 



Initiator, 
Phase 2 



DOS/VS Supervisor 



SVC 6 - CANCEL 
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I Labels 



( 



Chart LA01: IPW$$I1 - Initiator f Phase 1 



Modified Data 
Fields 



Reg. 
Usage 



I Calls 



II1SD 



( 



1 1100 



1 1103 



1 1105 



11115 



^T\ 



Entry to this routine is from the 
user-generated POWER/VS phase. 

The first 16 bytes constitute the 
section descriptor: 



•I1CS 



V10M0' 



Register usage 



**** - Work register 

**** _ service work register 

**** _ service work register 

**** - Service work register 

**** - service work register 

**** _ service work register 

IPW$DGN - Address of generation 

table 

COMREG - BG communications 

region address 

SYS COM - SYSCOM address 

**** _ Base register 

**** - Start address of POWER/ VS 

nucleus 

**** - Line table address 

**** - Service work register 

**** - pointer to modules 

**** _ Linkage register 

**** . service work register. 



Set up addressability of SYSCOM and 
BG COMREG in registers 8 and 7. 

If .POWER/VS is already active 

(IJBFLG03 = POWA) , branch to ... > 

where message 1Q22I POWER/VS ALREADY 
ACTIVE is printed and the partition 
is canceled. 

Using SYSIR, check if SYSLOG is 
assigned to a 1052, a 3277 , or a CRT. 

If this is so, branch to > 

If not, branch to > 

where error message 1^061 SYSLOG NOT 
ASSIGNED TO CONSOLE is printed and 
the job is canceled. 

If POWER/VS is the maintask, continue 
at > 

If not, go to > 

where error message 1Q02I POWER/VS 
CANNOT RUN AS A SUBTASK is printed 
and the job is canceled. 

Next the POWER/VS runmode is tested. 
If this is virtual (register 1 is 

zero) , processing continues at > 

If not, go to the.... > 

routine where message 1Q01I POWER/VS 
CANNOT RUN IN REAL MODE is printed 
and the job is cancelled. 



R0 
Rl 

R2 
R3 
R4 
R5 
R6 

R7 

R8 
R9 
R10 

Rll 
R12 
R13 
R1U 
R15 



R8,R7 



I1CN 



SYSLOGT 



1105 
I1CN 



1115 

I1CN 



Rl 



1120 

I1CN 
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I Reg. (Calls 
[Usage | 

-+— -+ 



| Labels 



f 

1 1120 



Chart LA02: IPW$$I1 - Initiator, Phase 1 



| Modified Data 
| Fields 

-+——-- ~ 

I 



I I 



|I125 
I 



[HSR 
I 



|RS02 



[RS05 



IRS25 



IRS 30 



I 






If POWER/ VS accounting support is not 
requested (GNJA * CAM, or if 
accounting support is requested and 
also supported by the supervisor 
(JCSW1 = X'80*), control is passed 

to > 

if not, branch and link to > 

where error message 1Q10I SUPERVISOR | 
WITHOUT ACCOUNTING SUPPORT is 
printed. Then the account flag in 
the generation table is reset. 

If the supervisor supports POWER/VS 
(IJBFLG03 = X'08'), control is passed 
to > | 

If not, branch to the > 

routine where error message 1Q0 8I 
SUPERVISOR WITHOUT POWER/VS SUPPORT 
is printed and the job is canceled. 

RJE,SNA CHECKING ROUTINE 
If no RJE,SNA processing is needed 
(GNSR = X'00'), control is passed to> 
to check for RJE,BSC processing. 

If no number of logical units is 
specified (GNSU =0), or if the 
number of logical units specified is 
higher than the number of SNA remotes 
(GNSU > GNSR), the number of logical 
units is set equal to the number of 
SNA remotes- 
Addressability of the SNA remote 
control block is set up in register 
2, and the pointer to the first block 
is saved. Then the number of SNA 
remotes is set in register 15 for 
scanning purposes. 

The punch and list routing IDs are 
checked for validity, and if they are 
invalid, a link is made to......... > 

where message 1Q16I INVALID PUN (or 
LST) ROUTING FOR remid is printed, 
and the routing IDs are reset to 
X' 00 * . 

If the terminal characteristics of 
this SNA remote control block are 
described in another remote control 
block (REF=mmm in the PRMT macro), 
the information is moved using 
registers 4 and 5 as work registers. 

The address of the next SNA remote 
control block is loaded into register 
2 and a branch is made back to > 

When all SNA remote control blocks 
have been checked, processing is 
continued at > 



1125 
I IMS 



I1SR 
I1CN 



I1RJ 



RS35 



RS05 



RS4 



| GNJA< IPW$DGN) 



I 



I 



| GNSU ( Iptt$DGN) 



|RMPT(IPW$DRM) 
I 



|RMPR(IPW$DRM) 
|RMLR(IPW$DRM) 



| RMRI ( 1PW$DRM) 



I 
I 
I 
|R2 

I 

|R15 

I 
I 
I 






I 

|R4,R5 



i 
I 
I 
I 



I 






J (C 
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Chart LA03: IPW$$I1 - Initiator, Phase 1 



Modified Data 
Fields 



Reg. 
Usage 



I Calls 



( 



IRS35 



I 
I 

|RSU0 

I 
I 



|RS45 



1 I 



I I 



The current remote ID is calculated 
in register 4 and a branch made to. > 
to print the error message. 

A GETVIS macro is issued to obtain 
virtual storage for the SNA remote 
entries, the LU table, and the logon 
storage using registers 0, 1, and 4 
as work registers. 

If no virtual storage can be obtained 
(register 15 not zero) , a branch is 
made to. ^ > 

where error message 1Q26I GETVIS AREA 
TOO SMALL is printed, and the job is 
terminated. 

The address of the SNA remote control 
block is saved. 

The space of the SNA remote control 
block (RMCB) in the GETVIS area is 
cleared and all SNA remote entries 
are moved into it. All LU names 
specified in the PRMT macro(s) are 
copied into the LU table. The 
RMCB space is rounded off upwards to 
a 2K boundary. Then 2K is added to 
this address in 
register 2, which will be the 
minimumbegin address of the SUCB/LUCB 
space. Then the SNA remote control 
block is initialized with the 
following fields from the POWER/VS 
generation table: 

• ACB password length 

• ACB password 

• Number of SNA remote entries 

• First SNA remote ID 

• Last SNA remote ID 

• Storage descriptor 

• Translate table (EBCDIC to ASCII) 

• Translate table (ASCII to EBCDIC) 



RJ5 8 



I1CN 



R0 , Rl , 
R4 



GNRM(IPW$DGN) 



R2 



RMAL(IPW$DRM) 
RMAP(IPW$DRM) 
RMSR(IPW$DRM) 
RMFR(IPW$DRM) 
RMriR( I PW$DRM) 
RMSD(IPW$DRM) 
RMEA(IPW$DRM) 
RMAE(IPW$DRM) 



C 
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Chart LA03.1: IPW$$I1 - Initiator, Phase 1 



Modified Data 
Fields 



Reg. 
Usage 



iCalls 



I1RJ 



For each SNA remid a pointer is set 
to the associated LU name string in 
the LU table. If the pointer is zero 
then no LU name was specified. 

Using registers 4 and 5 as work 
register s, the begin address of the 
SUCB/LUCB pool is calculated and 
saved in the generation table. 

To calculate the SUCB/LUCB space 
requirements, the highest SESSLIM 
value specified for all remids is 
used. Then the space requirements 
for WACBs and compation tables are 
calculated, plus 4K for JECL 
specified compaction tables. 

If the GETVIS area available does not 
satisfy the required space needs for 
R JE , SNA then branch to > 

where error message 1Q26I GETVJS AREA 
TOO SMALL is printed, and the job is 
terminated. 

RJE,BSC CHECKING ROUTINE 

If no RJE is specified (no PLINE 

macro included, thus GNNL = X'OO*), 

control is passed to > 

Point register 2 to the line block 
table and save its contents in 
register 11. Load the number of 
lines in register 15. 



\^_ y 



R4,R5 



GNSS(IPW$DGN) 



I1CN 



1130 



R2 

Rll 

R15 
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Chart LA04: IPW$$I1 - Initiator,, Phase 1 



Modified Data 
Fields 



Reg. 
Usage 



I Calls 



IRJOO 



IRJ10 



IRJ15 



IRJ25 



IRJ30 



IRJ33 



( 



IRJ45 



Point register 4 to the PUB table and 
check if the line blocks in the 
generation table have corresponding 
line addresses in the PUB. 
If tnis is not the case, or if the 
corresponding device type is not 2701 
or 2703, the line block is removed 
from the table, the number of valid 
line Dlocks is decreased by one, and 
message 1Q14I NO MATCHING PUB FOR CUU 
is printed in routine.... , > 

All line blocks are processed. If 
GNNL or GNNR is zero, no remote 
blocks are available and processing 
continues at > 

Validated line blocks are written 
into the line table; this is repeated 
until all line blocks have been 
processed. 

The length of the remote table is 
calculated and saved in register 3. 
Then the remote table is moved after 
the line table and the start address 
of the remote table is placed in 
register 2. 

The pointer to the first remote block 
is saved and a check is made to see 
if punch and list routing are valid; 

if not, branch and link to > 

where message 1Q16I INVALID PUN/LST 
ROUTING FOR ID is printed. Then the 
routing is, defaulted to central 
punch/list routing (X'O'O'). 

If no remote references are to be 
resolved, branch to > 

Otherwise (RMTREF = X'FF'), the last 
six bytes of the remote block 
specified by REF= are copied into the 
remote block that is being checked 
(this allows tne copying of all 
information except routing from one 
remote block to another) . Check if 
trace is required and include the 
appropriate trace information in the 
block. 



R4 



GNNL(IPW$DGN) 



I IMS 



1130 



LNEBLK 



GNNR(IPW$DGN) 



RMPT 



RJ55 



R3 

R2 
R2 

R15 



PUNROU(RMTBLK) 
LSTROU(RMTBLK) 



1130 



REFNUM(RMTBLK) 
REFINF(RMTBLK) 



TRACE 
RMTBLK+4 



R4 

R5 
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Chart LA05: IPW$$I1 - Initiator , Phase 1 



Modified Data 
Fields 



Reg. 
Usage 



Calls 



1130 



1155 



1160 



1165 



1170 



This routine validates the partition 
size values. The address of the 
first module is loaded into register 
13 , the number of modules into 
register 12. The following steps are 
taken to calculate the required 
pageable area size in register 2: 

• Set aside 2K for the permanent 
command processor work area plus 
2K for module alignment. 

• Lqad the CI directory entries of 
all POWER/VS phases using the 
Local Directory List f and 
calculate their combined phase 
length. This is done in the 
routi ne > 

• Optionally, add the length of the 
following phases: 

- IPW$$TM if RJE,BSC is supported 
(GNNL * X'OO 1 ) . 

- IPW$$GA, IPW$$PA, and IPW$$SA if 
job accounting is included j 
(GNJA = CAM. 

- IPW$$SL if SLI support is | 
requested ■ (GNSL * C '•>. 

- IPW$$SM if spool management | 
support is requested. 
(GNSP=C'S'). 

- IPW$$SN, IPW$$LN, IPW$$LF # 
IPW$$MP, IPW$$MD, IPW$$IB, and 
IPW$$OB if RJ£„SNA is supported 
(GNSR * X'OO* ) . 

- Reader exit phase if RDREXIT is 
specified (GNRE * 8X'40'). 

Next the real partition size is 
calculated in register 4. 

• Determine from' the boundary box 

(register 3) the real partition 
size. 

• If ■ realsize* (in register 4) is 
more than 128K it is set to 128K. 

• If ' realsize' is less than 10K, go 

to > 

where error message 1Q0 3I 
INSUFFICIENT REAL STORAGE is 
printed and the partition is 
canceled. 

Calculate the size of the actual 
pageable area in register 4 by 
subtracting the 'realsize' value (or, 
the value of the end of IPW$$I1 minus 
the start of the partition, whichever 
is greater) from the virtual 
partition size. If this size is less 
than the required size calculated and 
stored in register 2, 

go to , > 

where message 1Q05I PAGEABLE AREA TOO 
SMALL is printed and the partition is 
canceled. 

Set the load address for the 
initialization phase 2 (IPW$$I2) to 
the start of the pageable area + 2K 
(for CP work area) and load phase 2. 
(Control is passed via register 1.) 



X...,J" 



R13 
R12 

R2 



LDSL 



LOAD 



^ 



y 



R4 
R3 
R4 



I1CN 



R4 



R2 



I1CN 



R4 



Rl 



IPW$$I2 
Chart LB 
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Labels 



Chart LA06: IPW$$I1 - Initiator, Phase 1 



Modified Data 
Fields 



Reg. 
Usage 



I Calls 



Subroutines 



I 



RJ55 
RJ58 



RJ60 



Print Remote ID Routine - Prepare for 



Printing REMID 



Get the correct remote ID into 
register 4 and place it in the REMID 
field in printable format. Strip 
this field of leading zeros, if 
present. 

Get the address of message 1Q16I and 
branch and link to.. . > 

Then return to the calling routine. 



+- 



RMID 



R4 



I IMS 



I1CN 



I1MS 



LOAD 



I1FN 



Canc el Routine - Print Message and 



Cancel 



Branch and link to > 

to get the proper message printed and 
then issue the CANCEL macro to cancel 
the job or partition. 



I IMS 



Print Message Routine 
Error Message 



Print an 



Load the address- of the console CCW 
into register 3 and create a CCW 
string. Get the console CCB address 
in register 1 and write the message 
to the console. Then return to the 
calling routine. 

Load Routine - Load POWER/VS Phase 



R3 
Rl 



Headers 






Register usage for this routine: 

3. **** - phase name address 
4 : LDDS - local directory list 

address 
5. **** - length of phase loaded 
14- **** - return register. 

The phasename address is loaded into 
register 3. 

A LOAD macro is issued and a test is 
made to see if the phase is found 
(LDSW * X'OU'). If the phase is not 

found, control is passed to > 

where message 1Q15I PHASE xxxxxxxx 
NOT FOUND is printed and the 
partition is canceled. 



Otherwise, the number of text blocks 
is loaded into register 5. This 
value is multiplied by the block 
length and the length of the last 
block is then added. The local 
directory list is reset and control 
is returned to the calling routine. 



R3 
M 

R5 
R1U 



R3 



I1CN 



R5 



GENL 
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\,.^ 



Account Management 


Module 


Macro 


Ref. 


Chart 


IPW$$PA 
IPW$$GA 


IPW$PAR 
IPWSCAF 


1 
II 


FA 
FB 



Miscellaneous 


Module 


Macro 


Ref. 


Chart 


IPW$$LU 
IPW$$IC 


IPW$ULP 
IPW$ICP 


Ill 
IV 


GC 
GD 



Module 


Macro 


Ref. 


Chart 


IPW$$NU 
IPW$$NU 
IPW$$LW 
IPW$$LR 


IPWSOLI 
IPW$CLI 
IPWIPLR 
IPWSGLR 


VI 
VII 
VIII 


AC 
AC 
JC 
HB 






Internal/External Routines 



(£0 



IPW$$TM 



Remote Job Entry 
Routines 



®=o 



$$BPOWIN - Initiator/Terminator 
Transient 



SSBOPENR - Open Files 



$$BOPNLB - Locate SSL or PL <J 



J? 



$$BCLOSE - Close Files 



IPW$$I1 



On 
Initialization 



IPW$$NU 



Task Management 
(Attach the task) 



V 



to 
terminate 



V 



IPW$$I2 - POWER/VS Initialization, Phase 2 


Label 


Routine 


Functions/ 
Interfaces 


Services 


1216 


Save POWER/VS generation table 






I220 


Load nucleus and all POWE R/VS 
modules; initialize control blocks 






I248 
TASK 


Change PSW key and set up TCB chain 






1 256 


Read format statements from SYSIPT/ 
SYSLOG 




C,F f G 


QFOO 


Queue file processing 




J.K 


(SDOO) 


Set up DTF subroutine 




F 


(I1CN) 


Cancel subroutine 




F 


I2DF 


Data file processing 




C,D,F 


I2FQ 


Format queue file 




C 


I2AF 


Account file processing 


II 


C,D 


I2SL 


SLI initialization routine 




D 


I2FN 


Final non autostart processing 




A,D,E,H 


(PSOO) 


Print status report subroutine 


IV 


C,K 


I2AS 
1 299 


Continuation of autostart pre 
Deactivate initiator TCB 


tcessing 


HUV.V.VI, 
Vll.VIII 

1 


C,F 

B,F 
C,F,H 


T100 


Termination routine j 








normal 




abnorm 


al 


exit 




i h i\ exit 











DOS/VS Supervisor 



SVC 14 - EOJ 



DOS/VS Supervisor 



SVC 6 - CANCEL 



IPW$$NU 



Task Management 
(Detach the task) 



IPW$$NU 


Macro 


Ref. 


Chart 


Task Management 


A 
B 
C 

D 
E 

F 
G 

H 
J 

K 


AA 

AC 
AD 
AE 
AG 


IPWSATT 
IPWSWFI 
IPWSWFC 


Storage Management 


IPWSRSW 
IPWSRLW 


Message Service 


IPWSWTO 
IPWtWTR 


Disk Service 


IPWSWTQ 
IPWtRDQ 


Timer Service 


IPWSRDC 
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| Labels | Chart LB01: IPW$$I2 - Initiator/Terminator 


| Modified Data 


|Reg. | 


Calls 


L X 


Initiator, Phase 2 


(Fields 
j 


| Usage | 

± j 




r t 


t 


— 1 


— t 1 




JI2BD |Th€ 


> first 16 bytes constitute the 1 








J | section descriptor: | 








| | 'I2CS V10M0 ' | 








| | Entry to this routine is from | 








| |IPW$$I1. | 








| |Reqister usaqe | 




|R0 




1 1 o. 


**** - Parameter and work | 






register j 








1 1 1 


**** - Parameter and work | 
register | 




|R1 




1 | 2: 


**** - Work register | 




|R2 




1 1 3: 


**** - Work register | 




|R3 




1 1 ^ 


PHDS - DTFPH address | 




|R4 




1 1 5 


IPW$DQC - DMB address | 




|R5 




1 1 6 


IPW$DMC - Address of POWER/VS | 
generation table (on entry) ; | 
next MCB address | 




|R6 




1 1 7 


. **** - work register | 




|R7 




1 1 8 


GNCB - Base register 1 | 




|R8 




1 1 9 


. **** - Base register 2 | 




|R9 




1 1 10 


: IPW$DPA - Virtual start of | 
POWER/VS partition (passed from | 
IPW$$I1) | 




|R10 




1 |U 


: IPW$DTC - Task control address | 
register | 




|R11 




1 |12 


: IPW$DTC - Asynchronous address | 
register | 




tR12 




1 |13 


: IPW$DSV - Save area register | 




|R13 




1 11^ 


. **** - Link register | 




|R14 




1 |15 


. **** - work register. | 




|R15 




|I216 |Mo^ 


/e non-RJE part of the generation | 


|Gi\ICB(IPW$DGN) 






1 1 tai 

1 l Ipt 


Die (pointed to be register 6) into| 
tf$$I2. If RJE is supported (GNNL =| 




|R6 




1 1 x " 


DO " ) , branch and link to • • >| LOAD 








| |wh( 


Bre IPW$$TM is loaded. IPW$$TM is | 


|IPW$$TM 


1 1 9 1T 


/en control at label INIT; it moves | 






Chart MA 


1 |th€ 


5 RJE part of the generation table | 








1 1 ini 


to its storage area. Control is | 








1 |the 


5n returned to IPW$$I2 where the | 








1 1 a ^< 


Iress of tne next phase is saved | 


| NEXT 


|R2 




1 Ifrc 
1 |1°< 


Dm register 2 and, if it was | 
aded, the address of IPW$$TM. | 


| RTAM 







L -L J. X X ± J 
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Labels 



Chart LB02: IPW$$I2 - Initiator/Terminator 
Initiator, Phase 2 



[Modified Data 
[Fields 



1220 



1224 



Load the POWER/VS nucleus (IPW$$NU) | 

into real storage via a branch and | 

link to ... • > | LOAD 

Save the end address of the POWER/VS | 

nucleus (from register 2) as the [ 

start address of the fixable (real) | 

area. Save the start address of the | 

virtual POWER/VS partition. From | 

these values calculate and save the | 

number of fixable pages (maximum = | 
current) and save the begin address 
to be fixed and the length of the 
fixed area. Then PFIX all required 
pages (addresses in register 2) . 



With the use of the relocation factor 
in register 5 (from IPW$$NU - CARL-), 
the constants (their total number is 
in register 4) in the CAT (Control 
Address Table) are now relocated 
(note that the Relocating Loader is 
not a POWER/VS prerequisite) . 

Next the following fields are 
initiated: 

• Trie page real storage address 
(from register 0) 

• The page virtual storage address 
(from register 3) 

• The page control byte address 
(from register 2) 

• The first buffer address (from 
register 2) 

• The address of the first fixed 
page (from register 3) 

• The address of the last permanent 
page (from register 3) . 



I 



|PAFA 
[ PAPA 



[NRPM,NRPC 
[PFIX 



With the use of the boundary box and | 
the BG communications region the | 
following values are set up: | 

I 

• Start address of the LTA in the | 
CAT (from register 2) | 

• End address of the LTA+1 in the | 
CAT (from register 2) | 

• Address of POWER/VS PIB (from | 
register 3) | 

• End address of POWER/VS | 
partition+1 in the CAT (from | 
register 4) | 

• Number of real pages in the | 
statistical information area (from[ 
register 4) | 

• Start address of the pageable area | 
in the CAT (from register 4). [ 



I 

I 

I PCRA 

I 

|PCVA 

I 

| PC PC 

I 

J PCFA 

I 

|SCFP(IPW$DSC) 

I 

|SCLP(IPW$DSC) 

I 
t 
I 
I 
I 
I 
| PALS 

I 

[PALE 

I 

| CAPB 

I 

j PAEN 



NRPG 



| PAVA 



I 



|R2 
I 
I 
|R5 

I 
|R4 



I 



I 



|R0 

I 
|R3 

t 
|R2 

I 

[R2 

I 
|R3 

I 
|R3 



I 

|R2 

I 

|R2 

I 
|R3 



I 



IR4 



|R4 

I 

|R4 



i 



\ 






\^ 
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L J. „. 


|I229 


f ' T 

| The storage control block is 

| initialized by setting all available 

|page indicator in the storage 
i assignment table to.(X , 4 , ) f as well 
| as the 'first page fixed 1 indicator 
| (X^O - ). 


r 


T 

| SCBT 


r t 


|I230 


| block (MMC-B) are initialized. 




| (all IPW$DMM) 


|R2 | 


|I232 


|A11 POWER/VS modules , whose names are 
| moved to the Local Directory List 
j pointed to by register 4 /f are loaded 
j i n r outi ne > 


LOAD 


ILDSL(LDDS) 
| CAFM 


|R4 | 




| then their names are replaced by the 
| load addresses found. 






|For RJE,BSC, the highest remote ID 
[and number of lines are saved as well 
|as the load address. 




j NRRE 
1 NRLI 
|CATM 






|For the other, optional, POWER/VS 
| modules load addresses are supplied 
|as required. Actual loading is 
| performed by > 


|LOAD 


|CAPA,CAGA, 
|CASA,CASL 

|CARE 




|I244 


j If spool management not specified 

| (GNSP^C S' ) , branch to > 


1248 


|ICTA 

|SMTA 






(Define POWER/VS cross- 

| partition XECB's ICXP and 

|SMXP (SVC92) 


| RO , Rl , I 
|RW, | 
|R15 | 


|I245 


|If definition failed, set GNSP-C , M , f 
| branch to > 


|X248 






|I246 


| Load spool management phase IPW$$SM > 


|LOAD 


|CASF 





L , — X ' . X X X - X r J 
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1248 



$$BPOWIN is called to set the PSW 
key to zero (to allow updates to 
supervisor control blocks) and 
POWER/VS active is indicated in 
SYSCOM (IJBFLG03 = X'04 f ). Next the 
POWER/VS partition indicator is set 
in tne COMREG (POWFLGl - X'20'). 

Set up the initial Task Control Block 
(TCB, address in register 11) chain, 
whicn includes: 

• The wait TCB (set to W=always wait 
state). 

• The initiator/terminator TCB (set 
to D=dispatchable) 

• The command processor TCB (set to 
I=awaiting posting) . 

Then the base register is set up for 
the second part of IPW$$I2 (which 
will run as a subtask) and saved, as 
well as the address of the first 
instruction of that part. Last the 
current = maximum number of tasks (2) 
is saved in the applicable areas and 
control is passed to task selection 
in the nucleus 



$$BPOWIN 
Chart LD 



v ^...,.^' 



IJBFLG03 
POWFLGl 



Rll 



TCSF(IPW$DTC) 
TCTN(IPW$DTC) 
TCTP(IPW$DTC) 



TCrc8(IPW$DTC) 
TCRC(IPW$DTC) 

NRTC, NRTH 



R2 



IPW$$MJ 
Chart A A 



V 
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TASK 
1252 



1256 



( 



12 LI 



I2FC 



1260 



Note: Task selection will find the 



initiator/terminator to be tne only 
dispatchabel task. Thus control is 
given back to the initiator/ 
terminator at label TASK and 
initialization continues from there 
on as a POWER/VS subtask. 

Addressability of the save area (in 
register 13) and the second base 
register (register 9) are set up; all 
addresses of subroutines are 
relocated with the relocation factor 
calculated in register 5. 

If SYSIPT is not assigned (LUBXXXP 
get X'FE'), a branch is made to.... > 
Otherwise, the input file, pointed to 
by register 4, is opened and the 
first input card is read. If this 
card is not the FORMAT= statement, 
error message 1Q13I ERRONEOUS 
AUTOSTART CARD(S) READ is issued and 
processing continues at label > 

If a FORMAT statement was read, it is 
moved to a save area and the next 
record is read. 

If no FORMAT statement was supplied 
or if SYSIPT was not assigned, 
message 1Q11D FORMAT QUEUES= is 
printed to which the operator must 
reply NO or END/EOB, A, D, or Q. 
Processing continues with the values 
thus obtained. 

A check is made to see what FORMAT 
specifications were given. Action 
taken is : 

A - account file is flagged for 

output 
Q - queue file is flagged for output 
D - data and queue file are flagged 

for output 
NO or no data - no action. 

A combination of these actions may 
occur. If an invalid character is 
found or if commas are missing, 
message 1Q11D is reissued and the 
output flags are reset. 

The basic CCW chain is set up and 
initialized (using registers 2 and 
3) . This chain is common to data, 
queue, and account file handling 
during initialization. 



R13 
R9 



R5 
R2 



I2L1 



R4 



IPW$WFC 
Chart AA 



I2L1 



LGIN 



LGIN 



PriOP(IJAFILE) 

PHOP(IJQFILE) 
PriOP(IJDFILE) 
PHOP(IJQFILE) 



CWDA(IJW$DCW) 



R2,R3 
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IQF08 



I 

|QF12 

I 
I 



IQF16 



I 



[I2WQ 



I Start of Queue File Processing 



Register 4 contains the address of 
the queue file DTF. 
Register 5 contains the Disk 
Management Block (DMB) address. 

Branch and link to the.,. ........... > 

subroutine to set up the queue file 
DTFPH* Upon return from this routine 
register 2 points to the device table 
entry of the related DASD, and the 
DTF device type code is supplied. 



| The queue file is opened. If RPS is 
(supported (DTFPH switch byte set to 
JX 1 40'), a SET SECTOR CCW is included 
[in the chain and the queue file 
j sector table values are set up. 

I 

(All device-dependent values are set 
| in the disk management block (DMB) 
| using register 3. 

I 

| If this is a warm start (PHOP = 

| X f 80 ' > , branch to. ... . , . > 

| Otherwise , a master skeleton record 
|is built; then branch to > 



Read a master record and test its 
version/modification level. In the 

case of a mismatch, branch to > 

where message 1Q041 QUEUE FILE 
MISMATCH is printed and the partition 
is canceled. 

The master record common part is now 
set up. Values initiated are: 

date 

• time 

• sublibrary 

• account option 

• default priority 

• job log option 

• master list values 

• master punch values. 



I The Foll owing Routines are for Warm 
I Start Only 

I 

[In the case of cold start, continue 

I at label > 

I 

| If tnis is a normal warm start (the 
|POWER/VS session before this one was 
j ended by a valid PEND command, thus 
| the POWER/VS termination status field 
| was set to normal, MRTT = C'N'). 



SD00 



QF12 
QF16 

I2CW 



R4 

R5 



R2 



QC#R,QC#T,QCMA, 

QCi>'aV,QCQW,QCQA, 

QCQV 

(all IPW$DQC) 



MRQF(IPW$DQC) 



MRDY(IPW$DQC) 
MRST(IPW$DQC) 
MRSL(IPW$DQC) 
MRJA(IPW$DQC) 
MRPY(IPW$DQC) 
MRLG(IPW$DQC) 
MRLV(IPW$DQC) 
MRPV(IPW$DQC) 



I2DF 



R3 



,/f^ 
V/ 
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JWQOO 



II2AB 



IAB16 



IAB20 



IAB52 



II2DF 



Set master record seek address in the 
queue record seek address and update 
the record counter via a branch and 
link to > 

All records in the queue file are 
read, the master class list in the 

permanent area is built by > 

and the counts of free queue records, 
records in use, and number of tracks 
in use are initialized using register 
2. First and last-in-class queue 
records are identified. 

This is the "routine for abnormal warm 
start (previous POWER/VS session not 
ended by PEND command, MRTT = C'A* ). 

The queue record addresses are 
updated via a branch and link to. . . > 
and then the queue file is read,. If 
the record read is the last queue 
record (queue record identifier QCQI 

= C • D ■ ) , go to > 

Queue entries that were not added to 
the file are written back. 

If these unadded records are moreover 
incomplete, they are deleted from the 
file, and a free queue record is 
indicated (QCQI = C'F*). 

Forward and backward pointers are 
checked and, if incorrect, set to the 
proper values. 

The queue file is scanned 
sequentially for free records. When 
these are found, the free chain is 
built. The file is then processed 
again at label > 

St art of Data File Processing 



Register 4 contains the address of 
the data file DTFPH. 
Register 5 contains the address of 
the DMB. 

Set up the data file DTFPH in the.. > 
subroutine. Upon normal return from 
this routine register 2 points to the 
device address table of the related 
DASD; the device characteristics of 
the DTF are saved. The number of 
tracks per cylinder in the data file 
is saved in the DMB and the next 
module address in register 3 is set. 



UPDT 



I1CL 



NRTM,,NRQR 
NRQF, NRQM 



R2 



UPDT 



AB52 



IPW$RDQ 
Cnart AE 



IPW$WTQ 
Cnart AE 



QCQI (IPW$DQC) 

QCQP(IPW$DQC) 
QCQ£SI(IPW$DQC) 



I2WQ 



SDOO 



R4 

R5 

R2 



DFCB 
DC#T(IPW$DQC) 

MOCU 



R3 



547 



Labels 



Chart LB07: IPW$$I2 - Initiator/Terminator 
Initiator,, Phase 2 



Modified Data 
Fields 



Reg. 
Usage 



Calls 



DFOO 



DF13 



DF16 



DF20 



DF24 



DF48 



DF52 



Calculate in and store from register 
1 DBLK values in master record and 
block length table. Also store (from 
register 3) DBLK+8 (or, if not a 
multiple of 32, the next higher 
multiple) in the block length table. 
Calculate and store the number of 
records per track. 

The data file (DTFPH) pointed to by 
register 4, is opened and a check is 
made for RPS (DTFPH switch by PHRP is 
X'80'). 

The created MCBs are checked if more 
than one extent on a volume is 
defined. The symbolic units must be 
the same. If this is not true, 
message 1Q19I is given and 
initialization is canceled. 

Otherwise, if RPS is supported, a SET 
SECTOR CCW is included in the chain 
and the data file sector table values 
(from register 3) are set up (record 
number in register 7) . 

If tnis is a warm start data file, 
branch to > 

Otherwise, the number of tracks is 
zeroed and register 7 is pointed to 
the first MCB. 

Format Routine for Cold Start Data 



Files 



A channel program is built which 
writes a track of records, each track 
(DBLK) bytes long. This channel 
program is issued for each track on 
all extents of the data file. 

Get the track group size; if this is 
cold start, branch to > 

For warm start, calculate the number 
of track groups per cylinder and save 
this value; then branch to > 

The cold start track group size is 
loaded into register 1. The number 
of track groups/cylinder calculated 
in such a way that a maximum spooling 
advantage i s obtained (1 to 1 ratio 
queue and data file if possible) . 
This value is checked against the 
tracks/cylinder value of the device 
and the TRACKGP= specification. 
Depending on the values calculated, 
one or two messages may be printed 
using message management service: 

• 1Q17I QUEUE FILE TOO SMALL and/or 

• 1Q09I TRACK GROUP CHANGED TO nn 



MRDB(IPW$DQC) 

BLDB 

BLBF 

DC#R(IPW$DQC) 



Rl 

R3 



R4 



DCSC(IPW$DQC) 



DF48 



NKTM 



R3 
R7 



R7 



PHCB(PHDS) 



IPW$WFC 
Chart AA 



DF52 



DF76 



NRGC 



Rl 



NRTG 



IPW$WT0 
Chart AD 



4" \ 



^y 
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IDF76 



|I2FQ 



|FQ04 



|FQ12 



|FQ20 



Build the track group control table , 
one byte per track (using register 
3) . The byte contains (head 
address+1) of the corresponding track 
or, for last-in- track group or 
non-available tracks, X*00'. 

kueu e F i le Formatting Routine 



Register 4 contains the address of 
the queue file DTFPH. 

On cold start the queue file is 
formatted. In the case of warm start 
(PH0P=X' 80' ) , branch to > 

A CCW chain is set up and the master 
record, containing a pointer to the 
first record in the 'free' queue, is 
written. Then the CCW is updated and 
the queue record count field is 
incremented by 1. 

Process all track groups and set last 
to X'OO'. Then check if total number 
of queue groups in register 2 (NRQR) 
is acceptable; if not, set it to the 
value of track groups (NTRG) . 

Store the queue group value (from 
register 2) in all applicable fields. 
Update trie queue file disk address 
through the. . . . > 

subroutine and deduct one from the 
number of records to be written. 
When tnis value is zero, the forward 
pointer is reset. 

All track groups are subsequently 
inspected. The order in which this 
is done is by taking track groups in 
turn from each of the data file 
extents, if more than one extent is 
available. The cylinder number is 
updated and the addresses of both 
unfilled and filled modules are saved 
(via register 2). When a module is 
filled, it is flagged with X 1 FF" in 
the first byte of its disk address. 



DCTR(IPW$DQC) 



R3 



R4 



FQ36 



SCCHH,SR,SECV 



QRCT 



TRCT 



IPW$WFC 
Cnart AA 



NRQR,NRQF,NRQW 



R2 



R2 



UPDT 



CUQN 
QCDF(IPW$DQC) 



MOCU 



MONT (MODS) 



R2 
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I 



|FQ 3-2 



I 
I 

|I2AF 



The forward pointer is inserted in 
the 'next record in set' field. Then 
the queue record is written, the 
queue file disk address is updated in 

the > 

subroutine, and the record number in 
the count field is updated. When all 
queue records are written, a dummy 
last record CQCQI = CD') is written. 



Account File Processing 

Register 4 contains the address of j 

the account file DTFPH. 

Register 5 contains the ACB address. 

The ACB address in the file control 
block and the MCB address in the 
account file DTFPH are set to 0. 
If no accounting support is specified 
(account switch in the generation 
table not set to C'A'), control is 
passed to label > 

The account file DTFPH is set up by 
the. > 

subroutine. The device 
characteristics are saved. Then 
storage is obtained for the ACB; if 
not enough real storage is available, 
exit to > 

The ACB address Is stored in the 
Control Address Table (CAT) and a 
pointer (in register 7) is set up to 
the device characteristics table. 
Then the account file is opened and 
the ACB is formatted via a branch and 
link to w . > 



UPDT 



I2SL 



SDO0 



NOROOM 



AC00 



|QCNS(IPW$DQC) 



I 



lQRCT+4 



|QCgl 

I 

I 



I CAAC 



|CAA0 



I 



| AFCB 
1 

1 



IR4 



|R5 



|R7 



I 

I 

-JL- 



I 



I I 

I I 

| IPW$WFC | 

| Chart AA | 

i I 

I I 

I I 

I I 

| IPW$WFC j 

(Chart AA | 

I I 

I J 



I 

I I 

|JPW$RSW | 

| Chart AC | 

I I 

I I 



^,.y 



4" 

[ ■■;'■ 
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IAF04 



IAF08 



IAF12 



C 



IAF24 



IAF36 



IAF40 



IAF44 



If this is a cold start account file 
(PHOP byte in DTFPH set to X'8G'), 
the account file is erased and an EOF 
record is written as the first record 
on each track. The "accept I/O 
errors' bit in the CCB is set on 
(ACCM = X'lO 1 ) and control is passed 
to > 

This routine is for warm start only. 

If RPS is supported (PHRP = X'^O 1 ), 
the SET SECTOR CCW and the READ 
SECTOR CCW are relocated. 

In the case, of abnormal warm start 
(MRTT = C'A' ), a branch is made 



to. 



> 



Otherwise, the disk address of the 
last record is copied to the ACB and 
the seek bucket. In register 7 the 
number of full tracks used is 
calculated; then branch to > 

The CCW chain is initialized,, the 
track counter (register 7) and the 
sector value bucket are cleared and 
reads without data 

transfer are performed. These dummy 
reads are used to find EOF records on 
the tracks. After each track has 
been scanned, the track counter is 
updated. The CCB is tested for unit 
exception (CCBSTAl = X'Ol') after 
each read. If an EOF record is 

found, branch to > 

If no EOF record is found and the 

upper limit is reached, branch 

to . , > 

If the file is empty (SCCHH = ACLO), 

branch 

to > 

Otherwise, the head address is 
repositioned one track backwards in 
the seek/search bucket. 

Use register 6 to calculate the new 
residual file capacity, except the 
last track, and store this value in 
the ACB. 

The count field address is loaded 
into register 2 ( , the CCWs are 
initialized, and the count field of 
record 1 is read. 

If the data lengtn of this record is 
larger than the maximum record size 
in the master record, then update the 
master record. 



I2SL 



ACCM(IPW$DAC) 



AF12 



AF36 



ACSA(IPW$DAC) 
SADR 



ACSE(IPW$DAC) 
SCCHH 



R7 



R7 



IPW$WFC 
Chart AA 



AF24 



AF36 



AF52 



SHH 



R6 



ACAC(IPW$DAC) 



R2 



IPW$WFC 
Cnart AA 



MRAZ(IPW$DQC) 
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T r ^ 

| Using registers 3, 6, and 7 , the new | 

| residual track capacity is calculated) 

(and stored; next a read count and | 

jdata is issued. If record 1 is hit | 

| again (no EOF is f ound) , branch | 

| to >| AF5 6 


T 

| ACLC(IPW$DAC) 


|R3,R6 j 
|R7 | 




| If not, reading continues looping via| 
|AF44 until the EOF record (data | 
(length of 0) is hit. When hit, it is| 
(erased. This allows the file to be ( 
| updated again. | 




|AF52 


|The count field in the ACB and the | 
| seek addresses in the ACB and DMB are [ 
| cleared and reset to the begin | 
| address (lower limit). | 


|ACCF(IPW$DAC) 
| ACSA(IPW$DAC) 






|The maximum record size in the master | 
| record, which was defaulted to 2008 f | 


|MRAZ(IPW$DQC) 




|AF56 


| If required, the pointer to the | 
| current last record is saved into the| 
|ACB. | 


|ACSA(IPW$DAC) 




|AF60 


| Update tne master record with the | 
| current account file address and post| 
| the CCB to accept I/O errors. | 


|MRAS(IPW$DQC) 
|ACCM(IPW$DAC) 




|I2SL 


I SLI Initialization Routine | 








| Register 4 contains the address of | 
|the library file DTFPH | 
| Register 5 contains the address of | 
[the DMB. | 


|R4 | 
|R5 | 




| Clear the addresses of the MCB SSLs. | 
| If no SLI support is required (MRSL =| 
| X' 4 0*), branch to >|I2FN 


|CAL7,CAL8 






| Otherwise, the private SSL DTFPH is | 

| set up in routine.. >|SD00 






| If S¥SSLB is assigned (R2 * 0), the | 
| library open switches are set, the | 
| library is opened, and the disk | 
| address of the private SSL is moved | 
| to bucket 1 . | 


|BUK1 


(R2 | 



(f ^ 



c 
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ISL04 



The parameter list address is loaded 
into register 2 and the address of 
$$BOPNLB into register 1; then 
control is passed to $$BOPNLB to open 
the system SSL. On return from 
$$BOPNLB the disk address of the 
system SSL is in bucket 2. 

If the system SSL does not exist then 
branch to > 

Storage is reserved for the system 
SSL. If not enough space is 

available (R0=0) # branch to > 

Otherwise , the MCB address is saved 
in register 1 and copied to register 
6. Then the IJSSLB MCB is formatted 
in routine > 



R2 
Rl 



BUK2 



SL05 



NOROOM 



FSOO 



$$BOPNLB 



IPW$RSW 
Chart AC 



RO 
R1,R6 
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SL05 



12 FN 



FNOO 



Set the extent lower limit, load 
LUB- INDEX of SYSRES in R4 and point 
register 2 to the device table. Then 
format the SSL fields for the DMB in 
routine > 

If the private SSL is not open 
(LBSW=X f 01* ) , branch to. > 

Otherwise go through the same steps 
as for the system SSL. 

Final JMo n- Autos tart Processing 



Real work space is reserved for two 
buffers and two TCBs; the required 
buffer length was calculated at DF00. 
If no work space can be found 
(register . = on return from 
IPW$RSW) , an error message is printed 
and the job is canceled by. > 

If work space can be obtained for all 
these areas , the work space is 
released again. 

The queue file DTFPH address is 
loaded into register 4 and, if this 
is a warm start queue file (PHOP = 
X' 80'), the status report is printed 

by > 

The address of the page fault 
appendage exit is established via 
register 1, the terminator status 
indicator is set to abnormal 
(MRTT = CAM, a master record is 
written and the 'return open failure* 
bit is set in the COMREG (JCSW1 = 

x'ao'). 

Last, the task selection field in the 
task control block is set to indicate 
an inactive task. 

The following addresses are set to 
zero: 

• Line manager TCB 

• Message control block 

• SNA control block 

• General purpose work area 



If RJE,BSC is not supported (GNNL 
X'OOM, branch to... 



> 



Otherwise, the appendage indicator is 
set in the POWER/VS PIB (PIBPUBAS = 
X'40'). Next, the length of the line 
manager TCB is obtained in register 1 
and space is reserved for the line 
manager. If no space is available, 
branch to ... > 



MCLO(IPW$DMC) 



R4 
R2 



SQ0O 



I2FN 



I 

IPW$RSW I 
Chart AC | 

I 



NOROOM 



IPW$RLW I 
Chart AC I 



R4 



PS00 



Rl 



MRTT 



JCSWl 



IPW$WTQ I 
Chart AE | 



TCDF(IPW$DTC) 



TALM(IPW$DPA) 
CARM(IPW$DPA) 
CASM(IPW$DPA) 
CAGP(IPW$DPA) 



1270 



PIBPUBAS 



Rl 



IPW$RSW | 
Chart AC 



NOROOM 
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1270 



( 



1275 



1276 



Otherwise, the address of the line 
manager TCB is saved, the task ID is 
set, and the address of the line 
manager save area (located in the LMF 
part of the TCB) is placed in the 
task register save area via register 
3. Then the entry point of the line 
manager (address of IPW$$TM+16) is 
loaded into register 3 and the line 
manager is attached. 

If RJE,SNA is not supported (GNSR = 
X'OO'), branch to > 



Otherwise, the length of the SNA 
control black is obtained in 
register 1, and space is reserved 
for the SNA control block. If no 
space is available, branch to 



Otherwise, the address is saved. 

Next the SNA control block is 
initialized with the following 
fields: 

• Storage descriptor 

• Maximum number of SNA unit control 
blocks 

• Address of SNA remote control 
block 

• Address of SNA unit control block 
space 

• ACB 

• The address in the ACB which 
points to the APPLID is relocated 
to point to the user specified 
APPLID in the GNCB. 

• Address of logon space 

• Address of compaction table pool 

The proper address of the general 
purpose work area (lockword) is 
obtained in register 1 and saved. 

Processing is continued at., > 

If RJE,BSC is not supported (GNNL = 
X'00'), branch to > 

The length of the message control 
block is obtained in register 1 
and space is reserved for the 
message control block. If no space 
is available, branch to > 

Otherwise, the address is saved. 
Addressability of the message control 
block is set up in register 1, and 
the message control block is 
initialized with the storage 
descriptor. 



TALM(IPW$DPA) 
TCTI(IPW$DTC) 
TCRD(IPW$DTC) 



R3 
R3 



IPW$ATT 
Chart AA 



1275 



Rl 



IPW$RSW 
Chart AC 



NOROOM 



CASM(IPW$DPA) 



SNSD(IPW$DSN) 
SNSU(IPW$DSN) 

SNRM(IPW$DSN) 

SNSP(IPW$DSN) 

SNAC(IPW$DSN) 



CAGP(IPW$DPA) 



Rl 



1276 



1290 



Rl 



IPW$RSW 
Chart AC 



iNiOROOM 



CARM(IPW$DPA) 



MSSD(IPW$DMS) 



Rl 
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1290 



SP00 



If no spool management support 
(GNSP-C ' ), branch to > 

If definition of cross-partition 
XECB's failed (GNSP-C M' ) , message 
IQ27I UNABLE TO INITIALIZE SPOOL 
MANAGEMENT, is printed and branch to> 



Storage is obtained for spool manager 
master TCB: 

if not enough real storage is 
available, exit to > 

TCB is initialized: 

• Descriptor. 

• Task save area. 

• TCB address. 

• Address of cross- partition XECB's 
in wait list. 



Load entry point to spool management 
phase into register 3. 

Attach the task. 



Control is returned from IPW$$SM with 
master spool management TCB in " Q* 
state. 



1 2 AS 



1 2 AS 



NOROOM 



vy 



TCSD(IPW$DTC) 
TCRD(IPW$DTC) 
TCSV(IPW$DTC) 
TASP(IPW$DPA) 
ICWL(IPW$DPA) 
SPWL(IPW$DPA) 



R0,R14, 
R15 



Rl 



R3 



IPW$WTO 
Chart AD 



IPW$RSW 
Chart AC 



IPW$ATT 
Chart A A 



4 ~^\ 



556 DOS/VS POWER/ VS Logic 



I Labels 



Chart LB14: IPW$$I2 - Initiator/Terminator 
Initiator, Phase 2 



Modified Data 
Fields 



Reg. 
Usage 



Calls 



II2AS 



I AS 08 



IAS12 



IAS20 



AUTOSTART Code 



If the card input area is empty,, no 
(more) autostart processing is 
required and control is passed to.. > 
Otherwise, message 1Q20I AUTOSTART IN 
PROGRESS is printed using message 
management service; register 4 is 
pointed to the SYSIPT CCB and 
register 3 is used to update the EOF 
address in the DTFDI. The interface 
with tne logical reader is set up and 
an * $$ JOB statement is written onto 
disk using registers and 1, 
followed by all autostart statements 
read. 

At EOF on the reader, an * $$ EOJ 
statement is written, followed by a 
null-record (to indicate end-of- 
physical- read- function) the input 
file is closed and the logical reader 
interface is closed. 

The system logical units are 
unassigned (number of units to be 
unassigned in register 2, POWER^VS 
pib address in register 1, address of 
logical unit in register 3) . If no 
autostart was processed (CDIN is 
empty) , branch to > 

Otherwise, a dummy class is indicated 
in the task class list (TCCT = 
X" 5CXXXXFF 1 ) and the interface with 
the logical list is set up. 

All autostart statements are now read 
back. If a PSTART or S command is 
found, it is processed by passing it 
to tne command processor. If the 
autostart statement read results in 
a request for activation of the 
command processor (register 7 * 0) , 
branch to > 

All other statements are read until 
end-of-data is found (CDIN blank) , 
which causes a branch to > 



AS12 



CINP+65 



R4 
R3 

R0,R1 



R2 
Rl 
R3 



1299 



TCCT(IPW$DTC) 



AS32 



ASU8 



IPW$0LI 
Chart AC 
IPW$PLR 
Chart JC 
IPW$WFC 
Cnart AA 

IPW$PLR 
Chart JC 



IPW$CLI 
Chart AC 

IPW$ULP 
Chart GC 



IPW$0LI 
Chart AC 
IPW$GLR 
Chart HB 

IPW$ICP 
Chart GD 



557 



Labels 



Chart LB15: IPW$$I2 . - Initiator/Terminator 
Initiator, Phase 2 



Modified Data 
Fields 



Reg. 
Usage 



Calls 



AS 32 



AS48 



1299 



I29C 



Command Processor Interface 



Read a data record. If any of the 
statements READER=, PRINTERS=, or 
PUNCHES^ is found and they contain 
valid specifications, these 
statements are moved into the command 
processor control block (CPB). In 
all otner cases a dummy statement 
(null record) is put in this area. 
After each update of the CPB the 
command processor TCB is activated 
(TCEB*2 = X'80' ) . 

The termination type in the 
initiator/ terminator TCB is set to 
"immediate stop' 1 (TCTT = C S' ) . The 
end-of-job statement is read and the 
interface with the logical list is 
closed. After successful completion, 
the terminator type is reset to 
•normal 1 (TCTT = C ' ). 

Message 1Q12I POWER/ VS INITIALIZATION 
COMPLETE is printed using message 
management service. 

A wait multiple list is built in the 
task work area, pointing to the CCB" s 
of all data file extents. 

If the termination byte is ' E*, 
branch to > 

A wait multiple is issued to scan for 
double buffering posting. 

Double buffering is scanned by > 

Branch to > 



IPW$GLR 
pChart HB 



CPOP(IPW$DTC) 



TCLB(IPW$DTC) 



TCTT(IPW$DTC) 



TCTT(IPW$DTC) 



TCGW(IPW$DTC) 



IPW$GLR 
Cnart HB 
IPW$CLI 
Chart AC 

IPW$WTO 
Chart AD 
IPW$WFI 
Chart AA 



T100 



DBOO 
I29C 



IPW$WFQ 
Chart AA 



Termination Routine 



T100 



TCOA 



T104 



If a POWER/VS supported partition is 
in DOS/VS 'stopped' state, issue 
message 1Q25I. 



If all tasks are detached (NRTC=2) , 
branch to > 

Clear out ECB at TCGW. 

Wait multiple on double buffering or 
termination posting. 

Double buffering :j.s scanned by..... > 
Branch to > 

The status report is printed by.... > 

POWER/VS accounting record is written 

by •••• > 



IPW$WTO 
Chart AD 



T104 



TCGW(IPW$DTC) 



IPW$WFQ 
cnart AA 



DBOO 
TCO, 

PSOO 



PXOO 



v. 
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T108 



DBOO 
DB02 



C 



PXOO 



A null record is written to indicate 
EOF to accounting. 

Termination status is set to normal 
(NRTT =, N'). The master record is 
written and POWER/VS files are 
closed. 

Termination message 1Q21I POWER/VS 
HAS BEEN TERMINATED is written using 
message management service and the 
job is ended by an SVC 14. 



Double B uffering Scan Routine 
Point to ECB list minus 4. 
Point to next in list. 
If end of list f then return. 



Is CCB posted complete? 

If no, branch >DB02 

Otherwise is MCB still owned? 

If no, branch. . , > 



Is TCB posted with C2 1 ? 
If no, branch. 



DB02 



Is WL£ or unrecoverable I/O error 

set? 

If so, set task to be di spa tenable to 

termination routine. 

Otherwise, unpost CCB, 

Set TCDB off . 

Post TCED. 

Free MCB. 

If operation was not write, 

branch to > 

Free data space. 

Branch to * . > 

POWE R/V S Accounting Record Routine 



Gather necessary accounting 
information for POWER/VS partition 
accounting record from partition job 
accounting record 



Close account file. 
Return. 



DB02 



DB0 2 



DB02 



RE 



MCCM(IPW$DMC) 
TCDB(IPW$DTC) 
TCED(IPW$DTC) 
MCLK(IPW$DMC) 



IPW$WTO 
Chart AD 



PW$RLW 
Chart AC 



IPW$PAR 
Chart FA 

IPW$PAR 
Chart FA 



RE 
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j | Format Account Control Block Routine | 








|AC00 |Reg 


fisters used by this routine are: | 




1 1 Is 


work register | 




ri i 




1 1 2: 


address of DMB | 




R2 | 




1 1 3: 


work register | 




R3 | 




1 1 U: 


address of DTFPH | 




R4 | 




1 • | 5: 


ACB virtual address | 




R5 | 




1 1 6: 


ACB real address | 




R6 j 




1 1 7: 


pointer to device | 
characteristics table | 




R7 | 




1 | 1U s 


return register | 




R14 | 




1 1 15 ; 


base register for this routine. | 




R15 




1 | The 


i ACB storage descriptor is | 


|ACSD(IPW$DAC) 






| | initialized and next pertinent values | 








I |are 


j set in the ACB control field: | 








1 I * 


Device address | 








1 1 * 


Maximum track capacity | 


|ACMT(IPW$DAC) 






i 1 * 


Residual track capacity | 


|ACLC(IPW$DAC) 






1 1 ° 


Number of tracks per cylinder | 


|AC#T(IPW$DAC) 






1 1 * 


Tolerance | 


| ACTL(IPW$DAC) 






1 1 • 


Overnead | 


|ACOH(IPW$DAC) 






1 1 * 


PUB device type code | 


| ACPB(1PW$DAC) 






1 1 * 


DTFPH device type code. | 


|ACDT(IPW$DAC) 






| |Th€ 


* write/read channel program in the | 


|ACSD(IPW$DAC) 






1 |ACI 


I is set up; for this purpose the j 


|ACCH(IPW$DAC) 


R3 




| |CC^ 


1 addresses are relocated. | 








1 |If 


RPS is supported (DTFPH switch | 








1 l b y* 


:e set to X'40'), the channel | 








1 1 P rc 


)gram is updated to include a SET | 








| | SECTOR and READ SECTOR CCW. | 








|AC04 |In 


register 3 the maximum file | 




R3 




| | capacity is calculated. This value | 








1 1 is 


stored as both maximum and | 


|ACMC(IPW$DAC) 






1 1 re - 


sidual capacity in the ACB. The | 


| ACAC(IPW$DAC) 






| | 20? 


i empty limit of the available | 








| | account file capacity is then | 








| | calculated from this value and stored | 








1 |in 


the ACB. | 


|ACEC(IPW$DAC) 






I | Format Module Control Block Routine | 








|FM00 |Rec 


jisters used by this routine are: | 




1 1 1 


: COMREG pointer | 




|R1 




1 1 2 


: PUB pointer | 




|R2 




1 1 3 


: LUB pointer | 




|R3 




1 1 ** 


: DTFPH pointer | 




|R4 




1 1 5 


: work register | 




|R5 




1 1 6 


: MCB address | 




|R6 




1 1 7 


: pointer to extent information | 




|R7 




1 1 ^ 


: base register 2 | 




|R9 




1 |1U 


: return register | 




|R14 




1 | 15 


: base register for this routine. | 




|R15 





V. 



X 



: ± X X X J 



^O" 
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ICalls 



IFM04 



IFSOO 



The MCB is initialized and the 
partition COMREG is obtained. The 
SYS1R macro is issued to obtain PUB 
and LUB addresses. The DMB pointer 
is restored in register 5 and EXCP 
REAL is indicated in the MCB (MCLU = 
X' 80'). Then the real MCB address is 
obtained (REALAD macro) .. The seek 
and TIC addresses are set to 'real' 
values, and the SET SECTOR CCW is 
also set to 'real* if RPS is 
supported (PHRP = X' 40'). 

In the same way the TIC f search, -and 
CCW addresses are set to 'real' 
values. Control is then returned to 
the calling routine via return 
register 14. 

Format M CB Source Statement Library 



File Routine 



Registers used by this routine are: 

1: COMREG pointer 

2: PUB pointer 

3: LUB pointer 

4 : pointer to logical unit 

5: DMB address 

6 : MCB address. 

14: return register 

15: base register for this routine. 

Indicate SSL file in the MCB (MCSD+4 
= C'LM and get the partition COMREG. 
Issue SYSIR to obtain PUB and LUB 
addresses. i^ext the device address 
tattle in placed in the MCB and EXCP 
REAL is indicated (MCLU = X'80 f ). 

The real address of the MCB is 
obtained through the REALAD macro. 
This address, in register 0, is used 
to set the real seek and TIC 
addresses. If the device does not 
have RPS (SYSXXXJ = X'04'), branch 
to > 

Otnerwise, the BG COMREG is obtained 
and the supervisor is tested for RPS 
support; if no RPS support is 
included (RMSROPEN * X'Ol*), branch 
to > 

The CCW for RPS support is relocated 
and the SLB sector table address is 
stored in the MCB. 



MCLO(IPW$DMC) 



MCLU(IPW$DMC) 



MCSK(IPW$DMC) 
MCSS(IPW$DMC) 



MCSH,MCTI,MCCA 
(all IPW$DMC) 



R5 



R14 



Rl 

R2 

R3 

R4 

R5 

R6 

R14 

R15 



MCSD(IPW$DMC) 



MCSD,MCLU 
(BOTH IPW$DMC) 



MCSK,MCSS 
(both IPW$DMC) 



R0 



FS04 



FS04 



MCSX(IPW$DMC) 
x . i 
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FS04 



12 AX 



I2CL 



CLOO 



The search and TIC addresses are 
restored to their real values using 
registers 3 and 0. The SSL 
blocklength is stored in the read CCW 
and its address is loaded into the 
CCB. Then control is returned to the 
calling routine via register 14. 

Account File Extent Exit Routine 



Registers used by this routine are: 

1 : extent information pointer 
5 : ACB pointer 

The high and low order extent limits 
and the symbolic unit are moved into 
the ACB. Then the EXCP REAL 
indicator is set on in the ACB (ACLU 
= X*8 0') and control is returned via 
a LBRET 1 macro. 

Construct Class List Routine 



Registers used by this routine are: 



work register 

relative track and record number 

module control block address 

class table address 

base register 1 

base register 2. 






Move the seek address of the current 
entry, set up register 6 and 
calculate the relative head number of 
the current entry in register 3. 
Next in this register the relative 
record number is placed. The class 
table address pointer is set up in 
register 7. Depending on whether a 
read or list entry or neither is 
specified this pointer is incremented 
by no bytes (read), 128 bytes (list), 
or 256 bytes (punch entry) to contain 
the address of the proper table. 

The class of the current queue entry 
is now converted to a displacement in 
the master class list. This 
displacement is added to the address 
in register 7. If the entry is 
first- in^class, its relative record 
number is stored in the respective 
data* field. If the entry is 
last-in-class, its record is number 
stored in the last-in-class field and 
the * live* indicator is set on 
(CTQL = X'SO'). Control is then 
returned to the calling routine via 
register 14. 



MCSH,MCTI 
(both IPW$DMC) 

MCRW+6(IPW$DMC) 
MCCA(IPW$DMC) 



R3 f R0 



R14 



Rl 
R5 



AC LQ, AC HI, ACLU 
(all IPW$DAC) 



SADR 



R2 
R3 
R6 
R7 
R8 
R9 



R6 
R3 

R7 



CLSV 

CTQF(IPW$DCT) 
CTQL(IPW$DCT) 



R7 






|R14 
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_j 


i 

-J 


r 1 t 


T 1 




T 


1 


| |Data File extent Exit Routine | 








i 




i 
i 


| J 0: read address of work space | 




|R0 




i 
i 


1 1 1 


virtual address of work space | 




|R1 




i 


1 1 2: 


message address and work | 




|R2 




i 


| | register | 








i 


1 1 3 


work register | 




R3 




i 


1 1 ** 


DTFPH data file address | 




|R4 




i 


1 1 6 


module control block address | 




|R6 




i 


1 1 7 


: extent information j 




|R7 




i 


1 1 8 


base register 1 | 




R8 




i 


1 1 9 


\ base register 2 | 




|R9 




i 


1 II 1 * 


branch register | 




|R14 




i 


1 |15 


: work register. | 




|R15 




i 
i 


| | Registers 6 and 7 are initialized. | 




| R6 , R7 




I 
i 


| (The current module number is stored | 








i 


| |in register 3. If this is the first | 




|R3 




i 


| | extent, branch to >|DX04 








i 


| | If more than 5 extents are present, | 








i 


| J the address of aii error message is | 








i 


1 | placed in register, 2 and control is | 




|R2 




i 


1 | passed to > | I2CN 








i 


1 (Otherwise, space is reserved, jtf not| 






|IPW$RSW 


i 


1 (enough space is available, branch | 






| Chart AC 


i 


| | to. ..... . . . > | NOROOM 








i 


| |The address of the next MCB is | 


|CAgl 






i 
i 


| | stored, the skeleton data MCB is | 








i 


I (moved to the virtual work space and | 








i 


( (its addressability is established in | 








i 


| j register 6. | 




|R6 




i 

I 


|DX04 | If the lower head limit is not zero | 








I 

i 


1 j (XTLL * X'OO 1 ), or if the extent is | 








i 


1 (not on a cylinder boundary, a message] 








i 


1 (address is loaded into register 2; | 




|R2 




i 


| 1 then branch to. >| I2CN 








i 


(DX12 (Calculate the total number of J 








i 
i 


1 (cylinders and store this value from | 








i 


1 (register 2 into the NCYL field. | 


| NCYL 


|R2 




i 


| (Calculate the number of tracks and ( 








i 


| ( store this value. Update the module | 


I NRTR 






i 


1 | number in register 3 and store this | 




|R3 




i 


| jvalue in the MNUM field and in the | 


| MNUM 






i 


J |MCB. Then this value is converted | 


|MCSA(IPW$DMC) 






i 


| | and the MCB is formatted via a branch) 








i 


| | and link to > | FM00 








i 


| (The count is saved in the read/write | 


|MCRW(IPW$DMC) 






i 


1 | CCW . | 








i 
■ 


] | Last the module is initialized and a | 








i 
i 


| (pointer to the next module is saved. | 


I MOCU 






i 


1 | Control is then passed to OPEN via a | 








i 


| | LBRET 2 macro instruction. | 








i 

i 


| (Messages from this routine: | 








1 
1 


| | • 1Q18I TOO MANY EXTENTS UDFILE ] 








i 
i 


1 1 * 


1Q19I INVALID EXTENT UDFILE j 








i 
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I2QX 



LOAD 



Queue F ile Extent Exit Routine 



Registers used by this routine are: 



1 

4 

5 
6 
7 
8 
9 
14 
15 



extent information pointer 
DTFPH queue file address 
disk management block address 
module control block address 
extent information pointer 
base register 1 
base register 2 
return register 
work register. 



Registers 6 and 7 are initialized to 
address the MCB and the extent 
information field , respectively. 
Then the MCB is formatted via a 

branch and link to > 

The 'next queue entry pointer' is 
initialized t6 contain the extent 
lower limit and initial values are 
set in the master record seek 
address. 

Now relative lower and upper limit 
are calculated in registers 2 and 3 
and from these values the total 
number of queue entries is calculated 
in register 2 and then stored into 
the 'number of queue records' field. 
Control is returned to the calling 
routine via a LBRET 1 macro 
instruction. 

Load Routine (Load phase specified in 



GENL loc al directory list ) 
Registers used by this routine are: 



2 
3 
4 
5 
8 
9 
14 



load address 

phase name address 

local directory list address 

length of loaded phase 

base register 1 

base register 2 

return register. 



Register 4 is based on the local 
directory list (LDDS) and the 
phasename address (LDPN) is loaded 
into register 3. Now the P0WER/VS 
phase is loaded by means of the LOAD 
macro. The number of text blocks is 
loaded into register 5 (from field 
LDNT) . Then the total phase length 
in bytes is calculated and stored in 
register 5. The LDL is reset to its 
initial value and control is returned 
to the calling routine. 



FMOO 



QCMW(IPW$DQC) 



NRQR 



Rl 

R4 

R5 

R6 

R7 

R8 

R9 

R14 

R15 

R6,R7 



R2,R3 



R2 



R2 
R3 
R4 
R5 
R8 
R9 
R14 

R4 



R3 



R5 



R5 



GENL 
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Labels 



Chart LB21: IPW$$I2 - Initiator/Terminator 
Subroutines 



Modified Data 
Fields 



Reg. 
r-age 



Calls 



NOROOM 



I2CN 



PSOO 



( 



Insufficient Real Storage and Cancel 



Routine 



Registers used by this routine are: 



message address 
work register 
base register 1 
base register 2. 



The real size is loaded into register 
6, converted into a multiple of 
1,024, and unpacked into the message 
field. The address of message 1Q03I 
INSUFFICIENT REAL STORAGE ALLOCATED 
is loaded into register 2. 

The message address is stored in the 
message request word and a message is 
issued on the console. Then the job 
is canceled. 

Print S tatus Report Routine 



Registers used by this routine are: 



1 
2 
3 
4 
7 
8 
9 
14 
15 



communications region pointer 

PUB pointer 

LUB pointer 

work register 

pointer to SYSLST logical unit 

base register 1 

base register 2 

return register 

base register for this routine. 



Save the user registers and set up 
link to communications region. The 
SYSIR macro is issued to obtain the 
applicable PUB and LUB addresses. If 
SYSLST is not assigned, control is 
immediately returned to the calling 
routine. If SYSLST is assigned 
(LUBXXXP * X'FE') and if it is a 
printer, the report can be printed. 



M03B 



TCMW(IPW$DTC) 



R2 
R6 
R8 
R9 

R6 



R2 



Rl 

R2 

R3 

R4 

R7 

R8 

R9 

R14 

R15 



IPW$WTO 
Chart AD 



IPW$SAV 
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| Labels 



- T - — ^_ r .- 

[Reg. [Calls 

| Usage | 



Chart LB22: IPW$$I2 - Initiator/Terminator 
Subroutines 



| Modified Data 
| Fields 



I 



I PS 50 



I 

|PS70 



The device address is unpacked in a 
work area. Register 4 points to the 
print CCB and the printer is skipped 
to a new page. The report header , 
containing the date and time, 
is printed. Next the following 
fields are printed: 

• IJQFILE header 

• Number of queue records 

• Number of free queue records 

• Maximum number of queue records 
used 

• IJDFILE header 

• Total number of tracks for the 
data file 

• Track group size 

• Data block size. 

If no account support is included , a 
line stating that is printed and 
control is passed to . . > 

If account support is included 
(MRJA = C'A' ), the following 
information is now printed: 

• IJAFILE header 

• Total number of tracks for account 
file 

• Percentage of account file filled. 

Finally these fields are printed: 

• Real storage allocated to POWER/VS 
partition 

• Number of times tasks were waiting 
for real storage 

• Maximum number of real pages fixed 

• Maximum number of tasks active at 
one time. 

(Issue display command to let CP 
invoke the Print Status Task.) 



The save area address is restored and 
control is returned to the calling 
routine. 



PS7 



| WORK 

I 

I 

|FLD4 

I 
JFLD7 

I 
I 
I 



I 



\M 



I I 

I I 

|TGEB(IPW$DTG> | 









I 



I 



I K 



|IPW$ICP I 

I Chart GD | 

| IPW$WFC | 

jchart AA j 

I I 

I I 
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I Labels (Chart LB23: IPW$$I2 - 

| J Subroutines 

(. + 

I | Set Up DTFPH Routine 



Initiator/Terminator 



Modified Data 
Fields 



Reg. 
Usage 



Calls 



|SD00 



|SD04 



I 

[SD08 



I SD12 



I 



|SQ00 



| Registers used by this routine are: 



I 



2 
3 
4 
6 
7 
8 
9 
14 
15 



device table address 

loop control register 

DTFPH address 

PUB pointer 

LUB pointer 

base register 1 

base register 2 

return register 

base register for this routine. 



The partition communications region 
is obtained via the COMREG macro. 
Then the sysIR macro is issued to 
obtain the applicable PUB and LUB 
addresses. If the unit found is 
unassigned (LUBXXXP = X' FE 1 ) and if 
the assignment is not to SYSSLB, 

branch to. . . > 

If the assignment is to SYSSLB, 
register 2 is set to zero and control 
is returned via register 14. 

[The device table address is saved in 
[register 2 and the number of entries 
is loaded into register 3. 



I 



| The DTF device type code (DVPB) is 
(checked against SYSXXXT until a match 
| is found; the remaining number of 
[entries is still in register 3. The 
| DTF type code is moved into the DTFPH 
| and control is returned via register 
| 14. 

I 

| The DTFPH filename is moved into the 

(message and 1Q0 7I INVALID LOGICAL 

| UNIT XXXXXXXX is printed on the 

| console using message management 

(service; then the job is canceled. 

I 

I Set Up DMB Fields for SSL Routin e 

I 

(Registers used by this routine are: 



I 1 

I 2 

I 3 

I <+ 

I 5 

( 6 

I 7 
(14 

1 15 



COMREG pointer 

device table address 

LUB pointer 

pointer to logical unit 

DMB address 

MCB address 

PUB pointer 

return register 

base register for this routine,. 



|Get the partition COMREG and the LUB 
|and PUB addresses using the SYSIR 
| macro. 

-j. .„ 



SD12 



M07B 



R2 

R3 

R4 

R6 

R7 

R8 

R9 

R14 

R15 



R2 
R14 



R2 
R3 



R3 



R14 



Rl 

R2 

R3 

R4 

R5 

R6 

R7 

R14 

R15 



IPW$WTO 
Chart AD 
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Labels 



Chart LB24: IPW$$I2 
Subroutines 



Initiator/Terminator 



Modified Data 
Fields 



Reg. 
Usage 



ICalls 



SQ04 



SQ08 



SQ10 



UPDT 



UPD1 



UPD2 



Scan through the device table until 
the device with the proper device 
type code is found (DVPB = SYSXXXT) . 

The device characteristics are now 
moved into the SSL file device 
table and next the records/track and 
tracks/cylinder values are moved into 
the DMB. If the device is not an RPS 
device (MCSS * x f 23' ), control is 
returned to the calling routine via 
register 14. 

The sector value is set to zero and,, 
using registers 1, 2, 3, and 7, the 
sector value is then calculated and 
stored in the DMB. This process 
continues until all records are 
handled and then control is passed to 
the calling routine via register 14. 

Update CCHHR of Queue File Routine 



Registers used by this routine are: 



1 
7 
8 
9 
14 



work register 
address of CCHHR 
Dase register 1 
base register 2 
return register. 



The current record number in register 
2 is checked to see if it is the last 
on the track; if not, branch to.... > 

The record number in the count field 
is set to 1 and, if the upper head is 
not reached, branch to. . > 

Record, head, and cylinder number are 
updated and the cylinder number +1 is 
stored in the count field. Control 
is returned via register 14. 

The record number if updated and 
stored in the count field. Control 
is returned via register 14. 

The head number is updated and stored 
in the count field. Control is 
returned via register 14. 



LFCB 

MCNR(IPW$DQC) 

MCLT(IPW$DQC) 



SLSC(IPW$DQC) 



LF#MS 



R14 

R1,R2 
R3,R7 



R14 



Rl 
R7 
R8 
R9 
R14 

R2 



V 



UPD1 



UPD2 



CTRN 



CTCC 



CTRN 



CTHH 



R14 



R14 



R14 



V^' 
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CHART LC: IPW$$TR - TASK TERMINATOR (21 PARTS) 



Chart LCOO: IPW$$TR - Task Terminator, General Flow and Macro Calls 



( 



Functions 



IPW$$ER 



3540 Diskette 
Reader 



Queue Management 


Module 


Macro 


Ref. 


Chart 


IPW$$AQ 
IPW$$DQ 
IPW$$FQ 


IPWSAQS 
IPW$DQS 
IPWSFQS 


1 

II 
Ml 


DB 
DD 
DE 




Data Management 


Module 


Macro 


Ref. 


Chart 


IPW$$PD 


IPW$PDR 


IV 


EA 




Account Management 


Module 


Macro 


Ref. 


Chart 


IPW$$PA 
IPW$$GA 


IPW$PAR 
IPW$GAR 


V 
VI 


FA 
FB 




Miscellaneous 


Module 


Macro 


Ref. 


Chart 


IPW$$LU 


IPW$ULP 


VII 


GC 


External Routines 


$$BCLOSE - close tape file 



IPW$$LR, 
IPW$$LW 



reader/writer 
task 



] 



V 



IPWSSNU 



Task management 
(Attach the task) 



after 
PSTOP 



I/O error or 

WLR (DASDortape) 



Services 



IPW$$TR 


- POWER/VS Termination Routine 




Label 


Routine 


Functions/ 
Interfaces 


Services 




Routine to check if initiator is being 
terminated or if multiple termination 
is effected 






TR08 


Save the registers of the failing task 




F 


TR18 


Check file type in which I/O error 
occurred 






TR26 


Error on account file routine 






TR34 


Error on SSL routine 






TR38 


Error on queue file routine 


I 


D,E,F,K 


TX00 


Error on data file routine 




D 


TX22 


Clean the queues 


II, III 




TX36 


Write account record routine 


V 


M 


TX40 


Input mode data/queue file 


II, III 


D,E,K,J 


TX78 


Execution writer wrap-up 


l,lll,IV,VH 




TY00 


Stand-alone account file routine 


VI.VII 


C 


TY10 


Execution reader wrap-up 


VII 


B,E 


TY20 


Final wrap-up 


VII 


L 


TY38 


Release all resources, 




A.E.G 


TR76 


Subroutines 




J,K 


TX06 






J,K 


TX16 








TX18 








TY62 






H 






normal 
exit 




abnormal 
termination 





=> 



IPW$$NU 



Task management 
(Detach the task) 



DOS/VS Supervisor 



SVC 6 - CANCEL 



IPW$$NU 


Macro 


Ref. 


Chart 


Task Management 


A 
B 
C 

D 
E 

F 
G 

H 

J 
K 

L 

M 


AA 

AB 
AC 
AD 
AE 
AF 
AG 


IPW$DET 
IPW$WFI 
IPWSFCH 


Resource Management 


IPWSRSR 
IPWSRLR 


Storage Management 


IPW$RSW 
IPWSRLW 


Message Service 


IPWSWTO 


Disk Service 


IPWSWTQ 
IPWSRDQ 


Tape Service 


IPW$CTT 


Timer Service 


IPW$$RDC 



c 
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Labels 



Chart LC01: IPW$$TR - Task Terminator 



Modified Data 
Fields 



Reg. 
Usage 



ICalls 



TRSD 



TR04 



TR06 



Entry to this routine is from any 
failing POWER/ VS routine. 

The first 16 bytes constitute the 
section descriptor: 



•TRCS 



V10MQ 



Register usage ; 




1 
2 
3 

4 

5 
6 
6 

7: 

8: 

9: 
10: 

11 j 
12: 

13: 

14: 
15: 



**** - work register 

**** . work register 

**** - work register 

**** _ work register 

IPW$DDE - device list entry 

pointer 

IPW$DQR - queue record pointer 

IPW$DQC - DMB pointer 

IPW$DPD - partition control 

block pointer 

IPW$DCT - class table pointer 

**** - work register; link 

register 

**** - base register 

IPW$DPA - pointer to permanent 

area 

IPW$DTC - address of TCB 

**** - link register for task 

selection 

IPW$DSV - address of register 

save area 

**** - link register 

**** - function routine base 

register. 



Set up permanent area and TCB 
addressability in registers 10 and 
11. 

If the failing task is the initiator 
task (IPW$$I2) , the job is canceled 
(termination to be accomplished by 
$$BP0WIN). If the failing task is 
the command processor task, recovery 
is not possible, message 1Q82I I/O 
ERROR DURING TTT, POWER/ VS TERMINATED 

is printed in the > 

subroutine, and the job is canceled. 

If this routine has been entered 
before (meaning that more than one 
unrecoverable I/O error has 
occurred) , message 1Q75I MULTIPLE 
TERMINATION OF TASK, POWER/VS 

TERMINATED is printed in the > 

subroutine, and the job is canceled. 



\.y 



R0 
Rl 
R2 
R3 
R4 

R5 
R6 



R7 
R8 

R9 
RIO 

Rll 
R12 

R13 

R14 
R15 



v__y ■ 



RIO, Rll | 



TY70 



TY70 



<c 
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I Labels 



Chart LC0 2: IPW$$TR - Task Terminator 



Modified Data 
Fields 



Reg. 
Usage 



Calls 



ITR08 



I TRIO 



ITR12 



( 



ITR14 



ITR16 



Addressability is established in 
register 9. The addressability of 
the save area is set up in register 2 
and the failing task's registers 
and 1 in SVRO and SVRl. 
If the TCB is not owned by IPW$$SA 
(TCTI * C ACT 1 ), branch to > 

Otherwise, the account trace 
indicator in the failing task' s TCB 
(label TCAT) is checked to see if any 
account function was active. No such 
function is active if the main 
routine had only just started , was in 
the 'active" state, or had just been 
ended at the time the failure 
occurred. In any of these cases, 
branch to ... > 

Otherwise, (failure during open, get, 
or close function), branch to > 

If the task had output to spool files 
(TCGW+8 = 4C '), check spool 

function activity at ... i > 

Otherwise, (the task's main routine 
active) , branch to > 

Now a check is made to see which 
spool function was being performed. 
If the function trace indicator in 
the TCB (label TCFT) indicates that 
the task has just been initiated 
after the logical end of the spool 
function or a 'ready for input' state 
during the spool function (TCFT = 
X'OO', X'40', CO', C'E', or CI'), 
branch to. . > 

Otherwise,, (spool macro being 
executed and the task' s registers 
have already been saved by the 
function), branch to > 



The pertinent registers of the 
failing task (register 4 - register 
8) are saved in SVRH. 

Now space is reserved for the 
register save area and the TR save 
area and the address is saved in 
register 13. 



R9 
R2 



TR12 



SVRO(IPW$DSV) 
SVRl(IPW$DSV) 



TRIO 
TR16 

TR12 
TR14 



TR14 



TR16 



SVR4(IPQ$SDV) 



IPW$RSW 
Cnart AC 



R13 



C 
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Labels 



Chart LC03: IPW$$TR - Task Terminator 



Modified Data 
Fields 



Reg. 
Usage 



I Calls 



H k 



TR18 



TR22 



TR26 



TR28 



TR30 



Addressability of the queue record 
and the disk management block is set 
up in registers 5 and 6, 
respectively. If this routine was 
not entered due to an unrecoverable 
I/O error (TCTT * C'U'), clean up the 
queues at ', . . > 

Otnerwise, the POWER/ VS cancel code 
is set to 'canceled due to 
unrecoverable I/O error 1 (QRCN = 
X'70'). Addressability of the 
synchronous save area is set up in 
register l f register 2 is set up as 
MCB counter (set to 8), and register 
3 is pointed to the first MCB 
(A(CAQD). 

Now a check is made to see if the MCB 
of the failing task indicates a 

system MCB. If so, branch to > 

If the failing function is in the 

account file, branch to > 

Otherwise (failing device is not a 
system module) , branch to > 

The 'failing device found' switch 
(X'FF') is set in the work space 
(address in register 1) and a branch 
table is used to branch to the proper 
routine. The failure may have 
occurred in: 

• queue file; branch to. > 

• any data file; branch to > 

• private or system SSL; branch to > 

Account File Routine 



Message 1Q61I IRRECOVERABLE ERROR ON 

AFILE N CUU is printed in the > 

subroutine. 

If no task is waiting for an account 
function , branch to > 

If a task was waiting for a put 

account function, branch to > 

If a task was waiting for a get 
account function, the termination 
type in the TCB is set to "immediate 
stop' (TNTT = C'S') . 

For a task waiting for either a get 
or put account function, completion 
of that function is simulated by 
restoring the task's registers and 
setting the return address as if the 
account function has been completed 
successfully and the task is set 
dispatchable . 



Branch to check the next task >|TR2S 

x x 



R5,R6 



TX20 



QRCN(IPW$DQR) 



R1,R2 



R3 



TR22 
TR26 
TX22 



Rl 



TR38 
TXOO 
TR3U 



TY70 

TR32 
TR3 



TNTT(IPW$DTC) 



Tt4RE(IPW$DTC) 
TNRC(IPW$DTC) 



TNSF(IPW$DTC) 



-J ff 

V 
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I Labels 



Chart LC04: IPW$$TR - Task Terminator 



Modified Data 
Fields 



Reg. 
Usage 



Calls 



ITR32 



ITR34 



ITR38 



ITR40 



ITR42 



Job accounting support is suppressed 
(MRJA = C f ' ) as well as put account 
record support (CAPA = 4X f 00'). Then 
message 1Q74I ACCOUNT SUPPORT 
FUNCTIONS TERMINATED is printed in 

the > 

subroutine. If the account function 

was save account, branch to > 

Otherwise, (put account) , the account 
function is finished at > 

System or Private SSL Routine 



Message 1Q61I IRRECOVERABLE I/O ERROR 
ON SYSTEM/PVT SSL is printed in 



the. 



> 



subroutine, and the queues are 
cleaned up at > 

Queue Record Routine 



The CCW real address is obtained from 
the CCB addressed by register 1 and 
placed in register 1. Using the 
VIRTAD macro, the corresponding 
virtual address is obtained and from 
the seek CCW, of the virtual address 
of the BBCCHH field is obtained in 
register 0. Then the address of the 
complete MBBCCHH field is obtained in 
register 8. If this address is not 
that of the master queue record, 

branch to > 

Otherwise, the error occurred in a 
master queue record and the partition 
must be canceled. Therefore, the DMB 
is reserved and message 1Q63I 
IRRECOVERABLE I/O ERROR IN QUEUE 
MASTER REC - CUU is printed in 

the > 

subroutine. 

Message 1Q76I POWER/VS CANNOT 

CONTINUE is printed in the > 

subroutine, and the partition is 
canceled. 

Message 1Q61I IRRECOVERABLE I/O ERROR 
ON QFILE N CUU is printed in the... > 
subroutine. If the error occurred 
during a 'reserve queue set' function 
(TCFT = C'R 1 ), the free set is 
inaccessible. In that case,, branch 

to > 

If the error occurred neither during 
a reserve nor during a release 
function , branch to > 



MRJA(IPW$DQC) 
CAPA 



TY70 

TX22 
TY00 



TY70 
TX22 



Rl 



R0 
R8 



TR4 2 



IPW$RSR 
cnart AB 



TY70 



TY70 



TY70 



TR4 6 



TR4 8 
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Labels 



Chart LC0 5: IPW$$TR - Task Terminator 



Modified Data 
Fields 



Reg. 
Usage 



Calls 



'X J 



TR44 



TR46 



TR48 



TR50 



TR56 



If the record was not the new first 
in free set, it is ignored because it 
does not belong on any class chain; 
in that case, branch to. > 

If the error occurred during a 
•release queue set' function (TCFT = 
C'F') and if the record in error is 
the new first record in the free set, 
the pointer to the first record in 
the free set is reset to its original 
value and the function trace 
indicator is set to 'release function 
completed' (TCFT = C'E'); then branch 
to. > 

Message 1Q67I FREE SET NOT ACCESSIBLE 

is printed in the . > 

subroutine, and the partition is 
canceled via a branch to > 

If the error occurred during a 'get 
next queue record' function (TCFT = 
C'ISI'), no queue record is in the 
queue space as yet; then the class 

chain is obtained at > 

Otherwise (add queue or delete queue 
function), the DMB is reserved. If 
the failing record is the one in the 
queue buffer, it is deleted. If not, 
the class must be scanned at....... > 

De lete S pecific Queue Set from System 



Files 



The address of the first- in- set is 
read. 

Subsequently the addresses on the 
previous -in-set and the next-in-set 
in the queue sets preceding and 
following the set in error are made 
to point around the erroneous set 
(point to each other), the queue set 

in error is deleted > 

The DMB address is obtained in 
register 3. Then the DMB is 
released. 

Message 1Q64I JOB jobname RDR/PUN/LST 
SET DELETED is printed in the. ..... > 

subroutine, and branch to account 
routine at > 

If the error occurred during an 
IPW$GQS function, the class chain in 
error is not known and must now be 
found. To do this the DMB is 
reserved using register 3 and the 
address of the bad record is 
saved in TCGW. Then queue space is 
reserved and the address of the task 
class list is loaded in register 4. 



TR44 



TX22 

TY70 

TR40 



MRQF(IPW$DQC) 



TCFT(IPW$DTC) 



TR56 



TR66 



IPW$RSR 
Chart AB 



X,_^ 



QCQW(IPW$DQC) 

QCQW(IPW$DQC) 
TCGW(IPW$DTC) 



IPW$RDQ 
Chart AE 



TX06 



R3 



IPW$RLR 
Chart AB 



TY70 
TX36 



TCGW(IPW$DTC) 



R3 



R4 



IPW$RSR 
Chart AB 

IPW$RSW 
Chart AC 
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Labels 



Chart LC06: IPW$$TR - Task Terminator 



Modified Data 
Fields 



Reg. 
Usage 



T 1 

Calls 



TR58 



TR60 



TR66 



TR68 



C 



TR74 



C 



With the address of the class entry 
in register 7, a search is made for a 
live entry. If no such entry is 
found, the task is detached at .... > 

When the queue -set in error is found, 

it is deleted in the >j 

subroutine and message 1Q65I UNKNOWN 
RDR/LST/PUN SET DELETED is printed in 

the - • • • > 

subroutine. Then accounting is ] 
performed in > 

For add to queue and delete from 
queue functions, the known class 
chain is now scanned for the record 
in error. To do this, first the 
address of the failing record is 
saved in TCGW and the message space, 
and the queue record information is 
saved in the message space. Then 
queue space addressability is set up 
in register 5. Then the class type 
is determined from the queue record 
identifier (QRQI) and the address of 
the class table is loaded into 
register 7. 

Through the class ID and the index to 
the class entry (both found in 
register 8) , the address of the class 
entry in error is loaded into 
register 7. Then new queue space is 
obtained and the real and virtual 
addresses of this space are saved in 
TCQA. 

Then the record is deleted in the . > 
subroutine, and a message is set up. 

Message 1Q65I UNKNOWN RDR/LST/PUN SET 

DELETED is printed in the > 

subroutine. Then the DMB is released 
and, if the current (not the failing) 
record is the f irst-in-set, branch 

to > 

Otherwise, if the failing record was 
the first-in-set, no more queue file 
clean up is required, so branch 
to > 

If the function trace indicator shows 
that an add to queue function was 
being processed at the time of the 
failure (TCFT = C'A' ), the request is 

executed and branch is to > 

Otherwise, queue file clean up is 
finished at > 

Delete Bad Record in Chain Routine 



Registers used by this routine are: 



R7 



TX3 
TR76 

TY70 

TX36 



TCGW(IPW$DTC) 
TCMW(IPW$DTC) 



R7 



R8 
R7 



IPW$RSW 
Chart AC 



TCQA(IPW$DTC) 



TR76 



TY70 



TR7 4 



TX36 



IPW$RLR 
Chart AB 



TX36 

TX22 



IPW$AQS 
Chart DB 
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__ T . 

|Reg. 
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r - 

Calls 

I _ 




r - — "" - - t 

| 1: relative record address | 
| 2: address of field containing | 

| 5: address of queue space | 
j 8: return register | 
| 1U : link register. | 


•f - — . - 


T 1 

|R1 
|R2 

|R5 
|R8 
|R1U 


r - — 


|TR76 


|The relative address of the first | 

| register 1. Register 2 contains the | 
| address of the field in which the | 
[absolute address will be returned. | 
| Branch and link to. >| TX18 




|R1,R2 






| to get the address converted to | 
| absolute. If the failing record is | 
| found, branch to.... >|TR8 




|TR78 


|Read a queue record. When the bad | 

| record is found, branch to >|TR82 

| If the end of the chain is found | 
| before a bad record is hit, the task | 
| is detached at >|TR94 






| IPW$RDQ 
| Chart AE 


|TR80 


| Set the queue record seek address to | 
|zero. | 


|QCQW(IPW$DQC) 






|TR82 


|Set up queue space addressability in | 
| register 5. Get the relative | 
j last-in-queue pointer in register 1 | 
1 and go to >| TX1 8 


|.TCQW(IPW$DTC) 
|TCQW(IPW$DTC) 


|R5 

|R1 

|R8 






|to have the address converted | 
| (absolute address in TCQW) . If the .| 
(bad record is the last record, branch| 
| to > | TR8 6 




(TR84 


| Otherwise, read a new record and, if | 
| the previous record was the bad one, | 
1 branch to a. >|TR88 


|IPW$RDQ 
(Chart AE 




|If the beginning of the chain is 

| reacned (reading was backward) before) 

|a bad record is found; the task is | 

| detached at... >|TR94 




|TR86 


| Zero tne last, and bad, record. If | 
| the queue set constitutes the entire | 
(class, the entire class is deleted | 
jand control is returned to the | 
|calling routine via register 8. | 
| Otherwise, branch to.. >|TR92 




|TR88 


|The reverse pointer (to the bad | 
(record) is updated to point to the | 
| queue set before the bad record and | 
| then written back. If the bad record | 
(was the first in chain, the new | 
| address is converted from absolute to | 
| relative in routine >|TX16 


|QRQP(IPW$DQC) 




| IPW$WTQ 
(Chart AE 




|and updated in the chain. | 




|TR90 


| The next in queue pointer is updated | 
|and the record written back. Then | 
j control is returned to the calling | 
j routine via register 8. | 


|QCQN(IPW$DQC) 


|R8 


| IPW$WTQ 
(Chart AE 



H 



f - 



^_y 



X- 



x -r x x x A 
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ITR92 



ITXOO 



( 



ITX04 



ITX06 



ITX08 



The forward pointer is cleared and 
written back. The new last record 
address is converted from absolute to 
relative in routine > 

and the last-in-class pointer is set, 
as well as the active indicator. 
Then control is returned to the 
calling routine via register 8. 

Data File Routine 



If the error occurred on a data file, 
message 1Q61I UNRECOVERABLE I/O ERROR 
ON XFILE N CUU is printed in the... > 
subroutine, and, if the error 
occurred on a get data record 
function (function trace indicator 
TCFT = C'G'), branch to > 

If the function was a put data record 
function (function trace indicator 
TCFT = C'P'); message 1Q64I JOB 
jobname RDR/LST/PUN SET DELETED is 

printed in > 

the function is ignored because the 
queue set has not been added to any 
class chain, and accounting is 
performed at. . . > 

With the use of register 3, the DMB 
is reserved and the queue set in 
error is deleted at > 

Delete S pecific Queue Set in Class 
Chain Routine 



Registers used by this routine are: 

1: relative disk address 

2: absolute disk address pointer 

3 : work register 

7: address of class table 

8 : return register 

14: link register. 

The address of the applicable 
(reader, list, or punch) class table 
is loaded into register 7. 

The index to the class table entry is 
calculated in register 3; register 7 
is then pointed to the relevant entry 
in the class table. If this is not 
the first set in the queue, the 
previous set's pointers must be 
updated; this is done via a brancn 

to . . > 

Otherwise, if this entry is also the 
last in the queue, the entire chain 
is deleted and the calling routine is 
returned to via, link register 8. 



QCQN(IPW$DQC) 



IPW$WTQ 
Chart AE 



TX16 



R8 



TY70 



TX04 



TY70 



TX36 



TR5 



R3 



IPW$RSR 
Chart AB 



Rl 
R2 
R3 
R7 
R8 
R14 



R7 



R3,R7 



TX12 



CTQF(IPW$DTC) 



R8 



C 
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\,y 



TX10 



TX12 



TX14 



TX16 



If the entry is just the first in the 
chain, the absolute address of the 
next in chain is obtained in register 

2 and converted to relative in > 

This relative address is returned in 
register 1 and saved as the new first 
in set address , the active indicator 
is set (CTQL = X'80'), and branch 
to > 

Read the previous set's first record, 
update the next queue set in class 
pointer to point around the bad queue 
set, and write the record back. 

If this is not the last in set, 
branch to ... > 

Otherwise, the absolute address of 
the queue set previous to the bad 
queue set in chain is obtained in 
register 2 and converted to relative 

in . . > 

This relative address is returned in 
register 1 and saved as the new last 
in set address, the active indicator 
is set (CTQL = X'80'), and return is 
made to the calling routine via link 
register 8. 

The address of the previous set is 
saved, the next set in the chain is 
pointed to and obtained, the previous 
set pointer in the next set just 
obtained is reset to point around the 
bad queue set, and the next set's 
first record is written back. Then 
return is made to the caller via link 
register 8 . 

Disk Address Conversion Routine 



(absolute to relative) 



Registers used by this routine are: 



work register 
relative record class 
absolute record address pointer 
module control block address 
return register. 



The cylinder number is obtained from 
the field addressed by register 2 
and placed in register 1. The 
starting cylinder number of the queue 
set is subtracted and this value is 
multiplied by the number of tracks 
per cylinder and the number of . 
records per track to obtain the 
relative record number in register 1. 
Then return via register 14. 



TX16 



TX14 



CTQF(IPW$DTC) 
CTQL(IPW$DTC) 
QCQN(IPW$DQC) 



R2 
Rl 



IPW$RDQ 
Chart AE 

IPW$WTQ 
Chart AE 



TX14 



TX16 



CTQL(IPW$DTC) 



TCGW(IPW$DTC) 
QCQW(IPW$DQC) 



QCQN(IPW$DQC) 



R2 
Rl 

R8 



IPW$RDQ 
Chart AE 

IPW$WTQ 
Chart AE 



k 



R8 



R0 
Rl 
R2 
R3 
R14 



R2 
Rl 



R14 
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ITX18 



ITX20 



C 



ITX22 



Disk Address Conversion Routine 



(relative to absolute) 



Registers used by this routine are: 

0: work register 

1: relative record address 

2 : pointer to field containing 

aDsolute address 
3 : module control block address 
14: return register. 

The high order bits are stripped of 
the absolute address, the DMB address 
is set in register 3. Then the 
relative track and relative cylinder 
number are calculated in register ; 
the remainders of these values are 
the relative record and track, 
respectively. Together with the 
relative cylinder number these values 
are stored in the relative disk 
address field pointed to by register 
2. Then control is returned to the 
calling routine via register 14. 

Clean the Queues 



This routine is entered at TX22 in 
the case of unrecoverable I/O error. 
This entry point (TX20) is for PSTOP. 
Therefore, 'canceled due to PSTOP' is 
set in the POWER/VS cancel code (QRCN 
= X'30') . 

Entry Point for Irrecoverable I/O 



Error 



If the function trace indicator 
(TCFT) is set to X'OO' or C" ' (main 
routine just initialized or finished 
meaning no queue function has yet 
been invoked or logical end of spool 
functions successfully reached), no 
clean up is required; in that case 
branch to ♦ > 

Otherwise, if writing of an account 
record was pending (TCFT = C'E" ), or 
if the error occurred during account 
record writing, (TCFT = C'L' ), retry 
on the account function is effected 
at > 

If the function was writing to spool 
(output, TCFT = C"R' , CO', C'P", or 
CAM, branch to > 

Otherwise (reading from spool), check 
the input function at > 



R0 
Rl 
R2 

R3 

R14 



R3 
R0 



QCQW(IPW$DQC) 



R2 
R14 



QRCN(IPW$DQR) 



TX30 



TX36 



TX24 



TX40 



579 



Page of SY33-8577-1, Revised November 24, 1977, By TNL SN33-9241 



h 



Labels 



Chart LC11: IPW$$TR - Task Terminator 



Modified Data 
Fields 



Reg. 
Usage 



Calls 



TX24 



TX30 



TX32 



TX34 



If this is an execution processor 
task (TCTI = C"E '), it must be the 
execution writer, so branch to > 

The error occurred on a non- execution 
processor task. The address of the 
queue space is obtained in register 
1, and # if there is no queue space 
branch to. > 

If tnis is not a reader task, branch 
to.... > 

Otherwise, load the address of the 
message page into register 3 and the 
address of the message area into 
register 1. 

The text of message 1Q64I is moved 
from the message page to the message 
area. 

A link is made to the message routine 
to log message "1Q64I JOB jobname RDR 
SET DELETED' > 

If tne current task is a reader task, 
started for a card device or 3540 
diskette device, branch to > 

General Exit from Queue/Data File 
Clea n Up • 



If the task was not an execution 

processor, branch to > 

Otherwise, (TCTI = C'E '), set up 
addressability of the synchronous 
save area in register 1, reload the 
failing task's registers, and, if the 
task was an execution reader task, 

branch to > 

Otherwise (execution writer task) , 
branch to. . . > 

If the queue set was not deleted and 
returned to the free set before, it 
is done now. 



If the task was not an RJE list, 

orpunch task, branch to. > 

If RJE task, branch to.... > 

Otherwise, if the device used by the 
task is a tape (TCQW = X' 80'), branch 

to > 

If not (unit record device), branch 
to > 

If it was a save account function, 

brancn to > 

Otherwise, if the task was a reader 
task , branch to > 



TX7 8 



TX30 



TX26 



TY70 



TX36 



TX32 



TY10 
TX78 



TX34 
TY38 



TY20 
TY30 

TY00 
TY30 



Rl 



R1,R3 



TKMS(TRWS) 



R14 



K^y 



Rl 
R4-R8 



IPW$DQS 
Cnart DD 
IPW$FQS 
Cnart DE 



v. 
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ITX36 



( 



ITX40 



If not, the task is an unknown task; 

in that case branch to.... . ... > 

Otherwise, (TCTI = C'STAT'), branch 
to > 

Write Account Record Routine 



If the task was owned by an execution 
processor, the accounting function is 
ignored; branch to > 

The current time value is obtained 
via an IPW$RDC call, and then stored 
in the queue record. 

The virtual queue file address is 
loaded into register 1, and the 
length of the account record which 
depends on the class type (RDR,LST, 
or PUN) is determined and placed in 
register 0. If it is none of these 
class types, branch to > 

In case of stopped list or punch 
task, counters for pages, 
lines/cards, and number- of- copies 
are updated and moved into the queue 
record. 

If the start time is zero, bypass 
writing the account record and branch 
to > 

The account record that could not be 
written before is now written. Then 
branch to > 

Input Mode Data/Queue File 

If TCTI = C'STAT', no clean up is 

necessary, so branch to > 

Otherwise, if the function is neither 

punch nor list, branch to > 

If the device used is tape, 

branch to > 

If a PSTOP command without RESTART 
was issued, branch to > 

Otherwise (TCTT = C'R'), get the 
address of the logical list save area 
in register 1 and point register 4 to 
the account counter DSECT (LADS). 

Read the first queue record. 

The remaining number of copies is 
saved and the increment is set in 
register 0. If restart is active, 
update the restart page count in 

register 0, and branch to.... > 

If restart is not active, update the 
current page or card, depending on 
the class type. 



TY38 
TY26 



TX30 



IPW$RDC 
Chart AG 



QRET(IPW$DQR) 



Rl 



TX34 



QRLSJE(1PW$DQR) 
QRNP(IPW$DQR) 
QRNA(IPW$DQR) 
QRNR(IPW$DQR) 
QRIS1C(IPW$DQR) 



R7 



TX32 
TX32 

TY26 
TX52 
TX36 

TX51 



IPW$PAR 
Chart FA 



R1,R4 



R0 



IPW$RDQ 
Chart AE 



TX50 



R0 



LACP 
LACR 
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.. ; ±. 


TX50 


. — . T 

Save the restart page count in the 
queue record. 


r • 


Q'RRR(IPW$DQR) 






TX51 


If this is not a physical writer 
task, branch to > 


TX52 








If the device being serviced is not 




a 3800 printer, branch to > 


TX52 










If the output is not for a 38 00, 












branch to > 


TX52 




R1 




Using register 1 as a base address 




for the TCB extension area, the 




QRCI(IPW$DQR) 








current copy group index is saved in 












the queue record. 










TX52 


If the function during which the 
error occurred was ■ get next queue 
record', "get next data record* , or 
at a stage in between these two 
(TCFT = C'N', C'G', or CI'), branch 
to > 


TX6 8 










Otherwise, based on the values in the 












indicator, the queue set may be 








IPW$DQS 




deleted or, if it had already been 








Chart DD 




deleted, it may be freed. If freeing 












is not required, branch to. ........ > 


TX54 






IPW$FQS 
Chart DE 




Otherwise, after freeing, branch 










to > 


TX36 








TX54 


If at this stage a 'release queue 
set' function is not indicated (TCFT 
= C'F"), branch to > 

Otherwise, a test is made to see if 
the queue set has been released 
successfully. To do this, the DMB 
is once again reserved, the first 
in set queue record is read and the 
queue record identifier is inspected 
to see if the queue set was freed 
(QCQI = C'F') or reused for another 
queue set. Then the DMB is released 
again and, if the queue set was not 
freed before, it is freed now. 

At the successful completion of this 


TX30 






IPW$RSR 
Chart AB 
IPW$RDQ 
Chart AE 

IPW$RLR 
Chart AB 
IPW$FQS 
Chart DE 


|TX68 


routine, branch to. > 


TX36 










Non-Deleted Queue Set 




With the proper address in register 






R3 






3, the DMB is reserved. The first 








IPW$RSR 


I 


| record in the queue set is now read. | 

i i 
i _ - i 






Chart AB 
IPW$RDQ 
Chart AE 
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L 


The execution switch is reset and, if | 
the task was ended by a PSTOP | 
command, the cancel code in the queue | 
record is set to 'canceled due to | 
PSTOP'. The 'copy' counter and | 
'remaining copy" counter are updated | 
if required. If this task does not | 
belong to an execution reader, branch | 
to ,. >| TX76 


QRXS(1PW$DQR) 
QRCN(IPW$DQR) | 
QRdC(IPW$DQR) | 

QRCR(IPW$DQR) | 
QRDP(IPW$DQR) | 


I 

Otherwise, the disposition is reset | 
from either 'K' to 'L' or from 'D' to| 
'H' (to prevent the job from being | 
dispatched immediately) . | 

L . JL 



( 



582.1 



K-.y 



x y 



\^,y 
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ITX76 



ITX78 



( 



ITX8 



ITX84 



ITX86 



C 



The queue record is written. 

If RJE task, then branch to........ > 

If reader queue record then branch t> 

If list or punch queue record then 
the line bit in the master class 
table is set on.. > 

Execution Writer Wrap-up 

Register 1 is pointed to the 
synchronous register save area, and 
the failing task's registers 4-8 are 
reloaded. Register 6 contains the 
address of the PDB and register 4 
that of the device list entry. If 
this is an execution reader, an error 
has occurred (this is the output mode 
handler); therefore, branch to > 

Otherwise, get the queue space 
address. If no queue space is 
available, branch to > 

If the execution writer uses tape, 
branch to. > 

Otherwise, if the current record or 
the first record in the current queue 
set is a bad record, bypass 
segmentation and branch to > 

If no output was generated, release 
the queue set, and branch to _. > 

Otherwise (bad record somewhere in 
the queue set) , segmentation of the 
queue set is effected. This is done 
by forcing end-of-data (blank data 
field, length of one, NOP CCW) and 
setting an 'I' disposition to 'D', 
while at the same time setting the 
queue record identifier to 'reader'. 

Now the queue set is added to the 
class chain; branch to . > 

Message 1Q61I IRRECOVERABLE I/O ERROR 

ON CUU is printed in the.., > 

subroutine. 

Control of the device in the user 
partition being spooled is passed 
back to the execution reader by 
setting the address of the 
controlling TCB (that is in the 
device list entry IPW$DDE) in the 
partition control block (IPW$DPD) to 
point to the execution reader TCB. 
The execution reader task will 
initiate an execution writer task to 
continue processing. The execution 
reader is set dispatchable, as well 



IPW$WTQ 
Chart AE 



TX64 
TX64 

TX64 



CTQL(IPW$DQC) 



Rl 
R4-R8 



TY10 



TX8 6 



TX84 



TX86 



TX8 6 



TCCC 
TCGP 
QRDP(IPW$DQR) 

QRQI (IPW$DQR) 



TX8 6 



TY70 



IPW$FQS 
Chart DE 



IPW$PDR 
Chart EA 



IPW$AQS 
Chart DB 



TLTC(IPW$DTL) 



TCEB(IPW$DTC) 
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T T 1 

| as tne partition. Then messages | 
|1Q68I SEGMENTATION FORCED FOR jobname| 
|nnnnn ttt CUU and 1Q69I DEFAULT | 
| OPTIONS TAKEN FOR jobname nnnnn ttt | j 

| CUU are printed in the >|TY70 

(subroutine. I 


T 


T. 


JTYOO 


| If the device is tape (TCQW = X' 80'),| | 
(unassign the device using registers | 

|0, 1, and 3. Then branch to >|TY38 j 

I Save Account (PACCOUNT) Task Wrap-up | 


|R3,R1 


| IPW$ULP 
| Chart GC 




I Routine I j 






| If tne 'failing device found' switch | 

jis set, the failing device was not anj 

| output device for put account, so | | 

| branch to > | T YO 2 






| Otherwise, message 1Q61I | 
(UNRECOVERABLE I/O ERROR ON PACCOUNT | 
| OUTPUT DEVICE is printed in the.... >|TY70 
| subroutine, and branch is to >|TY04 




|TY02 


| If the account file was in the | 
| process of being erased or if the | 
| operator requested deletion of the | 
| account file, branch to >|TY05 






|TY04 


|The ACB is reset to 'put' mode and | 
|its original values are restored. | 




|IPW$CAF 
|Chart FB 


|TY05 


| Message 1Q66I ACCOUNT FILE KEPT and | 
| message 1Q72I PACCOUNT TERMINATED are | 
| printed in the >| TY7C 








(subroutine. | 






(If the activity was on disk, or if | 
| output spooling was active, branch | 
1 1 to. > (TY38 


|R3 

1 1R3 






(Otherwise, the CCB pointer is | 
(obtained in register 3; if no CCB is | 
| initialized, branch to..... >|TY08 






(branch to... •••'•' >|TY06 

(Otherwise, the CCB pointer for the | 
( tappe is stored in register 3 and set | 
(to a dummy SVC value. Then a fetch | 
1 is simulated to close the SA tape j 
|file. This is done via an SVC 2 to j 
|$$BCLOSE. | 


| IPW$FCH 
| Chart AA 
(transient 
|$$BCLOSE 


JTY06 


| Unassign the device and branch | 

(to >|TY38 




| IPW$ULP 
| Chart GC 


|TY08 


(Set up a dummy CCB and point register) 
|3 to it; then unassign the device and) 
| branch to , >|TY06 


1 1*3 


| IPW$ULP 
(Chart GC 
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ITY10 



ITY14 



( 



ITY16 



ITY18 



ITY20 






Executio n Reader Wrap-up 



Establish addressability of the PCB 
in register 6. 

Release DMB to prevent execution 
writer waiting on locked resource. 

Get the number of entries in register 
and the first entry address in 
register 4. 

Scan through the reader table and, 
for those tasks that have been 
started, reset the ownership, set the 
task termination code to stop (TNTT = 
C'S'), and post the live indicator in 
the event control block. Then wait 
for the writer task to sign stop 
completion. 

The POWER/VS control flags in theuser 
partition are reset, as well as 
the partition control block. 

Then unassign SYSRDR. If the parti- 
tion is writer-only, branch to > 

Unassign the device specified in the 
entry. 

Point register 4 to the next entry in 
the PDB and continue to unassign, via 
branches to TY16> until all units 
have been handled. 

Message 1Q70I TASK FAILURE, STOPPED 
TTT is printed in the > 

subroutine and the following fields 
are updated: 

• job control switches (turn oh bits 
4 and 5) 

• the PIB cancel code (set to X'FF' ) 

• the PIB fetch E0J monitor flag 
(X"08') 

• the PIB flag byte is set 
dispa tenable (X'Ol'). 

Then branch to > 

Physi cal Writer with Tape - Wrap-up • 



Register 7 is based on the tape 
control block. If no unrecoverable 
I/O error was encountered (IPW$$TR 
entered via a PSTOP command) , or if 
the error found is not a tape error, 

branch to > 

Otherwise, message 1Q61I 
IRRECOVERABLE I/O ERROR ON CUU is 

printed in the > 

subroutine. Then branch to > 



R6 



IPW$RLR 
Chart AB 



R4 



TY18 



TLCT(IPW$DTL) 
TNTT(IPW$DTC) 

TNEB(IPW$DTC) 



P0WFLG1, 2 
POWPCB 

TCGW(IPW$DTC) 



IPW$WFC 
Chart AA 



IPW$ULP 
Chart GC 

IPW$ULP 
Chart GC 



R4 



|TY70 



JCSWKCMRG) 

PIBCNCL 
PIBFLG2 

PIBFLG 



TY38 



R7 



TY22 



TY70 
TY24 
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r 

| Labels 

h 

JTY22 


T 

| Chart LC17: 1PW$$TR - Task Terminator 

_ f _ .„ T _ 

|The command is issued to rewind and | 
| unload the tape. | 


__ T 

| Modified Data 
| Fields 

„ + „„. 


— T T 

|Reg. (Calls 
| Usage | 

__ + + 

j |IPW$CTT 
| (Chart AF 


|TY24 


|The tape unit is unassigned; then | 

| branch to >|TY3 




| | IPW$ULP 
j | Chart GC 


|TY26 


(Validate Unit Record CCB and Unassiqnl 






| the Device I 






| If an unrecoverable I/O error was | 
(encountered (TCTT = CU'), message j 
|1Q73I STATUS DISPLAY TERMINATED is | 

| printed in the. >| TY70 

(subroutine. | 






|TY28 


(If the unit record device that failed) 
|is the console or a spool management | 
|task, it need not be unassigned, so | 
(branch to.... >(TY38 








| Otherwise, una s sign the device at.. >|TY36 




|TY30 


(Unassiqn the Unit Record LUB | 








| If the entry condition found was not | 
(an unrecoverable I/O error, branch | 
| to > | T Y3 4 






(If the 'failing device found* switch | 
| is set, the failing device was not a | 
| unit record device, so branch to... >|TY32 






(Otherwise, message 1Q61I | 
(UNRECOVERABLE I/O ERROR ON CUU is | 
| printed in the.... >|TY7 








(subroutine. | 




|TY32 


|Message 1Q71I TTT,CUU TERMINATED is | 

j printed in the >| TY7 








( subroutine; then branch to >| TY36 




|TY34 


| Message 1Q33I STOPPED TTT,CUU is ( 

| printed in the >|TY7 






| subroutine. ( 
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r 1 

Labels 


r " 1 

Chart LC17.1: IPW$$TR - Task Terminator 


r 1 

Modified Data 
Fields 


1 

Reg. 
Usage 


r 

Calls 


TY36 


r ~ "" " *" . T 
In case the current task is a spool 
management task, then bypass this 

resource to > 


r i 

TY38 
|TY36D 








If task is not a reader or list task, 
branch to , > 




area. 






If zero, work space is already 
released, branch to > 


ITY36D 










Let register 1 point to CCB(1 buffer). 




|R1 






If no double buffering, branch to.. > 


TY36B 










If it is not a writer task, branch 
to > 


TY36D 




R1 




If this buffer is active, then let 
register 1 point to the other CCB. 






If no double buffering, branch to.. > 


TY36B 








TY36C 


Check if CCB is already posted. This 
could be the CCB having the J/0 error 
and the reason to be here. 

If not posted, wait on I/O 
completion. 








IPW$WFC 


TY36D 


Assignments made for this task are 
now to be unassigned. 

Load register 2 with the cuu field 
from the TCB. 

Load the branch index to request for 
a generic unacsign into register 0. 

Load tne address of the POWER/VS PIB 
into register 1. 

The current unit record device is 
unassigned. 

If the task is not a reader task, 
branch to > 


TY38 
TY38 




R2 

R0 
Rl 


IPW$ULP 
Chart GC 


If the reader task has not been 
activated in combination witn a 354 
diskette reader, branch to > 





( 



L J. 



J. X- 



X J 



C 



587 



Page of SY33-8577-1 , Revised November 24, 1977, By TNL SN33-9241 



r 1 

Labels 


r 1 

Chart LC18: IPW$$TR - Task Terminator 


1 

Modified Data 
Fields 


1 

Reg. 
Usage 


I 

Calls 




Load the address of the register 7 
field in the physical save area of 

programmer unit number, as a CCB like 
field into register 3. 


r l 




R3 






If the physical work space of the 
reader task has already been 












Otherwise, reload register 3 with the 
address of PELU - 6, to use this part 
of the physical work space as a CCB 
like field. 






R3 




TY37 


Point register 1 to the PIB of the 
POWER/VS partition. 

Load register with the branch index 
to request to unassign the programmer 
logical unit in the CCB like field 
addressed by register 3. 






Rl 
R0 






Tne programmer logical unit assigned 
to the 354 diskette device is 
unassigned. 




m 




IPW$ULP 
Chart GC 


TY38 


A new base register domain is 
established. 

If the task uses the asynchronous 
service subtask, a IPW$IAS 
TYPE=DETACH request is issued to 
detach the subtask. 






R9 


IPW$IAS 
Chart GH 


TY38F 


Release Resources 






R7,R8 




Register 7 contains the address of 
the first resource, and register 8 
contains the number of resources. 






A scan through all control blocks is 
made. If the control block is for a 
function or a device that is 
supported by the present system, 
locked, and owned by the task, it is 
now released. 

Release Work Space 






R8 


IPW$RLR 
Chart AB 


The address of the first page is 
loaded into register 8. 




TY44 


The address of tne first buffer 
control word (BCW) on this page is 
loaded into register 7. 






R7 




TY46 

L 


The buffer length is obtained in 
register 2. If the length is zero 

(end of page), branch to > 

If the lengtn is positive (buffer not 
in use) , branch to. > 


TY56 
TY54 

u . . J 


— . . 


R2 

|R3 

L . 




Otherwise, load the positive buffer 
length into register 3. 

L ._ . . .. 


L_ . .— _ 



% y 



H_ 
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Labels 



Chart LC19: IPW$$TR - Task Terminator 



Modified Data 
Fields 



Reg- 
Usage 



Calls 



TY48 



TY50 



C 



TY54 



TY56 



The length of the next buffer is 
loaded into register 4. If that 
buffer is not active or if end-of- 
page is reached, the buffer after 
that is obtained. This process is 
continued until a second active 
buffer is found or end-of-page is 
reached. 

Two active buffers have now been 
found, or one active buffer has been 
found and end-of-page was reached. 
The address of the second buffer is 
saved in register 6 and, if the owner 
of tne first buffer is the present 
task, the first buffer is released. 
Otnerwise, the first buffer is 
ignored, the address of the second 
buffer is updated to make it the 
first Duffer (address now in register 
7), and a search for another active 

buffer is started at > 

This process is continued until all 
work space is released. 

The BCW pointer is updated and the 
next buffer checked at > 

If end-of-page is reached, switch to 
the next page (address in register 
8); if there is another page, branch 
to > 

Otherwise, all active work space nas 
been scanned. If this is not an RJE 
task (TCTI < CO"), branch to.. > 



R4 



IPW$RLW 
Chart AC 



TY4 6 



TY4 6 



TY4U 



TY67 



R7 



R7 



R8 
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r~ — 

| Labels 


| Chart LC19.1: IPW$$TR - Task Terminator 

j. _ _ _ _ „«. _ 


— T 

| Modified Data 
| Fields 
^j. „ 


— T 

|Reg. 
(Usage 

j. 


~T 

|Calls 

_j ._ 




t — — r — 


^t — — 


— f 


t 




| If this is not an SNA reader or | 








|TY58 


] If this is an SNA inbound processor | 
| task, the address of the inbound | 
| processor is loaded into register 2. | 
| Otherwise the address of the SNA | 

| into register 2. | 




|R2 




|TY64 


| Addressability of the SNA work area | 
| (WACB) is set up in register 3. | 

| The address of the RJE,SNA error | 
| routine (WAER) is loaded into | 
| register 1. | 

|The processing switch in the SNA work| 
jarea is set to X'FE' to indicate that| 
| the logical interface is closed. | 

|The RJE,SNA error routine is branched! 
|to via register 1. | 


|WASW(IPW$DWA) 


|R3 
|R1 




|TY66 


|The address of the RJE,BSC routine | 
j (IPW$$TM) is loaded into register 1 | 
|and branched to. | 




|R1 


| Phase 
j IPW$$TM 


|TY67 


| If not a spool management request | 
|(TCTI*'J'), branch to.... >|TY6 8 


|TCXA(IPW$DTC) 
|CASF(IPW$DPA) 


|R15 
|R9 






|The address of the error routine | 
| is set up in register 15 and the base | 
(register 9 is established. | 
| Direct branch to termination routine | 
|in IPW$$SM. | 
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r T T T T 

| Labels | Chart LC20: IPW$$TR - Task Terminator | Modified Data |Reg. | Calls 

| | | Fields | Usage | 

,. + T x x x 

|TY68 |The task is detached. | | | | IPW$DET 

|| III I Chart AA 

II III I 

I I Write Message to Console Routine | | | | 

II II II 

| | Register used by this routine is: | | II 

II II II 

| | 14: return register. | | |R14 | 

II II II 

|TY70 | Write a message to console using | | | |IPW$WTO 

| j message service and return to the | | | | Chart AD 

| |calling routine via return register | | II 

I 1 14. || |R14 | 

L X -L X X X 



( 
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CHART LD: $$BPOWIN • INITIATOR/ TERMINATOR TRANSIENT (4 PARTS) 



Chart LDOO: $$BPOWIN - Initiator/Terminator Transient,, General Flow and Macro Calls 



IPW$$I2 



POWER/VS 
Initiator 



$$BE0J4 



DOS/VS EOJ 
Handling 



Y 



$$BPOWIN .- Initiation /Termination Transient 



Label 



IJBPOWIN 
RESET 
ASSN 
TROF 



Routine 



Initialize, and check POWER/VS 
activity 

Not active; set PSW key to zero 
andreturntolPW$$12 

Active; read and check printer 
address 

Reset all POWER/VS indications 
in all partitions 



V 



IPW$$I2 



POWER/VS 
Initiator 



Functions/ 
Interfaces 



I 



$$BEOJ4 



DOS/VS EOJ 
Handling 



Services 



I 



$$BEOJ7 



DOS/VS EOJ 
Handling 



v y 
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( 



Labels 


Chart LD01: $$BPOWIN • Initiator/Terminator 


Modified Data 


Reg. 


Calls 




Transient 


Fields 


Usage 






h T i 











Reqister usaqe 






R0 






0: **** - work register 






1 


**** _ work register 






Rl 






2 


. **** - work register 






R2 






3 


. **** ~ Work register 






R3 






a 


. SCOM - Address of SYSCOM 






RU 






5 


. **** - Work register 






R5 






6 


. **** - work register 






R6 








. **** - work register 












8 


. **** - Work register 






R8 






9 


. **** _ work register 






R9 






10 


. **** _ work register 






RIO 






11 


. ♦♦*♦ - work register 






Rll 






12; 


CMRG - Address of communications 






R12 






region 












13; **** « work register 






R13 






14: **** - Linkage register 






R14 






15 : **** . Base register. 






R15 




IJBPOWIN 


The address of the communi cat ions 
region is placed in register 12 and 
the addressability of the AR PIB is 
set up in register 5. Then the 
SYSCOM address is set up in register 
4 and the POWER/VS flag is tested. 
If the flag is on (POWER/VS active), 
branch to . . . . . .. .............. ,. .. -. ,. . ,. > 

Otherwise,, the PSW key is set to zero 
and an exit is made from $$BPOWIN via 
an SVC 11. 

Check for DOS/VS Subtask Cancel 


PW02 




R12 

R5 
R4 

R3 
Rl 




PW02 


•If DOS/VS multitasking (AP=YES) 






is supported, and the maintask has 






Rl 






cai 
If 


icelled, branch to > 


PW03 










a subtask which is not the 






asynchronous service subtask, has 






R2,R10 






bee 
Th( 


sn cancelled, branch to > 


PW03 










s task waiting for completion of 






the asynchronous service request is 












made dispatchable. 




TCSF(IPW$DTC) 








Post stop state. 




TCTT(IPW$DTC) 








Return is made to $$BEOJ7 via SVC 2. 




. 






PW03 


The following checks are made: 

• If a normal EOJ„ then branch to 
turn off POWER/VS switches**..... > 

• Otherwise,, if a dump was issued,, 
also branch to turn off POWER/VS 

SW X uCllcS . '. '. ■>• * i. '. •• • '. . . . . i. '. '. ■'. *. '. '. >. '. i. ^ 

• Otherwise, if a program request 
for a cancel was made,, then force 


PW36 
PW36 












a dump and branch to. ....... ...*... > 


PW08 


PIBCNCL ( 


\ 
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] Labels 

i 

Y 



IPW08 



I 



JPW12 



Chart LD01.1; 
Transient 



$$BPOWIN - Initiator/Terminator 



Otherwise, copy the cancel code of 
the subtask in the ma in task PIB and 
set flags to indicate cancel,, fetch 
EOJ, f and post maintask PIB. 

Issue Termination Message and Assign 



SYSLST for Dump 



The address of SYSLST for this 
partition is calculated in register 
6. 

With register 2 as a work register v 
the CCW chain required for message 
writing is set up. 

The address of the CCW chain is 
stored in the SYSLOG CCB. 

Message 1Q30D ABNORMAL P0WER/VS 
TERMINATION. PRINTER- is printed on 
SYSLOG. Then the operator reply is 
analyzed. If the CANCEL key was hit 
(CCBSTA1 = X'Ol*),, the message is 
reissued .. ,. .. ,. /• • • . • > 



PW12 



Modified Data 
Fields 



PIBCNCL 

PIBFLG 

PIBFLG2 



CCBCCW 



Reg. 
Usage 



Rl 



R1 (# R2 

R3 f R6 (f 

R11,R14 

R2 

Rl 

Rl 



Calls 



GLUB 
Chart LD 



X, / 



w 
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I Labels 



h 



IPW16 



IPW20 



IPW24 



IPW28 



IPW32 



IPW36 



( 



IPW40 



IPW44 



[Chart LD02: 
| Transient 



$$BPOWIN - Initiator/Terminator 



If the operator typed 'no' or END/EOB 

(blank input area),, 

branch to . • • • ................ > 

The operator replied with a printer 
address.. If the address is invalid,, 
message 1Q30D INVALID PRINTER TYPE,, 
RE-ENTER is loaded into the message 
buffer and printed via a branch back 

A valid address was given and is now 
translated to a hexadecimal device 
address. 

The device address is now checked 
against the PUB table; if the 
end- of -table is found,, if the device 
is down,, or if the device type is 
invalid (PUBDEVTY not between X'40 f 
and X'50")„ retype the invalid 
printer message at................. > 

The assignment of the valid printer 
is now made. 

Delete all POWER/VS . Indications 



The POWER/VS active bit in the SYSCOM 
is reset and the address of the 
POWER/VS table is deleted. The 
number of partitions is loaded into 
register and the PIB2 pointer in 
register 2. 

The addressability of the partition 
COMREG is established in register 12. 
If the partition pointed to is the 
POWER/VS partition branch to....... > 

If this partition is supported by 
POWER/VS , branch to > 

Otherwise,, reset the POWER/VS flags. 
Then zero the PCB address. 

The number of partitions in register 
is decremented, and if not zero,, 
branch back to. . . > 



PW36 



PW12 



PW12 



PW48 



PW64 



PW40 



Modified Data 
Fields 



INPT 



Reg.. 
Usage 

RO 



R2„R3 



DVAD,INPT 



LUBXXXP 

IJBLG03 
IJBPWR 



P0WFLG1,,P0WFLG2 
PCWPCB 



R7 



R0,R7 



R0,R5 



R3 
R2 

R2„R5 
R12 



RO 



Calls 
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Labels 


Chart LD03: $$BPOWIN - Initiator/Terminator 


Modified Data 


Reg. 


Calls 




Transient 


Fields 


Usage 




PW48 


POWER/VS partition 


1 


JCSW1 






Reset the job control switch for the 






partition COMREG. 












A branch is made to get the LUB 






R1 ,R2 






parameters > 


GLUB 




R3,R5 
RC,RE 






The following loop checks all non- 












system LUBs: 










PW52 


If the LUB is unassigned, branch 












to . . > 


PW60 




R7 




The PUB address assigned to the LUB 






is calculated and the device type is 












examined. 












If the device is a DASD device, 












branch to • > . 


PW60 




R1 




If the device is a 3800 printer, a 






SETPRT parameter list is built: 












• save registers and 1 5 






R0,R2,,R3 






• set proper LUB address in SETPRT 




SPPLUNIT 


RF 






parameter list 




(SP'LIST) 








• indicate LUB address 




SPPFLAG1 








The SETPRT request is issued, which 












sets up the printer with hardware/ 












system defaults. 












Registers and 15 are restored. 






R0 , R2 

R3,RF 




PW56 


The LUB is unassigned, and the PUB 
ownership is cleared. 




LUPXXXP 


R7 




PW60 


a branch is made to loop through. . . > 
If no more LUBs are to be checked, 


PW52 




R6 




PW64 


branch to •••• > 


PW44 


PIBFLG 


R1,R10 




If the partition was not stopped, 






then the partition is set 












dispatchable (bit 7 in PIBFLG of the 












PIB is set on),, and further,, if there 












is a QTAM wait,, then bit 4 of PIBFLG 












is turned off. Also in the PIB„ the 












flags for EOJ and cancel are set, and 












the cancel code is stored in the PIB. 




PIBFLG 2 
PIBCNCL 






PW76 


Then the devices described in the 
partition PIB are checked, except 






R1,R2, 
R3„R5 






for the console, and any LUB's 




LUB 


R6,R7„ 






which are assigned to the devices 






R8,R9, 






are unassigned, except for devices 






R13„R14 






whicn are device type "do no 












intercept' (CN') . 












Branch back to > 


PW44 









V J 



V.. y 
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( 



Labels 



Chart LD03.1: $$BPOWIN 
Transient 



Initiator/Terminator 



Modified Data 
Fields 



Reg. 
Usage 



Calls 



Delete PQWER/VS Spool Management 

XECB's 



If spool management was not 

requested, 

then branch to 



The macro XECBTAB is used to first 
delete the internal reader XECB and 
next the spool manager XECB. Then 
the XECBTAB macro is used to check if 
the internal reader is active. 
If not active, then branch to > 



Then the XPOST macro is used to 
notify the user that POWER/VS is 
terminating. 



PW47 



PW4 6 



R1,R5, 

R10,R12 

Rl , R2 , 
R15 



R2, R5 
R15 



( 






1596.1 



V..J*- 



V 



r 

| Labels 


-T 

| Chart LD04: $$BPOWIN - Initiator/Terminator 

± — «. -. _ — — — — -^ — 


__ T 

| Modified Data 
JFields 


— T - t 

jReg. | Calls 
| Usage | 
- J- - 4- - 


|PW46 


^ - « — — — — T 

| A check is made of the spool manager | 
| interface using the XECBTAB macro. | 


— t 


T T 




| Then the XPOST macro is used to | 
| notify the user that POWER/VS is j 
(terminating. | 






|PW47 


|SVC 2. | 
I Subroutine to Get LUB Parameters | 






|GLUB 


| Using the PIB address in R5 and the | 
| COMREG address in R12 # the following [ 
[calculations are made: | 




|R5,,R11„ | 
|R12 | 




|« Partition FICL multiplied by 2 . | 
| (Rl) | 
| • The number of system units. (R2) | 
| • The number of programmer units . | 
| (R3) | 




|Rl,R2, | 
|R3 | 




| Return to caller | 




|R14 | 
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CHART MA: IPw~$$TM - BSC REMOTE JOB ENTRY ROUTINES (49 PARTS) 






Chart MAO 0-2 IPW$$'TM - BSC Remote Job Entry Routines,. General Flow and Macro Calls 



Account Management 


Module 


Macro 


Ref. 


Chart 


IPWSSPA 


IPWSPAR 


1 


FA 




Miscellaneous 


Module 


Macro 


Ref. 


Chart 


IPWSSLU 
IPWSSIC 


IPWSULP 
IPWSICP 


II 
ill 


GC 
GD 



Module 


Macro 


Ref. 


Chart 


IPWSSNU 


IPW$OLI 


IV 


AC 


IPW.SSNU 


IPWSCLI 


V 


AC 


IPW$$LR 


IPWSPLR 


VI 


HB 


1PW$$LW 


IPWSGLR 


VII 


JC 



IPW$$I2 



I 



IPW$$NU 




IPWSSTR 


Task Management 
(Attach the task) 


Termination 























V 



0=o 



IPWSSTM - 


Remote Job Entry 






Label 


Routine 


Functions/ 
interfaces 


Services 


STARTRDR 


Reader Routine 


VI 


B 


STARTOUT 
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STARTRDR 



3ETL00P 



NOTCMD 



PUTL 



CLOSRDR 



RJ E Physical Reader Routine 



This routine is entered after it has 
been attached by the line manager 
when it receives an enquiry from the 
terminal indicating that the reader 
is ready. 

Relevant register contents passed by 
the line manager: 



BCA pointer 
base register 
base register 



PDET 



Register 9 is set up to point to the 
LCB, and a link is made to open the 
reader > 

If a buffer was saved, it is released 
now. Register 3 is set up to point 
to the record buffer and a link is 
made to obtain an input record..... > 

If signoff is in progress , branch to> 

If the current job stream is not on a 
job boundary, branch to bypass RJE 
command processing. . > 

Otherwise, a check is made for pre- 
sence of the RJE command identifier;, 
■* ..', and if found, a branch is 
made to process the RJE command. ... > 

If no user is currently signed on,, 
branch to process invalid signon. . . > 

If no RJE command, and the record 
contains only blanks, (indicating 
auto-turnaround on 2780), the record 
is ignored and a branch is taken to 
process EOT > 

Otherwise, data pointer registers 

(input record address) and 1 (input 

record length) ar^ set up to point to 

the record just read. 

The record is passed to the logical 

reader. 

If not EOF (record length in register 

1 not zero), branch to get next 

record , > 

If EOF not on job boundary,, brancn to 
issue diagnostic message indicating 
unexpected EOF. > 

If EOF on job boundary,, the reader is 
closed by branching and linking to. > 

The reader TCB in the LCB is zeroed. 
The input class pointer of the reader 
TCB is saved in the LCB. 
The line manager is posted. 
The task is detached. 



OPEN 
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TPGET 
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NOTCMD 
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(MA01) 
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/T" 



RJg_Physical Wr i ter Ro ut ine 



This routine, which handles remote 
list/punch output, is entered after 
it has been attached by the line 
manager when it receives an ACK from 
the terminal indicating that the 
printer or punch is ready. 

Relevant register contents passed by 
the line manager: 



BCA pointer 
base register 
base register 



STARTOUT 



PUTLOOP 



CLOSOUT 



Register 9 is set up to address the 

LCB. 

if starting up a message writer, 

branch to issue the messages........ > 

A link is made to open the list/ 
punch > 

If necessary,, reset message switch 
for list. 

A data record is obtained from the 
logical writer. 

If return after end of job,, branch 
to > 

If record length pointer register 1 
is zero, indicating end of data, a 
branch is made to reset output switch 
and close the list/punch.. > 

If end of job (data record address in 
register zero) , branch to close the 
list/punch > 

Otherwise, link to tne PUT routine. > 

Branch to get next data records .... > 

A link is first made to flush the 
output buffer > 

Branch to > 
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MESSWTR 
■(MAO 3) 

OPEN 
(MA05) 



R4 
R7 
R8 
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R14 
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ICalls 



MESSWTR 



MESSWRl 



NEXTMSG 



Me§Sa(£e_RC>Utine 

This routine lists all outstanding 
messages for the current remote ID. 

If not invalid SIGNON, branch > 

Force minimum buffersize. 

A link is first made to open the 

If not invalid SIGNON, branch to... > 

Force minimum buffersize. | 

list > 

On return, the command code in the 
list TCB is set to skip to the next 
page. 

If the last printed output was a 
message, branch to.... > 

Otherwise, set the command code to 
eject. 

A link is made to the PUT 

routi ne > 

Set the message indicator. 

If the task has been stopped 
immediately, branch to > 

Get the next message from the remote 
message queue, via a branch and link 
to > 

If there are no messages left,, branch 
to > 

Set up data pointer and length field 
in the TCB. 

The write command code is set in the 

TCB. 

A link is made to the PUT 

routine,. > 

Retrieve the data pointer from the 

TCB. 

Delete the messages from the subchain 
via a branch and link to..., > 

Test for immediate stop. If yes, 
branch to > 

Otherwise branch to process next 
message > 



MESSWRl 



MESSWRl 



MSGOPEN 

(MA05) 



NEXTMSG 
(MAO 3) 



TPPUT 
(MA10) 



MSGSTOP 



GETMSG 
CMA 04) 

MSGEXIT 
(MAO 3) 



TPPUT 
(MA10) 



DELMSG 
(MA04) 

MSGSTOP 



NEXTMSG 



LCBBFSIZ 



LCBBFSIZ 



Rl 
R14 
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R14 
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MSGEXIT 



MSGDOIME 
MSGD0NE2 



MSGSTOP 



If the list task was interrupted, the 
command code in the TCB is set to 
space 3 lines. 

A link is made to the PUT routine A 
times > 

Link to close the list.... > 

If the user is not signing of f , 
branch > 

Set restart flag and branch to detach 
the writer task > 



Release output buffer using IPW$RLM. 
Branch to close message writer..... > 



TCCC (IPW$DTC) 



TPPUT 

(MA10) 
MSGCLOSE 

(.MAI 9) 

CLOSMSG 
(MA04) 

CLOSMSG 

(MA04) 



MSGDONE 2 
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KILLMSG 
GETMSG 



DELMSG 



If there are no messages left, 
return to caller via register 6. 

The function indicator is set to 
X'10' to indicate that a BSC message 
is to be obtained* and a link is 
made to the remote message 
service in the POWER/VS nucleus. 
If called by the message writer, 
return via register 6. 

The function indicator is set to 
X'18" to indicate that a BSC message 
is to be deleted, and a link is made 
to the remote message service in 
the POWER/VS. nucleus. 
If called by the message writer, 
return via register 6. 

Otherwise, branch to try again > 

Close Routine LCB 



CLOSEXIT 



CLOSEX1 



CLOSEX3 



CLOSEX2 
CL0S0UT3 



CLOSOUT4 



CLOSMSG 



Registers 7 and 8 are set up as base 
registers. 

Register 9 is set up as LCB pointer. 

If end of chain,, branch to find 
correct LCB, if not found yet > 

Register 4 is set up as BCA pointer. 

If the current task is a reader task, 
branch to close the reader task > 

Clear the output record count to 
prevent an attempt to flush the 
output buffer and branch for punch 
task . > 

Reset hot list switch. 

Branch to close the list > 

Reset hot punch switch. 

Test for MSGWRTR 

If not go to > 

Clear register 13. 

BAL to > 

(Continue after CLCS0UT4) 

BAL to > 

The current list/punch forms ID in 
the TCB general work area is saved. 

Detach the task > 



TCMW(IPW$DTC) 



TCMW(IPW$DTC) 



KILLMSG 
(MA04) 



CL0SEX1 
(MA04) 



CLOSRDR 
(MA01) 



CL0SEX2 
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CLOSOUT3 
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C LOS OUT H 



MSGCLOSE 



CLOS 
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PDET 
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LCBOUT(IPW$DLC) 
LCEOUT(IPW$DLC) 
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R6 



R7,R8 
R9 

R4 



RD 



RE 



IPW$$RMS 
Chart AD 



IPW$RMS 
Chart AD 



IPW$CLI 



603 



Labels 



Chart MAO 5: IPW$$TM - Remote Job Entry 
Routines 



Modified Data 
Fields 



Reg. 
Usage 



Calls 



Open Logical Reader/Writer Interface 



OPEN 



MSGOPEN 



MBPPOPEN 



An IPW$OLI call is issued to open the 
logical reader /writer interface. 

Make the line manager the owner of 
the work space just obtained to 
prevent release by IPW$$TR. 

(Alternative entry point to bypass 
opening the logical interface) 

The appropriate code table is moved 
to the BCA, and the appropriate 
buffer size is loaded in register 1. 

If the current task is a reader task, 
64 bytes are added to the buffer 
space count in register 1 to provide 
enough space for an input record (80 
bytes) in the same buffer. 

The buffer space is reserved. 

Real and virtual buffer space 
addresses, as passed in register 
and 1, respectively, are saved. 

If the current task is not a reader 
task, branch around reader CCW string 
preparation > 

Otherwise, the remote acknowledgement 
character in the BCA is set to odd 
acknowl edgemen t . 

A link is made to initiate CCW chain 
for read operations...., ... > 

Link to initiate read of first block 
of data........ > 

Branch back to caller. 

The acknowledgement is saved. 

A link is made to initiate CCWs for 
write operations > 

The maximum record count in the BCA 
is set to 2 (1 for the 3741). 

If the terminal has the multiple 
record feature, the maximum record 
count is set to 7. 

The data buffer address is loaded in 
register 3. 

If the terminal is a 2780 type, 
branch > 
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LCBACK(IPW$DBC) 
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GWJDJO 



MBN70PN1 



MBN70PN2 



Otherwise, data buffer address in 
register is decremented by one, so 
that register now points to the 
byte immediately preceding the data 
buffer. 

The maximum record count is set to 
255. 

If terminal type is 3780,, branch to > 

Reset component selection and wait 
for completion. 

If task has been stopped immediately, 
branch to > | 

If a buffer was saved, it is released! 

now. 

Branch to > 

The data buffer address in register 1 
is now stored in the carriage control 
address and the remote data address 
of the BCA. 

If the device to be opened is not a 
punch , branch > 

Otherwise, component select in the 
data buffer is set to device 2 (punch 
device) . 

If the transparency feature is not 
present, branch back to caller to 
bypass punch select. 
Otherwise, if 2780, branch > 

If not, initialize maximum record 
count at 6. 

If 2770 buffer size is 512 (which 
accommodates 6 records) branch back 
to caller. 

Otherwise, maximum record count is 
reset to 3,, and, if 2770 buffer size 
is 256 (3 records),, branch back. 
Otherwise, maximum record count is 
set to 1, and branch back to caller. 

If maximum record count higher than 
4, it is set to 4. 

2780 punch select is set up in the 
data buffer. 

The length of the punch select record 
just set up (3) is moved to the 
appropriate CCW. 

Current remote output record count is 
set to 4 (maximum record count) to 
force actual execution of the punch 
select. 



MBN70PW1 
(MA06) 



CL0SEX3 



FORMCLOS 

(MA18) 



TPBLCCAD 
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MBPROPEN 



TPGET 



If no buffer was saved,, return to 

caller. 

Write component select, and wait for 

completion. 

If an error occurred, branch to.... > 

Otherwise, return to caller. 

Carriage control consolidation is 

prohibited by invalidating the last 

remote command code entry. 

If no ^lorizontal format control is 

supported on the terminal printer, 

branch back to caller to bypass tab 

setting. 

Otherwise,, a tab initialization 
record is built: 

• Horizontal tab record ID is moved 
in. 

• Every 10 columns a tab character 

(X'OS') is inserted. 

• Using register 15 as a work 
register, the data buffer address 
in the BCA is incremented to point 
past the tab initialization 

record. 

• The current remote output record 
count is set to 1* 

• Immediately following the non-data 
(tab initialization) part of the 
record (the location TPBFDATA 
points to currently) lf a 'new line' 
character (X'15') is inserted. 

• The block length of the tab 
initialization record is 
calculated in register 15 and 
stored in the appropriate CCW. 

Branch back to caller. 

Remote Terminal Read Routine 



CCB address (= BCA address) is loaded 
in register 1, and an IPW$WFC call is 
issued to wait for I/O completion if 
I/O was started on the terminal. 

On I/O completion # the address of the 
next (logical) record is loaded in 
register 15. 

If real end of transmission has been 
recei.vedi, branch. * . . . > 

If terminal has the EBCDIC feature,, 
branch > 

If the input data has already been 
translated, branch to > 
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LOOPTR 



TRTEX 



LASTTR 



MBHGNASC 



MBHGTRSP 



MBHGNTRS 



MB2780G 



Otherwise, the input data is 
translated to EBCDIC: 

• Data start address is loaded in 
register 1. 

• Data length is loaded in register 
2. 

• The maximum string length to be 
translated by one translate 
instruction C256) is loaded in 
register 0. 

• If the length of the string 
remaining to be translated has 
become less than 256 lf the 
remainder is translated outside 
this loop* by branching to > 

• Otherwise* 256 bytes are 
translated. 

• String pointers register 1 
(address) and register 2 
(remaining length) are updated, 
and branch back to translate next 
string , . . > 



Translate last block. 



STX 



If the first data character is 

(start of text),, indicating 

non- trans parent text, branch > 

The length of the first buffer is 
checked. 

If terminal type 27 80, branch > 

If the data pointer in the BCA does 
not point to the start of the data 
block, it is decremented by 3. 

80 data bytes are moved to the 
caller's buffer, pointed to by 
register 3. 

Register 15 is incremented by 8 3 to 
point to the next data record. 

Branch to the GET exit routine,.... > 

For non-transparent input, data 
pointer register 15 is decremented by 
one to point to the DLE character. 

If register 15 still does not point 
to the STX character it is 
decremented once more by one. 

A translate and test table is 
initialized to scan for a termination 
character (end-of-medium or 
inter-record separator). 

If none found,, branch. > 
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MBHGNFLD 



If a termination character is 
detected, the 8 0-bytes buffer of the 
caller is blanked out, and column 
pointer register 6 is initialized 
with the start address of the 
caller's buffer. 

Using register 5 as a work register, 
the length of the non-blank field of 
the input record is calculated in 
register 2, and this non- blank field, 
if any, is moved to the caller's 
buffer. 

If tne termination character is not 
an IGS character, implying that no 
compressed blanks are present, 
branch > 

Otherwise, register 15 and 6 are 
incremented to point immediately past 
the current input record, and 
immediately past the non- blank area 
in the caller's buffer, respectively* 

If the terminal code type is ASCII, 
the byte containing the compressed 
blank count is translated to EBCDIC, 
and the compressed blank count (6 low 
order bits of this byte) , is loaded 
in register 2. 

Register 6 is incremented to allow 
for this number of compressed blanks. 

Register 2 is set up to point to the 
last available byte of the caller's 
buffer. 

The address of the last byte of the 
uncompressed record as calculated in 
register 6 is subtracted. 

If this results in a negative value, 
implying that the uncompressed record 
will not fit in the caller's buffer, 
branch > 

Otherwise, a string of the input 
record, starting past the termination 
character that stopped the last scan, 
and its accompanying compressed blank 
count, and as long as will still fit 
in the blank part of the caller's 
buffer, is scanned for the next 
termination character. 

If found, branch back.. > 

Otherwise, move the last field to the 
caller's buffer. 
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MBHGIREC 



MBHGNREC 



MSGOTEST 



TPPUT 



KTFORK 



MPUNCH 



MPNIMM 



If the uncompressed record will fit 
in the caller's buffer, input data 
pointer register 15 is incremented 
with the residual byte count still in 
register 2. 

Register 15 is incremented with the 
number of characters to be skipped 
when scanning for termination 
character. 

The updated data pointer is stored 
back in the BCA. 

The translate and test table used is 
restored. 

If the input buffer has not yet been 
exhausted, return. 

Otherwise, link to initiate read of 
next block > 

Return to caller. 

Remote Terminal Put Routine 



Clear work registers 3 and 6. 

Get command code to be analyzed in 
register 6, and branch to the proper 
routine via the following branch 
table. 

R6= : NOP or ignored command. ... > 
R6= 4 : Forms change > 

R6= 8 : Data handling CCW > 

R6=12 : Printer space immediate... > 

R6=16 : Printer skip immediate. ... > 

R6=20 : Punch only commands > 



Check if this is a punch task . 

If so, branch to handle data > 

Otherwise, return to caller > 

ChecK if tnis is a punch task. 

If so, return to caller > 



Check if the command can be combined. 
If so , brancn to > 
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Check if this is a space command. 

If so, branch to.., * > 

Set immediate command* 

Check if it is the same channel. If 
so, ignore redundant skip,, and return 
to caller > 

MPDUMMY | Indicate a length of 1 in register 
3, and the address of blank data in 
register 1, and branch to write a 
dummy line for control > 



MPNIMED (Insert the data address in register 1 
and the data length in register 3. 

MPUT | Indicate the maximum punch length of 
80 in register 0. 

Check if this is a punch task. 

If so, branch to > 

Indicate the maximum print length 
(from LCBPRLEN) in register 0. 

branch to > 

MPUT1 | Set special command code. 

MPUT2 (Check if the data length is correct. 
If so , branch to > 

Set the data length to the maximum 
(from register 0). 

MPUT3 | If the current output record count 
has already reached its maximum 
value, branch to empty the buffer 
first > 

Otherwise, the address of the first 
available byte in the buffer is 
loaded in register 15. 

If the remote output device is not a 
punch device, or if the terminal has 
not got the transparency feature , 
branch to process non-transparent 
output > 

If the buffer is currently empty, 
branch > 

If the terminal is a 2780 type, 
branch > 

Otherwise, first available buffer 
space pointer register 15 is 
decremented by 6. 
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Using registers 5 and 2 as work 
registers,, the byte count of the 
appropriate CCW is incremented by 80 
(record length of the punch record to 
be added to the buffer), and branch 
to move the card to the buffer > 

A link is made to initialize CCW 
chain for write operations > 






Record address is reloaded in 
register 1. 

Register 15 is set up to point to the 
beginning of data: 

• For non 2780 terminal, 12 bytes 
past buffer start. 

• For 2780 terminal,, 36 bytes past 
buffer start. 

The first 6 characters of the data 
area are set up as punch control 
characters. 

The next 79 characters (to become 
columns 2-80 of the card to be 
punched) are blanked out and the 
record is moved into the buffer. 

If the card just moved is the first 
in this buffer, branch > 

Otherwise,, the record just moved is 
added logically to buffer contents: 

• Register is initialized with the 
normal punch record length (86: 6 
bytes punch control + 8 bytes 
data) . 

• If terminal is not a 2780, 
branch > 

• Using registers 2 and 5 as work 
registers , the real data address 
is moved to the appropriate CCW„ 

• The CCW minus data length field is 
moved to the 'last remote carriage 
control' CCW field, and data 
length is stored in this CCW from 
register 0. 

• Using registers 1 and 2 as work 
registers, the next CCW is set up 
as a TIC CCW transferring to the 
write ETB CCW, 

• The address of this CCW is stored 
in the BCA. 



|R5,R2 



MBHPUMOV | 
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CCWINIT2I 
(MA20) 



|R6 



IR1 



IR15 



MBHPU1ST| 
(MA13) 



IRQ 
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MBHPUPDT 



MBHPU1ST 



MBHPRINT 



BMH3741 



MBHRNM 



• Data pointer register 15 is 
incremented to point to the first 
available position in the buffer. 

• This updated data pointer is | 
stored back in the BCA. 

• Using register 1 as a work 
register, the current remote 
put count in the BCA is 
incremented by one. 

Return to the caller. 

Length of first card in buffer (82: 
2 bytes of control information plus 
80 bytes of data) , is loaded in 
register 0. 

Data pointer register 15 is set to 
point 4 bytes past the beginning of 
the buffer. 

Branch to process > 

Check for second time through. If 
so, skip compression and branch to. > 

Using register 2 as a work register, 
all characters from X'Ol 1 through 
X'3F* are translated to binary zero. 

If this is a 3741 printer task, 
branch to > 

Translate illegal characters and 
branch > 

Do not translate 3 741 control 
characters. 

Parameter registers 2 and 6 for the 
subsequent compression routine are 
set up: 

• Register 2 is loaded with the 
address of the uncompressed 
record. 

• Register 6 is loaded with the 
length of the uncompressed record. 

If punch device, branch past 
compression routine > 

If horizontal format control not 
supported, branch > 

Otherwise,, register 2 is decremented 
by one. 

In this loop all trailing blanks in 
one 10 column tab interval will be 
replaced by one tab control character 
(X'05'). 



TPBFDATA 
(IPW$DBC) 



TPBRECbiT 
(IPW$DBC) 



MLWA 
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MBHPRNC 
(MA16) 
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MBHPRCON 



MBHPRTBL 



MBHPRNBL 



The remaining character count in 
register 6 is decremented by 10. | 

If no characters left to be scanned, | 
branch out > 

Otherwise , increment data pointer 
register 2 by 10 to point to the end 
of the next tab interval. 

In this inner loop, the tab interval 
is scanned backwards for the last 
non- blank in this tab interval: 

• Count register 5 is initialized at 
10. 

• If the current character is 
non-blank, branch > 

• Otherwise , register 2 is 
decremented by one to point to the 
previous character, and, if the 
current tab interval has not been 
exhausted yet, branch back to 
continue scan > 

The number of trailing blanks in this 
tab interval to be compressed is 
calculated in register 5 (negative 
for the sake of simplicity of 
calculation) . 

If no blanks to be compressed, branch 
to scan next tab interval > 

Otherwise, register 2, currently 
pointing to the last non- blank 
character, is incremented by one to 
point to the first trailing blank, 
whicn will be replaced by a TAB 
character. 

If only one trailing blank, branch to 
scan next tab interval > 

Otherwise, the record length in 
register 3 is corrected to allow for 
the number of blanks to be 
compressed, and the TAB character is 
inserted. 

Using register 5 as a work register, 
the line is compressed by moving the 
part of the line not yet scanned back 
to immediately behind the TAB 
character just inserted, causing any 
blanks to be overlaid. 

Branch back to scan next tab 
interval > 
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I 



I 

JMBHCSCNB 
I 



J MBHCEMDB 

I 

I 



I MBHBUMP 



If the compress feature is not 
present, branch. ..,..,.......,. 



The remainder of the line is now 
compressed. 



>|MBHPRNG 
| (MA16) 
I 
I 



I 



If data pointer register 2 does not | | 

point to a blank, branch ,. >| MBHCINCR| 

I (MA15) | 

Otherwise, the maximum blank field | | 

length <63) is loaded in register 3„ | | 

and, the address of the first blank | | 

is loaded in register 5. | | 



If the character currently examined 
is not blank, branch > 

Otherwise, register 5 is incremented 
by one to point to the next 
character, and, if the line is 
exhausted,, register 3 is set to end 
of line plus one, and branch . . > 



MBHCENDB| 
(MA15) | 



|MBHCLREC| 
| (MA16) I 
I I 



Otherwise, if maximum blank field 

length to be compressed is not yet 

exceeded, branch. >|MBHCSCNB) 

| (MA15) J 



If the end of the blank field or the 
maximum length has been reached, 
register 3 is set up to contain tne 
length of the blank field. 

If not more than two blank 
characters,, branch to bypass 
compression - , 



I 



>l 



Otherwise, the field is compressed: | 

I 

• The first blank is replaced by an | 
IGS character,, (X'lD 1 ), | 

• The blank field count is stored in | 
the second blank. ] 

• The part of the line not yet | 
scanned is backed over the ) 
remaining blank(s) of the blank | 
field. I 



MBHBUMP 
(MA15) 



If ASCII code, pre-translate the 
one-byte blank length field,. 



The length count in register 6 is for) 
the subsequent decrement. | 

I 



1 



|MBHCINCR|Data t pointer register 5 is incre- | | 

I |mented by one to point to the next | | 

I | character, and, if the line to be | | 

scanned is not yet exhausted, branch | | 

back to find next blank field. >|MBHCLOOK| 

| (MA15) | 

Otherwise,, register 3 is set to point | | 

immediately past the scanned line. J | 



I 



I 



I R5 

I 

I 

! 

|R3 

I 

|R6,R3 

I 
I 
I 



IR3 



|R6 



|R5 



|R6 



IJR3 



I 



I 



|R3 f R5 | 
I 1 
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MBHCLREC 



MBHPRNC 



MB2770PR 



MBHPRNXT 



MBHPRVAR 



(Compressed) line length is 
calculated in register 3. 

The updated record length is stored. 

The carriage control address is saved 
in the BCA. 

If terminal type 278 0, branch...... > 

Otherwise, the 2770 byte in register 
2 is initialized at 1. 

Software buffer size in register is 
converted to hardware buffer size. 

Register 5 is set to 1 to indicate 
(2770 punch) displacement. 

Print displacement in register 5 is 
initialized at 3* 

If this is a 3741 punch task, 
register 5 is initialized to 1 to 
prevent 2780 carriage control. 

The print/punch displacement in 
register 5 is copied to register 6. 

If current record is not the first in 
the buffer, branch > 

Otherwise,, an STX character (X'02*) 
is moved to the beginning of the data 
buffer. 

The initial byte count in register 2 
is stored in the appropriate CCW. 

The record length is loaded in 
register 2. 

If device is not 3741, branch • > 

If device is punch,, set length to 80 
and branch > 

Otherwise, record length in register 
2 is set to value of LCBPRLEN. 

Actual record length is calculated in 
register 5. 

Byte count of block already in buffer 
is added to obtain total block 
length. 

If higher than maximum block length, 
branch to flush buffer ,.. > 

Otherwise,, the updated block length 
is stored back in the write CCW. 



R3 
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TPBLCCAD 
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MB2780PP 
(MA18) 



MBHPRNXT 
(MA16) 
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4 \ 



MBHPPVAR 



MPSETCC 



MPSETBH 



If tne record length as determined by 
the device record width is equal to 
the actual record length, branch to 
bypass blanking out the remainder of 
the line > 

Otherwise, the remainder of tne line 
is blanked out. 

Register 3 is decremented by one to 
contain record length in machine 
format. 

feuffer free data pointer register 15 
is incremented by the appropriate 
print/punch displacement to allow for 
control information. 

The data record is moved to tne 
buffer. 

Data pointer register 15 is updated, 
and stored back in the BCA. 

Using register 1 as a work register, 
the current output record count is 
incremented by one. 

An IRS character (X'lE 1 ) is moved to 
the first available position of the 
data buffer. 

If device is a 2770 punch, return to 
caller. 

The channel command is loaded in 
register 1, saved in the BCA, and 
divided by 8 to create an index for 
later use. 

Using register 2 as a work register, 
an 'escape' character (X'27') is 
inserted behind the carriage control 
character. 

If terminal is 2780, the index in 
register 1 is incremented by 32. 

The index is now used to insert the 
appropriate carriage control 
character in register 1 from a 
carriage control table. 

This carriage control character is 
how stored in the record. 

If the code type is not ASCII, return 
to caller. 

Otherwise, the control character is 
converted to ASCII by flipping the 
high-order bit. Return to caller. 



MBHPPVAR 
(MA17) 
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MB2780PP 



An ITB character (X'lF') is inserted 
after the previous record. 
Byte count in register 2 is 
initialized at 0. 

2780 maximum block length is set up 
in register 0: 400 minus 1 for the 
ETB character and 1 for an LRC 
character for each logical record in 
the buffer. 

Branch to > 

Remote Output Forms Change Routine 



MOUNTFRM 



MP FLUSH 



SVBF 



FORMCLOS 



MSGBAL 



SCBF 



^ pw \ 



indicate forms change in BCA. 

Set command code to NOP. 

Check for component select only. 
If so f ignore it. 

Link to the appropriate I/O routine 
and wait for completion. 

If tne task has already been stopped,, 
return to caller. 
If no intervention is required, 
branch to simulate re-entry > 

If tnis is the message writer, branch 
to detach > 

If no ACK0, ACK1 or NACK response was 
received, branch to > 

Check if a buffer was already saved. 
If not, save buffer address, and if 
not 2780 and transparent, also 
data length. 

The return address is saved, except 
if from FORMCLOS via MSGOPEN. 

Link to close the list task > 

Issue an IPW$WFI macro to wait for 
an ACK from the remote printer. 

If an immediate stop is requested, 
branch to > 

If no buffer was saved, branch to 
proceed > 

Otherwise, release the work space. 

Move the correct code table into 
the BCA. 

If a buffer was saved, release 
the work space. 

Return to caller. 
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BCAFLAGS (IPW$DBC) 
TCCC(IPW$DTC) 

TPBRECNT ( IPW$DBC) 



R14 



TPPUT 
(MA10) 
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MBHCLOSE 

(MA19) 
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CL0S 



MSGCLOSE 



LSTCLOSE 



An IPW$CLI call is issued to close 
the logical interface. 

If the device is not a reader, branch 
to .. > 

If the CCW read sequence is no 
longer on, return to caller. 

Branch to , > 

If the CCW write sequence is no 
longer on,, or if it is not for this 
task,* return to caller. 

If EOT has been received, branch... > 

If the output buffer is empty, 
branch to . • . , . . .,.*.. > 

The CCB (=BCA) address is copied 
into register 1, and a IPW$$WFC is 
issued to wait for I/O completion. 

If a message is printing,, branch. . . > 

If the task has been stepped 
immediately, branch • . . . » , > 

Otherwise the write ETB CCW is 
changed to write ETX, 

Link to write ETX. ..,.., > 

Link to write last buffer > 



LSTCLOSE 
(MA19) 



KDRCL0SE 
(MAI 9) 



MBHCLOSE 
WC4Q 



WC4 



MSGSTOP 



MEXCP 
(MA22) 

MEXP 
(MA22) 
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RDRCLOSE 



MBHCLOSE 



MBHCLOSl 



WREOT 



WREOTO 



Copy the CCB pointer and wait for 
I/O completion. 

If this is a reader, branch to > 

If this is not a switched line,, 

branch to > 

If line is not being signed off,, 

branch to > 

Set up disconnect sequence > 

Branch to > 

Link to initialize the CCW prepare 
sequence > 

If this is a list or punch task, 
branch to write EOT . > 

If any messages are pending, or if 
there is list/punch output, convert 
the EOT CCW to an enquiry CCW. 

Link to issue applicable terminal 

I/O 4 . . > 

If this is a reader task,, or if 

a buffer was saved, release the work 

space. 

Return to caller. 



MBHCL0S1 

MBHCLOSl 

MBHCL0S1 
MCCWINIT 
(MA20) 
WREOTO 



MCCWINIT 
(MA20) 

WREOT 
(MA19) 



Rl 
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Chart AA 
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R14 



619 



Labels 



Chart MA20: IPW$$TM - Remote Job Entry 
Routines 



Modified Data 
Fields 



Reg. 
Usage 



ICalls 






Remote Terminal CCW Setup 



MCCWINIT 
CCWINIT2 



CCWINIT3 



This routine initiates the CCW 
string. 

Upon entry: 

• Register points to the first CCW 
to be executed. 

• Register 1 contains the type of 
string to be initialized in its 
low-order byte. (X'80 ,= read # 
X , A0 , =write # X" 40 *=prepare) . 

The (virtual) first CCW address, 
passed in register 0, is converted to 
real, and stored in the IOB START and 
IOB RESTART fields in the BCA. 

The CCW sequence type requested,, as 
passed in register 1, is stored in 

the BCA. 

The entire string of 6 CCWs is set to 
binary zero. 

The real address of the BCA is 
calculated in register 1. 

If the CCW sequence requested is not 
disconnect sequence, branch to > 

Otherwise, using register as a work 
register, the disconnect sequence CCW 
sequence is built: 

• The address of the DLE-EOT is 
stored in the write CCW. 

• The 3 CCW ' s are completed by 
ORing from MDISCCW. 

If CCW sequence requested not prepare 
sequence, branch > 

Otherwise, using register as a work 
register, the prepare sequence CCW 
sequence is built: 

• The address of the mode control 
byte is stored in the set mode 
CCW. 

• The address of the enquiry 
cnaracter is stored in the write 
enquiry CCW. 

• The address of the response field 
is stored in the read response 
CCW. 

• The 5 CCWs are completed by ORing 
the other CCW fields from MDISCCW. 

Return to caller. 



R0 



Rl 
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IOBSTART 
(IPW$DBC) 
IOBRESTR- 
(IPW$DBC) 
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Rl 



CCWINIT3 
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MCCWBSCR 



Using register as a work register, 
the CCB sequence is built: 

• The address of the ETB sequence is 
stored in the write ETB CCW. 

• Real address of the data buffer 
area is stored in the write data 
CCW. 

• The proper chaining is set in the 
write CCW. 

• If not write sequence requested, 
branch to complete read sequence 
initialization > 

• Otherwise, the address of the 
enquiry character is stored in the 
write enquiry CCW. 

• The address of the response field 
is stored in both read response 
CCWs. 

• The other CCW fields are 
initialized by ORing from field 
MENBCCW. 

Return to caller. 

Using register as a work register, 
the initialization of the read CCW 
sequence is completed: 

• The first CCW is ORed in from 
field MENBCCW. 

• The real address of the data 
buffer is stored in the read data 
CCW. 

• The address of the response field 
is stored in the write response 
CCW. 

• The buffer length is stored in the 
read data CCW. 

• Write response and read data CCWs 
completed by ORing in the 
remaining fields from MWRSPCCW. 

• Write and write ETB CCWs are 
completed by ORing the remaining 
fields from MWRITCCW. 

• Last read CCW is copied from the 
third CCW. 

• Write text sequence is indicated 
in last CCW. 

Return to caller. 
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I0BCCW2(IPW$DBC) 
I0BCCW3(IPW$DBC) 

I0BCCW6(IPW$DBC) 



IOBCCWl(IPW$DBC) 

I0BCCW3(IPW$DBC) 

I0BCCW2(IPW$DBC) 

I0BCCW3(IPW$DBC) 

I0BCCW2(IPW$DBC) 
IQBCCW3(IPW$DBC) 

IOBCCW4 ( IPW$DBC) 
I0BCCW5(IPW$DBC) 

I0BCCW6(IPW$DBC) 

I0BCCW6(IPW$DBC) 
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The remote next acknowledgement 
character is inverted to send or 
expect. 

The remote response control block is 
set up with the inverted 
acknowledgement . 

If code type is EBCDIC, branch to 
bypass translate* > 

Otherwise,, using registers 0, 1 and 2 
as work registers, the buffer 
contents are translated to ASCII. 

(Alternative entry point, to skip ACK 
swap, and translation) 

The sense byte is set to zero. 

If the task has not been stopped , 
branch to > 

Post LM task control block ECB as 
well as own TCB-ECB and return to 
calling routine....*.........,..*... > 

Excp parameter register 1 is loaded 
with the CCB address,, and an SVC is 
issued to initiate terminal I/O. 



Return to caller. 
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(MA22) 
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Remote Command Routine 



COMMAND 



SCANCODE 



The sequence ID (Bytes 7 9 and 8 of 
the input record) ,, is inserted in the 
2 high-order bytes of register for 
PMESS. 

Register 1 is initialized pointing to 
the last byte of the RJE prefix 
C* ..') . 

The command is translated to change 
all characters <X'40' to X'HO 1 . 
The command is made to upper case. 
The subsequent loop will scan the 
command for its operation code. 

Register 1 is incremented by one to 
point to the next column. 

If next column is blank, f branch to 
scan next > 

Otherwise, if SIGNON command, branch 
to signon processor > 

If not SIGNON command,, and nobody 
currently signed on, branch to 
process invalid signon , > 

If SIGNOFF command, branch to process 
signof f > 

If START command, branch to start 
command processor > 



SCANCODE 
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MSIGNOrJ 
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NOSIGNOh 

(MA23) 

CSIGNOFF 
(MA23) 

MSTART 
(MA30) 
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If STOP command,, branch to stop 
command processor > 

If GO command, branch to go command 
processor > 

If SETUP command,, branch to setup 
command processor > 



The address of the start command 
processor is loaded in register 12. 

If ' £* command, branch to > 

The address of the STOP command 
processor is loaded into register 12. 



If 



command,, branch to > 



The address of the GO command 
processor is loaded into register 6. 



If 



command, branch to > 



The address of the SETUP command 
processor is loaded into register 6. 

If ' U' command, branch to > 

If any other command,, the command 
processor is invoked: 

• Register 1 is set to point to the 
statement begin, 

• Register is set to point to the 
TCEB„ and an IPW$ICP call is 
issued to pass the command to the 
command processor. 

On return,, register 1 is pointed to 
the TCEB, and an IPW$WFC call is 
issued to wait for command processing 
completion. 



The TCEB is unposted. 

Branch back to resume input 
processing 



MST0P 
(MA31) 

MG0 
(MA33) 

MSETUP 
(MA33) 



SH0RTCMD 



SHORT CMD 



SH0RTCMD 



SHORT CMD 



R12 



R12 



R6. 



R6. 



Rl 
RO 

Rl 



TCEB(IPW$DTC) 



GET LOOP 
(MA01) 



IPW$RSR 
Chart AB 

IPW$ICP 
Chart GD 



IPW$WFC 
Chart AA 
IPW$RLR 
Chart AB 



G 
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Labels 



h- 



Chart MA23.1: IPW$$TM - Remote Job Entry 
Routines 



Modified Data 
Fields 



Reg. 
Usage 



iCalls 



N0SIGN0N 



CSIGNOFF 
EOFRDR 



Message 1R19I is issued: 

• Register 1 set to point to the 
message text, f 

• a dummy remote ID (X' f FE 1 ) is set 
in the LCB f and 

• a link is made to the message... > 
routine 

On return,, the remote ID is cleared. 

A link is made to force signoff.... > 

The LCB is tested for reception of 
end of text character. 

If ETX not received, branch to bypass 
message ,.„..... * > 

Otherwise, register 1 is set to point 
to message 1R14I, and a link is made 
to the message routine to issue the 
message > 



PMESS 
(MA24) 



MAB0RT 
(MA24) 



LM0T14I 
(MA24) 



PMESS 
(MA2U) 



LCBREhID 
(IPW$DLC) 



LCBREMID 
(IPW$DLC) 



Rl 



R15 



Rl 



R15 
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Labels 



N0T14I 



SHORTCMD 



PMESS 



PMESS2 



MABORT2 



MABORT 



Chart MA24: IPW$$TM - Remote Job Entry 
Routines 



Link to close the reader (except for 
the logical interface) > 

Wait for enquiry from terminal. 
(Note that the task is not detached 
and that the logical interface is 
kept open. ) 

If immediate stop required , branch 
to. > 

On interrupt,, link to reopen the 
reader (except for the logical 
interface) > 

Branch to get next record > 



Bump register 1 to point to blank 
after short command, and branch to 
routine in register 6 ....... > 

Remote Message Routine 



Register is set to zero to clear 
the sequence ID in its 2 high-order 
bytes. 

The current remote ID is copied from 
the LCB to the low- order byte of 
register 0. 

The function indicator is set to 

X'28 1 to indicate that the message is 

to be added to the message queue g 

and a link is made to the remote 

message service in the POWER/VS 

nucleus. 

Return to caller. 

Remote Signoff Subroutine 



Reader TCB address in LCB is loaded 
in register 15, and link to cancel 
reader task. > 

Writer TCB address is loaded in 
register 15, and link to cancel 
writer task. > 

If the terminal disconnect flag is 

on, indicating that this subroutine 

has already been in control,, branch 

back to caller. 

Otherwise, the terminal disconnect 

flag is set on to request terminal 

disconnection. 

List and punch are marked • stopped' . 



If nobody currently signed on,* return 
to caller. 



MBHCLOSE 
(MA19) 



PUTL 
(MA01) 



MSGOPEN 
(MA05) 
GET LOOP 
(MA01) 



STOPRDWR 
(MA26) 



STOPRDWR 
(MA26) 



Modified Data 
Fields 



TCMW(IPW$DTC) 



LCBFLAGS 

(IPW$DLC) 



LCBLIST(IPW$DLC) 
LCBPUNCH ( IPW$DLC 
LCBOUT(XPW$DLC) 



Reg. 
Usage 



R14 



R14 



R6,R1 



R0 



R0 



R15 

R15 
R14 
R15 
R14 

R6 



R6 



Calls 






IPW$WFI 
Chart AA 



^,y 



IPW$RMS 
Chart AD 



C 
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| Labels | Chart MA25: IPW$$TM - Remote Job Entry 

| j Routines | 


Modified Data | 
Fields 


Reg. | 
Usage 

I _ _ j 


Calls 


r — : T — — — t 

|MABNOBUF| If signoff forced by I/O error,, 

| | branch around sending signoff | 

1 1 message •.•••..•••...••........•••.• > 


i 

PLOGMESS 
(MA25) | 


- - — j 


r 1 

Rl | 


r 


| | Otherwise,, the address, of message 

| |1R18I (signoff forced) is loaded in | 

j | register 1. 




j | idling time, branch to issue message 
j 1 1R18I > 


SOFFMESS 
(MA25) 


LCBSCODE 
(IPW$DLC) 






| (Otherwise, the signoff code in the 

| | LCB is set to central stop. | 




| |The address of message 1R17I (line 
| | stopped) is loaded in register 1-. 






Rl 




| | If the line has been stopped, branch 
1 1 to issue message 1R17I. ........... . > 


SOFFMESS 
(MA25) 


LCBSCODE 
(IirW$DLC) 






| | Otherwise^ the signoff code is set to 
| | ■ normal signoff . 




| |The address of message 1R16I is 
| | loaded in register 1. 






Rl 




| |The current remote ID is copied into 
| [the message to be issued. 










1 1 message. •••••••••••••••••••••••••«• > 


PMESS 
(MA24) 




|R15 




|PLOGMESS| Issue message locally. 




| |An IPW$RDC call is issued to obtain 
| jthe time in register 1. 








IPW$RDC 
Chart AG 


| [Signoff time is stored in account 
j | record. 




LCBTIMOFF 
| (IPW$DLC) 






j | The account record is written: 










| | • The account record address is 

| | loaded in register 1, 

j [ • the account record length (48 

| | bytes) is loaded in register 0, 

| | and 

| j • an IPW$PAR call is issued to write 

j j account record. 






Rl 

R0 


IPW$PAR 
Chart FA 
IPW$RSW 
Chart AC 
| IPW$RLW 
Cnart AC 


j | Return to caller. 






|R6 
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Labels 



Chart MA26: IPW$$TM - Remote Job Entry 
Routines 



Modified Data 
Fields 



&eg. 
Usage 



I Calls 



STOPRDWR 



TA50 



TA60 



MSIGNON 



If the reader/writer TCB address in 

register 15 is zero,, indicating that 

reader/writer is not active any more,, 
return. 

If task is not waiting for 
TP-I/O-interrupt, return. 
Otherwise,, mark task 'di spa tenable" 
and return. 

If it is an unrecoverable I/O error, 
branch to > 

If task has been stopped,, return to > 

Otherwise, post unrecoverable I/O 
error to prevent more I/O scheduled. 

Stop task by inserting stop code in 
tas.k status field. 

Post BCA traffic bit. 



Return > 



Remote Signon Processor 



Register 5 is initialized with the 
address of the SIGNON card. 

Data pointer register 1„ currently 
pointing at the SIGNON command code,, 
is saved. 

A link is made to the signoff routine 
to force signoff of any remote ID 
currently signed on > 

The remote ID field in the LCB is 
initialized with a dummy remote ID 
(X'FE'). 

16 Bytes of user information are 
moved from columns 61 - 76 of the 
SIGNON card to the LCB. 

Data pointer register 1 is restored, 
and incremented to point to the first 
blank after the SIGNON command code. 

The subsequent loop scans the 
statement for the first SIGNON 
operand. 



TA6 
R6 



R14 



MABORT 
(MA24) 



/ r~ 



TCSF(IPW$DIC) 



R14 
R14 

R14 
R9 

R6 



LCBSCODE 
IPW$DLC) 

TCTT 



CCBC0M1 
(IPW$DBC) 



R14 



R5 



LCBWORK(IPW$DLC) 



R6 



LCBREMID 
(IPW$DLC) 



LCBUSER(IPW$DLC) 



Rl 
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Labels 



Chart MA27: IPW$$TM - Remote Job Entry 
Routines 



Modified Data 
Fields 



Reg. 
Usage 



I Calls 



REMSTART 



REMLOOP 



Register 1 is incremented by one to 
point to the next column. 

If blank as well, branch back to 
continue scan . . > 

Otherwise,, register 5 is initialized 
with characters '00' in the 2 
low-order bytes.* 

Register 5 is to contain the 
character representation of the 
remote ID about to be checked. 

Register 3, to be used in the 
subsequent scanning loop of the 
remote ID operand, is set to 3 to 
restrict check to 3 digits. 

Work registers 15 and 2 are set to 
zero. 

Register 2 is to contain the remote 
ID in binary upon completion. 

If remote ID character currently 
checked is not numeric, branch to 
diagnose invalid remote ID > 

Register 2, containing Cin binary) 
the equivalent of the part of the 
remote ID scanned previously, is 
multiplied by 10 to allow for the 
addition of the digit just checked. 

Register 5 contents are shifted left 
one byte, and the digit just checked 
is inserted as the new low- order 
byte. 

The digit currently checked is 
converted to binary by setting the 
zone part to zero. 

This binary value is then loaded in 
register 15, and added to the current 
binary value in register 2. 

Register 1 is incremented by one to 
point to the next character. 

If this is a terminator character 
(comma or blank),, ID processing is 
complete; branch > 

Otherwise, if 3 digits not yet 
checked, branch back to scan next 
digit * > 



Rl 



REMSTART 
(MA27) 



R5 



R5 



R3 



R15 



R2 



MSOILEG-L 

(MA28) 



R2 



R5 



R2 
Rl 



REMFOUND 
(MA28) 



REMLOOP 
(MA27) 



R3 
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j Labels 



h 



Chart MA28: IPW$$TM 
Routines 



Remote Job Entry 



Modified Data 
Fields 



"T 

| Reg. 
[Usage 



-T 

| Calls 



I MSOILEGL 



I 



IPASSWNOK 



I REMFOUNP 



I REMCHECK 



I 



I PSWDLQOP 



Register 1 is loaded with the address 
of message 1R21I. 

Link to issue message. > 

The remote ID in the LCB is cleared 

again. 

Branch to flush the reader. . ....... > 

If remote ID specified is higher than 
the maximum, branch to diagnose. ... > 



If remote ID is zero,, ignore SIGNON. 

Register 15 is set up with tne 
address of the first LCB in the LCB 
chain. 

If tne same remote ID as signing on 
is already active on the LCB 
currently checked, branch to 
diagnose > 

Otherwise,, register 15 is updated to 
address the next LCB. 

If not yet at end of LCB chain, 
branch to check next LCB > 

Otherwise, the one-byte binary value 
of the remote ID is stored in the 
LCB, inserted in the high-order byte 
of register 5, whose 3 low-order 
bytes contain the remote ID in char- 
acter representation,, and register 5 | 
contents are stored in the LCB. 

If no line password has been set, 
branch to skip password checking... > 

Otherwise, register 15 is set up with 
the address of the line password. 

Register 15 will be used as data 
pointer in a scan for the line 
password end. 
Register 5 is set to zero. 

If end of line password found, 
branch > 

Otherwise, register 5„ which is to 
contain the line password length in 
machine format, is incremented by 
one; and, if seven characters have 
already been checked,, branch > 

Otherwise,, data pointer register 15 
is incremented by one, and branch 
back to check next line password 
character , > 



PMESS2 
(MA24) 



GET LOOP 
(MA01) 

MSOILEGL 
(MA28) 

MSOILEGL 
(MA28) 



LCBREMID 
(IPW$DLC) 



MSOILEGL 
(MA28) 



REMCHECK 
(MA28) 



LCBREMID 
(IPW$DLC) 



PASSWOK 
(MA29) 



PSWDEXEC 
(MA29) 



PSWDEXEC 
(MA29) 



PSWDLOOP 
(MA28) 



JR1 



IRIS 



|R15 



|R15 



I 



I 

LCBIDCIPW$DLC) j 



|R5 



|R15 



|R5 



IR5 



|R15 

I 

I 

I 

I 



I 



I \^s 



I- V> 
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I Labels 



|. 

JPSWDEXEC 
I 



Chart MA29: IPW$$TM - Remote Job Entry 
Routines 



Modified Data 
Fields 



Reg. 
Usage 



Calls 



I PASS WOK 



The address of the password specified 
in the SIGNON card is loaded in 
register 15. 

The address of message 1R22I (invalid 
password) is loaded in register 1. 

If the SIGNON password and the line 
password do not match,, branch to 
diagnose . . > 

Register 2 is first decremented by 
one and then multiplied by 8 (remote 
table entry length) to get the offset 
in the remote table of the 
appropriate remote ID. 

The remote table address is added to 
obtain the actual address of the 
remote entry concerned. 

The remote entry is now copied to the 
LCB. 

If the specified remote ID is marked 
•invalid' in the remote table, branch 
to diagnose > 

Otherwise, according to remote table 
entry specifications : 

• ASCII flag and transparency flag 
are set, 

• SIGNOFF code byte is 
cleared,, 

• SIGNOFF flag is 
reset, 

• Signon complete flag is 
set, 

• the address of signon message 
1R15I is loaded in register 1, 

• remote ID is copied into the 
message text 

Link to issue signon message. ...... > 

An IPW$RDC call is issued to obtain 
signon time in register 1. 

Signon time is stored in account 
record, and branch to resume input 
processing > 



R15 



Rl 



PASSWNOK 
(MA28) 



R2 



LCBRMT(IPW$DLC) 



LSOILEGL 

(MA28) 



PMESS 
(MA24) 



LCBPLINE 
(IPW$DLC) 
LCBSCODE 
(IPW$DLC) 
LCBFLAGS 
(IPW$DLC) 
LCBFLAGS 
(IPW$DLC) 



Rl 



R15 



IPW$RDC 
Chart AG 



LCBTIMON 
(IPW$DLC) 



GETLOOP 
(MA01) 
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Labels 



Chart MA30: IPW$$TM 
Routines 



Remote Job Entry 



Modified Data 
Fields 



Reg, 
Usage 



I Calls 






Start Remote Writer Task 



MSTART 



Link to scan the task type specified 

If MSG was specified , branch to 
process messages > 



CLASLOOP 



If specified task already started, 
branch to issue message 1R24I. .... . > 

Default class is set to 'A'. 

If no class specified,, branch to 
leave default > 

If delimiter of remote ID not a 
comma, branch to diagnose > 

Register 5 is initialized at ^ being 
the maximum number of different 
classes allowed to be specified. 

Register 1 is incremented to point to 
the starting delimiter, and saved. 

Register 3 is initialized with the 
address of the first byte of the 
class field. 

Register 1 is incremented to point to 
the next class specified. 

If blank, all classes valid,, 

branch ,. > 

If not alphabetic, branch > 

The class character is translated. 
If translated to zero, branch > 

The starting delimiter address is 
loaded in register 6, and the last 
class parameter is compared in a loop 
with all preceding class parameters, 
to check for duplication. 

If duplicate class specified,, 

branch > 

Otherwise, the class character, 
translated to the appropriate class 
index, is moved to the class table. 

Class table entry pointer register 3 
is incremented by one, and if less 
than four class specifications have 
been checked so far, branch back to 
check next > 

Otherwise, if the next class position 
is blank, branch to continue....... > 



SCANTSK 
(MA32) 

POSTMSG 

(MA33) 

ERREXIT 
(MA32) 



CLASSOK 

(MA31) 

INVCLASS 

(MA31) 



LCBLIST(IPW$DLC) 



LCBWORK(IPW$DLC) 



R5 



Rl 



R3 



Rl 



CLASSOK 
(MA31) 
INVCLASS 
(MA31) 

INVCLASS 
(MA31) 



R6 



INVCLASS 
(MA31) 



CLASLOOP 
(MA30) 

CLASSOK 
CMA31) 



R3 



R5 
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Labels 



Chart MA31: IPW$$TM - Remote Job Entry 
Routines 



Modified Data 
Fields 



Reg. 
Usage 



ICalls 



INVCLASS 



CLASS OK 



MSTOP 



STOPOK 



Output class index is invalidated. 

Address of message 1R12I is loaded in 
register 1. 

Branch to issue message > 

The appropriate list or punch switch 
in the LCB is set, and branch to 
resume input processing.... > 



Stop Remote Writer Task 



Link to scan task type specified. 

If MSG specified, branch to stop 
message processing 



> 



If specified task was not started 
previously, branch to issue message 
1R23I > 

Otherwise,, the stop code (C'S 1 ),, is 
loaded in register 5, and, if no 
operand follows the task type, 
branch > 

Otherwise, if the task type is not 
delimited by a comma,, branch to 
diagnose > 

The next operand is checked. EOJ 
(stop at EOJ) and RESTART are the 
only valid specifications. 

If one of these is found, the 
applicable stop code is loaded in 
register 5 (C'E f , and C*R\, 
respectively) , and a branch is made 
to continue > 

Otherwise, the address of message 
1R11I is loaded in register 1. 

Branch to issue message 1R11I...... > 

Blank output classes. 

Load the TCB address into register 15 
and check if a forms change is 
required. If so, load the correct 
TCB address and check if an output 
class is available. If not, branch 
to > 



ERREXIT 
(MA32) 



GET LOOP 
(MA01) 



SCANTSK 
(MA32) 

DOWNMSG 
(MA33) 



ERREXIT 
(MA32) 



STOPOK 
(MA31) 



INVTASK 
(MA32) 



STOPOK 
(MA31) 



ERREXIT 
(MA32) 



ST0P0K2 

(MA32) 



Rl 



R15 



LCBOUT(IPW$DLC) 



R6 



R5 



Rl 



R15 



R15 
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[Labels 
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[Chart MA32: IPW$$TM - Remote Job Entry 
j Routines 
. + T ^ 

[Store stop code in TCB. | 


r 

Modified Data 
Fields 

h _ 

TCTT(IPW$DTC) 


"T 1 

|Reg. |Calls 
(Usage | 
. + + - 




| branch to. — ...................... >j GET LOOP 

| | (MA01) 
[Activate task, if it waits for | 
|TP-l-o-interrupt. | 


TCSF(IPW$DTC) 






| Branch to >) MGG2 


LCBOUT(IPW$DLC) 




[ST0P0K2 


1 | (MA33) 
[Reset output switch. | 






[ Branch to >| GETLOOP 








1 | (MA01) 
I Task Specification Verification | 




| SCANTSK 


| Register 1 is incremented to point | 
|past the START/STOP command code. | 


|R1 | 




(Check for punch to 3780 without | 
[component select. If so, branch to > | islOPUNTST 
1 1 (MA32) 
| Register 1 is pointed to the next | 
| character. | 




|R1 | 




| If blank, branch to continue scan for| 

jtask type > | SCANTSK 

| | (MA32) 

| Otherwise, register 15 is set up to | 

| point to the punch class table, [ 

| register 2 is set up to point to | 

| punch switch , and if task type | 

| specif ied is PUN,, return. | 




|R6 1 


|NOPUNTST|If not PUN,, register 15 is loaded | 
| |with the address of the list class | 
| | table, register 2 is set up to point | 
1 |to the list switch f and if task type | 
1 J specified is LST„ return. [ 




|R15 1 
|R2 1 
1 R6 | 




[Otherwise,, register 15 is set to | 
|zero f and if task type specified is | 
[MSG, return. | 




[R15 | 
|R6 | 


| INVTASK 


J The address of message 1R13I is | 
| loaded in register 1. | 




[Rl | 


| ERREXIT 


| Link to issue message • >|PMESS2 




|R15 | 




| | (MA24) 
| Branch to resume input processing.. >| GETLOOP 
[ [ (MAGI) 
| Address of message 1R23I is loaded in | 
[register 1,, and branch around loading | 
[register 1 again. | 


|R1 1 




| Address of message 1R24I is loaded in| 
| register 1. | 




| Rl | 




[Link to issue message >|PMESS2 


X , 


|R15 | 


1 


| | (MA24) 
| Branch to resume input processing.. >| GETLOOP 
| [ (MA01) 

-X X 


\ 1 

_X , X 



,0\ 

i 



i ^ 
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Labels 



Chart MA33: IPW$$TM - Remote Job Entry 
Routines 



Modified Data 
Fields 



Reg. 
Usage 



ICalls 



POSTMSG 



DOWNMSG 



MGO 



MG02 



MSETUP 



( 



The 'no messages' switch is reset. 

Branch to resume input processing.. 

Link to delete any messages in the 
message queue 



PAGELOOP 



SETUPOK 



The 'no messages' switch is set on. 

Branch to resume input processing.. > 

Branch and link to validate task 
parameter > 

Set up the message pointer in 
register 6. 

If the wrong task is being started, 
branch to issue an error message... > 

If the delimiter is not blank,, branch 
to > 

Turn off end of forms switch. 
Restore current TCB address. 
Clear forms TCB address. 

Branch to get next record.... > 

Branca and link to validate task 
parameter > 

Set up message pointer in register 6. 

If the wrong task is being started,, 
branch to issue an error message... > 

If the delimiter is correct, branch 
to > 

Otherwise,, branch to > 

Check for valid numeric characters. 

If not correct, branch to issue error 
me ssage > 

Indicate SETUP command and number of 
pages in TCB. 

Branch to process as GO command.... > 



GET LOOP 
(MA01) 

KILLMSG 
(MA04) 



GETLOOP 
(MA01) 

SCANTSK 
(MA32) 



ERREXIT 
(MA32) 

INVTASK 
(MA32) 



GETLOOP 

(MA01) 

SCANTSK 
(MA32) 



ERREXIT 
(MA32) 

SETUPOK 
(MA33) 

INVTASK 
(MA32) 



ERREXIT 
(MA32) 



MGO 2 

(MA33) 



LCBFLAGS 
(IPW$DLC) 



R6 



LCBFLAGS 
(IPW$DLC) 



R6 



BCAFLAGS ( IPW$DBC) 
BCATCBAD ( IPW$DBC) 
BCAFRMCB ( IPW$DBC) 



TCRS(IPW$DTC) 



R6 
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Labels 



Chart MA34: IPW$$TM - Remote Job Entry 
Routines 



Modified Data 
Fields 



Reg. 
Usage 



Calls 



V^ 7 



INITLINE 



This entry point is taken when the 
central operator issues a PSTART LINE 
command. 

On entry the following registers are 
relevant: 

1 : The logical unit number of the 

line to be initialized. 
4: Pointer to the PUB entry of the 

line to be initialized. 
5 and 6: Line password set by the 

central operator (if no password 

was set register 5 contains 

blanks) . 

The IPW$$TM base registers are set up 
in registers 7 and 8. 

The logical unit number in register 1 
is saved in register 15. 

The length of the Line Control Block 
(LCB) and Buffer Control Area (BCA) 
is loaded into register 1 and real 
storage is reserved for these blocks. 

LCB and BCA Initialization 



The pointer to the LCB is set up in 
register 9. 

The PUB address in register 4 is 
stored in the LCB. 

The pointer to the BCA is set up in 
register 4. 

The LCB address is stored in the BCA. 

The BCA address is stored in the LCB. 

The disposition between the real and 
virtual addresses of the control 
blocks is calculated in register 1 
and stored in the BCA. 

The line password set by the central 
operator is stored in the LCB. 

The logical unit number is stored in 
the CCB in the BCA. 

The logical unit number is set to 
avoid CCW translation. 

The PUB address is loaded into 
register 6. 



Rl 
R4 
R5,R6 

R7„R8 

R15 

Rl 



R9 



LCBPUB(IPW$DLC) 



BUFDCT(IPW$DBC) 

LCBBUFAD 

(IPW$DLC) 

BCADISP(IPW$DBC) 



LCBPSWD(IPW$DLC) 



CCBLUB(IPW$DBC) 



CCBLUB(IPW$DBC) 



R4 



Rl 



R6 



IPW$RSW 
Chart AC 



V. & 



c 
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DEVTYPOK 



LNLOOP 



MVCLINE 



OKPSWD 



The PUB device type is checked if it 
is a 2703 or ICA. 

The mode byte is taken from the 
specification by the user. 

The message subchairt index in the LCB 
is initialized to X'FF'. 

Registers 6 and 15 are set up for 
scanning the line blocks in the line 
table. 

The line blocks are scanned for a 
matcning line address. 

If found, branch to. > 

Get next line block and branch back 
to > 

The line features in the line block 
are moved to the LCB. 

If the line features indicate ASCII 
support, the ASCII flag is set in the 

LCB. 

A three second interval timeout is 
calculated in register 1 and then 
stored in the LCB. 

Force variable length, initialize 
print length and store the line 
account identifier in the LQB. 

If no line password was set by the 
central operator, the default 
password in the line block is moved 
to the LCB. 

The line address in the line block is 
translated into printable characters 
and moved to the LCB. 

Using register 1 as a base register 
to the BG communications region, the 
system date is moved from the COMREG 
to '-.he LCB. 

The pointer to the first LCB in the 
queue is loaded from the permanent 
area into register 2 and stored in 
the current LCB. 

The pointer to the current LCB in 
register 9 is stored in the permanent 
area to make it the first in the 
queue. 



MVCLINE 
(MA35) 

LNLOOP 

(MA35) 



LCBMCB(IPW$DBC) 



LCBMSG(IPW$DLC) 



R6,R15 



LCBFEAT(IPW$DLC) 



LCEPLINE 
(TPW$DLC) 



LCBTMOUT 
(IPW$DLC) 



LCBPRMT(IPW$DLC) 
LCBPRLEN ( IPW$DLC) 
LCBRECID(IPW$DLC) 

LCBPSWD(IPW$DLC) 



LCBDEVAD 
(IPW$DLC) 



LCBDATE(IPW$DLC) 



LCBCHAIN 
(IPW$DLC) 



CALC(IPW$DPA) 



Rl 



Rl 



R2 
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(The address of the channel appendage 
| routine is loaded from the permanent 
| area into register 2 and stored in 
(the BCA. 

I 

(The communication byte in the CCB is 

| set to X f 60* to indicate channel 

| appendage and sense information 

I required. 

I 

|The real address of the first sense 
| byte is calculated in register 2 and 
(stored in the BCA. 

I 

(The flag byte in the LCB is set to 

I indicate to the line manager that a 
(line is to be started. 



| (Activate the line manager. 

I I 

(DETINIT | Detach the initialisation task. 



| • The task is removed from the task 

J selection list. 

I • The task control block storage is 

| released. 



CCBAPP(IPW$DBC) 



CCBBY3(IPW$DBC) 



BCACCWO(IPW$DBC) 



LCBFLAGS 
(IPW$DLC) 



R2 



R2 



IPW$DET 
Chart AA 



V. 
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ILMCS 



ILMOO 



ILM04 



ILM05 



The first 16 bytes constitute the 
Section Descriptor: 



•LMCS 



V7M0 



The IPW$$TM base registers are set up 
in registers 7 and 8. 
The line manager's base register is 
set up in register 5. 

The address of the CCB appendage 
queue is loaded into register 4 and 
tested for a channel end condition. 
|^If so , branch to > 

The address of the LCB queue is 
loaded into register 9 and tested for 
, the end of the chain. If so, branch 
(to > 

The BCA address is loaded into 
register 4. 

The flag byte in the LCB is checked 
to see if a line has to be started. 
If so , branch to > 

The flag byte in the LCB is checked 
to see if a line has to be stopped. 
If not # branch to . . . > 



If not all I/O completed, branch to > 

If appendage is not active, 

branch to > 

If nobody signed on,, branch to > 

If no task active, branch to > 

If not switched line branch to. ... . > 

If nobody called, branch to > 



LM20 
(MA37) 



LM12 
(MA37) 



MGETLINE 
(MA47) 



LM09 
(MA37) 



|^LM05 



LCBSCAN 
HALT 10 
HALT 10 
LM09 
HALT 10 



R7,R8 
R5 

R4 
R9 
R4 



R4 
R4 

R4 
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~T 
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|LM09 


T 

| Register 9 is updated with the next 
| LCB address- 


' T T T 

|(MA47) | j 
1 1 |R9 


t — 




1 Branch to 


>|LM04 | | 

| (MA36) | | 

id| | | 




|LM12 


| The task is put in the wait state ai 
|an exit is made to task selection. 


| IPW$WFS 
| Chart AA 




|On return from task selection the ECB| |TCEB+2 | 
j is unposted. | | | 




|LM16 


(The TCTT indicator in the TCB is 
|checked to see if a PEND command was 
| given. If not, branch to 

|Test if all LCBs are released , and ] 
1 not branch to 


5 | | | 

>|'LM00 | | 

| (MA36) | J 

Lf | | | 

>|LM00 | | 
| (MA36) | | 

c | | | 






|The line manager task is detached. 

| • The task is removed from the tasJ- 
| selection list. 

|« The task control block storage if 
| released. 


| IPW$DET 
(Chart AA 


|LM20 


|The buffer is removed from the chain | j |R9 
|and the associated LCB address is | | j 
| loaded into register 9. | | | 




|LM36 


| If channel appendage not active , 
| branch to • 


>|LCBSCAN | | 
| jBCAUCCNT ( 






j Reset retry counter to zero. 






| If no unit check occured, branch tg 

j If no sense was received, branch to 

| If PREP sequence, branch to 

| Increment the retry counter and che< 
| it if reached the limit of 30. If 
| so, branch to. .••••«.•••••••••••••• 


>|LM24 J | 
I (MA37) | | 

>[MFORCERL| | 
| (MA46) | j 

>|LM24 1 | 
| (MA37) | | 
2k\ |BCAUCCNT |R2 

>)MF0RCERL| | 
| (MA46) | j 










|LM24 


|The flag byte in the LCB is 
Jcheckedfor completion of signoff 
| processing. If so, branch to 


>|MGETLINE| | 
| (MA47) | j 






| If it is not switched line, 

| branch to 


>|LM38 | | 






I If intervention required , 

J branch to. ••••••••••••••••••••••••• 


>|MF0RCERL| | 

1 1 ! 

| | BCACOMD( IPW$DBC) | R2 






|The virtual address of the last 
| executed CCW is calculated in 
J register 2 and moved to the BCA. 








w 
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ILM38 



The CSW status bytes are checked for 
disastrous errors, and if any have 
occurred, a branch is made to log 
them > 

If the device status indicates unit 
check or unit exception, and if the 
residual count is not the same as the 
initial specif ication f and if the 
last executed CCW is not a read CCW,, 
branch to > 



Set the first sense byte to X'03', 
simulate error. 

Indicate unit check in the device 
status byte. 



to 



MFORCERL 
(MA46) 



LM4 

(MA39) 



IOBSENSO 
(IPW$DBC) 

|CCBSTA(IPW$DBC) 



6.41 



~1 T 

| Reg. I Calls 
(Usage | 



(Labels 
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ILM40 



ILM50 



I 

I MBSCPRUC 

I 



1 
I 

J TIMEOUT 

i 



If the CCW is not of a prepare 
sequence type, a branch is made to 
the BSC read/write sequence 
processing routine > 

If the flag in the LCB indicates that 
a line is to be stopped., a branch 
and link is made to the signoff 
routine > 

If the device status indicates unit 
exception, branch to . . • • > 

If the CCW command is a disable or 
set mode command, branch to retry.. > 

To bypass the disable and set mode 
commands the next time the channel 
program is executed, the restart 
address in the BCA is reset. 

If the device status indicates unit 
check , branch to > 

The error counter in the LCB is reset 
to zero. 

The response to the last executed CCW 
is checked: 

If ENQ, branch to start the 

reader , ■••.•• > 

If ACKO or ACK1, branch to start the 
printer or punch > 

If NAK, branch to write EOT > 

If DLE-EOT, branch to. , > 

Otherwise, branch to log the error 
and retry > 

The first sense byte is checked: 

If command reject, branch to log the 

error > 

If neither intervention required nor 
timeout, branch to log the error and 

retry > 

If the CCW command is not a read 
command,, branch to retry. > 

If SIGNOFF processing nas been 
initiated, branch to. , ► > 

If the user does not want signoff 
forcing, branch to. > 



MBCERDWR 
(MA42) 



MAB0RT2 
(MA?4) 

MBSCPRUE 
(MA44) 

MRETRY 
(MA43) 



MBSCPRUC 
(MA39) 



IOBRESTR 
(IPW$DBC) 



LCBERRCT 
(IPW$DLC) 



MSTARTRD 
(MA40) 

MSTARTPP 
(MA 40) 
MBSCPTST 
(MA40) 
MFORCERL 

MRETRYL 
(MA43) 



MFORCERL 
(MA46) 



MRETRY 
EOTWRITE 

EOTWRIT1 



MBSCPT$T 
(MA40) 



fR9 



I 



J 



I 
-X- 
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ICalls 



MBSCPTST 



MBSCPTSO 



Increment the timeout counter by one 
and store it in the LCB. 

If the limit of the timeout counter 
has been exceeded, the signoff code 
in the LCB is set and a branch and 
link made to the signoff routine... > 



The timeout counter is checked. 

The timeout statistics are updated. 

If line is not a switched line f 
branch to > 

If remote is signed on, branch to.. > 

If not timed out 7 times before 
remote signed on, branch to > 

Set to sign off. 

Branch to disconnect line > 

Check whether an ENQ/E0T has to be 
sent. If not, branch to > 



If it is a 3741 device type,, branch 
to. > 

The ENQ and EOT in the CCW are 
alternated. 

Check whether an EOT has to be sent. 
If so , branch to > 



LCBTMCNT 
(IPW$DLC) 



MAB0RT2 
(MA24) 



LCBTMCNT 
LCBIDLE 



MBSCPTSO 
MBSCPTSO 

MRETRY 
EOTWRITE 



MBSCPNOP 
(MA40) 



LCBFLAGS 



LPCC 



EOTWRITE 
(MA40) 



IOBCCW4+3 
(IPW$DBC) 



Rl 



R9 
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MBSCPN0P 



LPCC 



EOTWRITE 



E0TWR1T1 



Set the command code to NOP. 

Repeat the NOP sequence 6 times to 
enable a line bid from the terminal . 

This sequence is executed if a writer 
task is interrupted for any reason. 
It enables the remote user to read 
cards by simply making the output 
device not ready and the reader ready 
(hot reader support) . The allowed 
time within which the reader must be 
readied is 6x3 = 18 seconds. 

Check if anything has to be sent. If 
not branch to retry > 



If any messages have to be 
transmitted or if punch or list 
output is available, branch to > 

Check if SIGN0FF processing has been 
initiated. 

If not, branch to > 

Otherwise set SIGNOFF completed. 



If line is not a switched line, 
branch to > 



Set up disconnect sequence. 

Start, the I/O. 

Branch to > 



I0BCCW4(IPW$DBC) 

IOBCCW4+7 
(IPW$DBC) 



MRETRY 
(MA43) 



ENQ WRITE 
(MA40) 



MRETRY 
(MA43) 



LCBFLAGS 
(IPW$DLC) 



MRETRY 
(MA43) 

MCCWINIT 

MEXCP1 

LMOO 



*\^.y 



R6 
R6 
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ENQWRITE 



MSTARTRD 



MSTARTPP 



Set the command code to enquiry write 
and branch to > 

The flag byte in the LCB is checked 
for signoff processing. If so, the 
enquiry is ignored and a branch made 
to > 

The reader TCB address is loaded into 
register 14 and the reader identifier 
into register 15. 

Branch to start the reader task.... > 

The command type is checked and, if 
necessary, set to write. 

The list/punch TCB address is 
loadedinto register 14 and the list 
identifier into register 15. If 
there are any messages to be 
transmitted, branch to start the list 
task > 



I0BCCW4(IPW$DBC) 



MRETRY 
(MA43) 



MBSCPTST 
(MA40) 



STARTUP 
(MA41) 



R14,R15| 



I0BCCWU(IPW$DBC) 



R14,R15| 



STARTUP 
(MA41) 



C 
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| STARTUP 



I 
I 

|ATTC 

I 
I 



Chart MA41: 
Routines 



JPW$$TM - Remote Job Entry 



The output switch in the LCB is 

checked for list output. If there is | | 

list output available in the list ] | 

queue, branch to start a writer | | 

task , > | STARTUP | 

I (MA41) | 

If punch output available in the | | 

output queue , branch to ignore | | 

unsolli cited ACK >| TIMEOUT | 

( (MA39) [ 

The timeout counter in the LCB is | j LCBTMCNT 

reset to zero. | | (IPW$DLC) 



POSTTASKI 
(MA42) I 



The previous TCB address is loaded 
into register 6 to see if any task 
was interrupted. If so, branch to 
reactivate the task > 

Reserve real storage for the 

TCB. 

If no storage was obtained, branch 

to simulate timeout >|MBSCPTSTj 

| (MA40) [ 



The TCB is initialized: 

Set block identifier 

Store RDR/LST/PUN identifier 

Set up line address 

Set remote identifier 

Set termination switch to blanks 

Pass registers 

Pass TCB address 

Set up input class pointer 

Set class list delimiter to X'FF' 

Load the reader entry point into 
register 3. 



I 
I 

jTCBI(IPW$DTC) 
|TCTI(IPW$DTC) 
|TCCU(IPW$DTC) 
|TCRI(IPW$DTC) 
|TCTT(IPW$DTC) 

I 

jTCSV(IPW$DTC> 
|TCCTCIPW$DTC) 
ITCCT+^CIPW^DTC) 



If a reader is to be started, branch | 
to attach the task 



^ | PATT 

I (MA42) 
— .X 



I 



IR6 



I 



IR3 



I 

-X- 



I I 

I I 

|IPW$RSW I 

(Chart AC | 



(R3-R8 | 
1 I 
t I 



I 

-X- 



/f" 



I V 



v,> 
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FORMS ID 



FILCLASS 



CLASDONE 



PATT 



POSTTASK 



NO FORMS 



Set up registers for building the 
task class list in the TCB. 
R2. = class list pointer, R6 = pointer 
to class displacements, R15 = pointer 
to class table (either punch or list 
task) . 

If a printer is to be started, the 
forms number is stored in the TCB. 

The task class list is build in the 
TCB (maximum of 4 classes). 

Load the list/ punch entry point into 
register 3. 

Attach the task. 

The current TCB address is saved in 
the LCB. 

Branch to , . > 

If not in 'I' state, branch to > 

If starting the message writer,, 
branch to > 

If starting a reader, branch to.... > 

If forms, change required, ignore ACK, 
and branch to > 

Reactivate interrupted task. 

Branch to. . . , > 

BSC Read/Write Sequence Processing 



MBCERDWR 
MBCENSF 



Check channel and device status : 

If unit exception, branch to > 

If unit check, branch to. > 

Reset the error counter in the LCB. 
Check the sequence type: 

If SOH-ENQ, branch to > 

If write sequence, branch to > 

Check the data bytes: 

If STX or DLE-STX, branch to > 

If ENQ, branch to . . . . , > 

If SOH, branch to > 



I 



R2 f R6 
R15 



|TCGW(IPW$DTC) 



I 



R3 



IPW$ATT 
Chart AA 



LMOO 
(MA36) 
TIMEOUT 
(MA39) 

ATTC 

(MA41) 
NOFORMS 

(MA42) 

TIMEOUT 
(MA39) 



LMOO 
(MA36) 



j LCBBUFAD 
| (IPW$DLC) 
I 
I 



I 

|TCSF(IPW$DTC) 



I 



MBSCRWUE] 
(MA44) | 
MBSCRWUC j 
(MA44) I 



| LCBERRCT 
I (IPW$DLC) 



MFORCERLj 

(MA46) | 
MBCEHDWRf 

(MA43) | 

I 

I 

MBCEHDRDJ 

(MA43) | 
MRETRY J 

(MA43) | 
MBCENULLI 

(MA43) | 
X- 
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MWRNAK 



MBCEHDRD 



MBCENULL 



MBCEHDWR 



Set up a NAK response in the remote 
response control block in the BCA. 

Branch to write the enquiry > 

The address of the last data byte is 
calculated in register 15 , and if the 
byte indicates ENQ, branch to. > 

The address of the last data byte is 
stored in the BCA. 

The ETX switch in the LCB is reset, 
ff the termination byte indicates 
ETX, the ETX switch is set. 

The buffer size is calculated in 
register 15 , and the first data byte 
s checked for DLE. If so, the buffer 
length is reduced by one. 
Then the buffer size is compared with 
the residual length, and if data is 
present, branch to > 

The address of the restart CCW is 

loaded into register 1 and stored in 
the BCA. 

Branch and link to read the next 
block. . . > 

Branch to > 

Check the response characters : 

If not DLE, branch to. . . . , > 

If ACK, branch to > 

If WACK, branch to > 

Check the command type to see if the 
enquiry has already been written. If 
not, branch to > 

The ACK is inverted in the BCA and 
checked for a count check. 

If not,, branch to write ENQ and 

log > 



Branch to retry > 



(MA45) 



MWRENQTR 
(MA45) 



MWRNAK 
(MA43) 



LCBRCB(IPW$DBC) 



R15 



BUFEWF(IPW$DBC) 



LCBFLAGS 
(IPW$DLC) 



R15 



MNORMAL 
(MA44) 



IOBSTART 
(IPW$DBC) 



Rl 



MEXCP 
(MA22) 

LMOO 
(MA36) 



MBSCHNAK 
(MA45) 
MNORMAL 
(MA44) 
MWRENQ 
(MA45) 



[MWRENQ 
(MA45) 



MWRENQIR 
(MA45) 

MRETRY 



V 



.y 



LCBRCB+l 
(IPW$DBC) 
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MBSCRWUE 



MNORMAL 



MBSCRWUC 



( 



MBUCSRCH 



MBSCPRUE 



If the command is a write command, 
branch to > 

The EOT switch in the BCA is turned 
on. 

The address of the first carriage 
control is stored in the BCA. 

The address of the first data byte is 
stored in the BCA. 

The address of the first CCW is 
reset. 

The communication byte is set to 
indicate RJE RDR/LST/PUN ready. 

Branch to > 

If the sense byte indicates 
intervention required , branch to. . . > 

If the command is an enable comma nd, 
branch to > 

If the sequence has a programmable 
interface, branch to > 

Set up register 1 for scanning the 
unit check table. 

The command is checked against the 
entries of the unit check table. 

If the condition is not in the table, 
branch to > 

If a match is found, the sense bits 
are checked and if all selected bits 
are off, continue the scan by 
branching to . . > 

The error sequence displacement is 
loaded into register 1, and a branch 
is made to the error routine. 

If the command is a write, branch to> 

If DLE-EOT received,, branch to > 

Otherwise, branch to > 



MRESTART 
(MA45) 



BCAFLAGS 
(IPW$DBC) 

TPBLCCAD 
(IPW$DBC) 

TPBFDATA 
(IPW$DBC) 

I OB START 
(IPW$DBC) 

CCBC0M1(IPW$DBC) 



LMOO 

(MA36) 

MBINTREQ 
(MAU5) 

MBINTREQ 
(MA45) 

MCWRNAKL 
(MA43) 



MFORCERL 
(MA46) 



MBUCSRCH 
(MA44) 



MRESTART 
MFORCERL 
MRENTRY 



Rl 



Rl 
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i 



I 

(MRDTXT 



I 
(If the command code is a read, branch) 

( to . . ................. > f MNEWSTRT [ 

j | <MAf5> [ 

(If the command code is not a TIC, | | 

| branch to get the next CCW. >|MRESTART( 

( |(MA45> | 

(Otherwise, the address of the next | j 
(read *CCW is loaded into register 2, \ j 

(and a branch made to....;. > (MNEWSTRT | 

( (CMA45) | 

t I (MA45> ( 

(The address of the read CCW is [ j 
(loaded into register 2, and a branch | f 

| made to. .... . . . > (MNEWSTRT | 

| ( (MA 4 5) I 



(MWRENQIRJ Increase count for invalid 
| (responses. 



| LCBINRSP 
[ (IPW$DLC) 



[MBCEHENQJThe command type is checked, and if | 
( (it was a response to an £NQ, branch [ 
| J to . > I MWRENQ 

| | |CMA45> 

J MWRENQ (The address of the write CCW is ( 
| | loaded into register 2. ( 

I t I 

(MNEWSTRT | The real CCW address is calculated in | 

j (register 2. j 

i I I 

( (Branch to re-execute the channel ( 
I- f I program. > | MRETRY2 

j ( | (MAM) 

I 



| |MBSCHNAK|If a NAK not received, branch to... >|MWRENQIR| 

I I I I 

IJ (If a previous EOT has been received, | | 
I ( branch to. ... > (MWRENQ | 



| Increase invalid response count 
(by 1. 
-X-,- 



| LCBINRSP 
j (IPW$DLC) 



IR2 



IR2 



IR2 



]R2 



|R2 



(R2 



(R2 



I 



V. 



o 
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Routines $ 



Remote Job Entry 



Modified Data 
Fields 



T 

Reg. 
Usage 



ICalls 



MRETRY 
MRETRY2 



MBINTREQ 



MCERRLOG 



MCERRLO 



Setup the restart address of the 
CCW's. 

Store the address of the restart 
CCW^s in the BCA. 

Branch and link to initiate I/O,... > 

Return to. ,. > 

Branch and link to the error log 
routine . > 

Set up a NAK response in the remote 
response control block in the BCA. 

Branch to retry > 



If only a timeout record and trace 
option not on for this line, then 
return to caller via register 6. 
The first sense byte is checked for 
timeout or intervention reguired. If 
not, branch to > 



If the error has changed,, 

branch to ........ > 

If it is not the first error, branch 
to > 

The error counter is incremented by 
one and checked for the maximum. If 
the maximum has not yet been reached,, 
return to caller via link register 6. 



R2 



IOBSTART 
(IPW$DBC) 



MEXCP1 
LMOO 



MCERRLOG 
(MAU5) 



MRETRY 
(MA43) 



LCBRCB(IPW$DBQ) 



ERRLOG 
(MA46) 



MCESAMER 



ERRLOG 



LCBERRCT 
(IPW$DLC) 



R6 
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T 



| Labels 


Chart MA46: IPW$$TM - Remote Job Entry 


Modified Data 


|Reg. jCalls 




Routines 


Fields 


] Usage | 


L 




j 




x i 


r ■ 





T 





— ^. -|. 


| ERRLOG 


The SYSREC record is build: | 








• 


Clear the SYSREC record area | 


MCEHEADR 






• 


Set the length of the data part of| 
the record to 64 | 


MCELNGTH 




1 


• 


Set the record identification to | 
X'34 1 to indicate type 2 I/O | 
device. | 


MCETYPE 






• 


The device dependent switch is set| 
to X'OO" to indicate unit check. | 


MCESWT1 






• 


Move the job name. | 


MCEJOBID 






• 


If this is an end-of-day record, | 
branch to skip the I/O related | 








• 


information. >| MCEM0VS1 


MCECCWAD 






Move CCW address. | (MA46) 






• 


Move failing CCW address. | 


MCE CCW 






• 


Move device and channel status | 
bytes . | 


MCE STAT 






• 


Move residual count. j 


MCERESID 






If 


this is not an unrecoverable I/O | 








er. 

• 


ror , branch to ...... > | MCEMOVS 1 


MCESENSO 






Move sense bytes and retry count. | 




|MCEMOVSl 


Move initial sense byte. | 


MCESENS1 




|MCELB12 


• 


Set number of status bytes to 2. | 


MCESENSE 






• 


Set number of device dependent | 
data words to 2. | 


MCEDWD 






t 


Set length of statistical data to | 
0. | 
Move line address. | 


MCESDCAR 






# 


MCE^INE 






• 


Move physical unit address. | 


MCEPHCUA 






• 


Move remote id. | 








• 


Move device type from PUB. | 


MCEDEVCE 






t 


Move PUB2 usage count. | 


MCESIOCN 






Th 


e address of the SYSREC record areaj 




IR1 | 




is 


loaded into register 1, and the | 








record is written via SVC 44. | 








Th 


e error counter in the LCB is reset | 


l^CBERRCT 






to 


zero. | 


(IPW$DLC) 






Return to caller via link register 6. | 




|R6 | 


IMFORCERL 


The signoff code in the L.CB is set to| 


LCBSCODE 






X' 


08' to indicate that there has been) 


| (IPW$DX,C) 






an 


unrecoverable error on the line. | 








Branch and link to the signoff | 








routine to force signoff.. >|MAB0RT2 




|R6 | 






| (MA24) 








| If 


the line is not operational,, | 








branch to ; ^ 1 MDOSTOP 








| If 


line is switched, branch to >|MFORCER0 










*K^,y 



I 



-X ...X X X X J 



\^y 
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Labels 



Chart MA47: IPW$$TM - Remote Job Entry 
Routi nes 



Modified Data 
Fields 



Reg. 
Usage 



I Calls 



MFORCERO 



MDOSTOP 
MGETLINE 



Set LCBFLAGS to force line stop. 

If any line is to be closed,, branch 
to > 



If line is not switched, branch to. > 

If disable has been issued,, 

branch to > 

Set line to signed off. 

Branch to > 

Force line stop. 



( 



Branch and link to delete any 
remaining messages 



> 



The flag byte in the LCB is checked 
to see if a line has to be stopped. 
If so, branch to > 

The flag byte is reset to zero. 

Clear remote ID. 

The maximum buffer size of 536 is 
loaded into register 1 and stored in 
the LCB. 

The terminal type indicator in the 
LCB is checked for EBCDIC or USASCII 
code and according to that the 
address of the proper code table is 
loaded into register 1 and stored in 
the BCA. 

Registers and 1 are set up for CCW 
initialization and control is given 
to the CCW Initialization routine.. > 

On return the command code of the 
fourth CCW is changed to a PREP 
command . 

If line is switched, the command code 
of the fourth CCW is set to NOP. 

Control is given to the I/O interface 
routine to execute the channel 
program and initialize the line.... > 

Branch to > 



LCBFLAGS ( IPW$DLC) 



MN0RMAL 
(MA44) 

MGETLINE 



MGETLINE 



EOTWRITE 



KILLMSQ 
(MA04) 



HALT 10 
(MA47) 



LCBFLAGS 



LCBFLAGS 



LCBFLAGS 
. (IPW$DLC) 
LCBREMID 
(IPW$DLC) 



LCBFSIZ(IPW$DCL) 



Rl 



£CACODE(IPW$DBC) 



Rl 



R0,R1, 
R6 



MCCWINIT 
(MA20) 



I0BCCW4(IPW$DBC) 



MERREXCP 
(MA22) 
LMOO 

(MA36) 



R6 
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j Labels 

h 
M 

I 



Chart MA47.1: IPW$$TM - Remote Job Entry 
Routines 



J Modified Data 
(Fields 



I 
I 

I 
I 
I 



Reg . 
Usage 



I Calls 



I HALT 10 



| STOPLINE 



I 

|ST0PL1 

1 
I 

IMDOLOG 

I 



The CCB pointer in register 4 is 
loaded into register 1. 

Halt I/O via SVC 25. 

Point to DISABLE CCW. 

Unchain CCW from CCW chain. 

Reset channel end appendage. 



If line is not operational, | 

branch to , >|ST0PL1 

I 
Otherwise force I/O complete. | 

I 
Branch to >|MD0L0G 

I 
Setup disable command using SVCO and | 
wait for completion. | 

I 
Prepare to write EOD record on | 
SYSREC, I 

1 
Branch to mainline. . . . >| LMOO 

j. 



I 
I 
I 

I IOBSTART 

I 

| I0BCCW1 

I 

| CCBBY3 

I 
I 
I 
I 
JCCBCOM1 

I 



Rl 



Rl 



V. J 



A^y 
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Labels 



Chart MA48 : IPW$$TM 
Routines 



Remote Job Entry 



Modified Data 
Fields 



Reg. 
Usage 



Calls 



LCBSCAN 
LCBBUMP 



INIT 



( 



The LCB pointer is initialized. 

The address of the next LCB is 
calculated in register 1. 

If this LCB is to be deleted, it is 
removed from the chain. 

Otherwise, branch back to > 

The message 1R02I LINE cuu STOPPED 
is issued to the operator. 

The CCB pointer in register 4 is 
loaded into register 1. 

The logical unit is unassigned. 
The LCB pointer is loaded into 
register 1 and the LCB and BCA space 
is released. 

Branch to > 

This routine is entered from IPW$$I2 
at POWER/VS initialization time. 

Save registers 3-7. 

Using registers 3-7 as work 
registers, the line and remote blocks 
from the POWER/VS generation table 
are moved into virtual storage. 

Restore registers 3-7 and return to 
IPW$$I2. 



Rl 



Rl 



LCBCHAIN ( IPW$DLC 



LCBBUMP 
(MA48) 



LM16 
(MA37) 



Rl 



Rl 



R3-R7 



IPW$WTO 
Chart AD 



IPW$ULP 
Chart GC 
IPW$RLW 
Chart AC 
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CHART MB: IPW$$MS - MESSAGE HANDLER (16 PARTS) 



Chart MBOO: IPW$$MS - Message Handler, General Flow and Macro Calls 



V 



,,y 



IPW$$NU 



POWER/VS 
Nucleus 



V 



IPW$$MS - 


. Message Handler 


Label 


Routine 


Functions/ 
Interfaces 


Services 


MS04 


Local Message Request Entry Point 




A 


MXOO 


Message Modification Routine 






MS50 


Remote Message Request Entry Point 






ERRRTRN 


Error Return 






NORMRTRN 


Normal Return 






ADDNRM 


Add SNA or BSC Message to the Virtual 
Message Queue 




B,C 


DELETMSG 


Delete Message from the Message Queue 






DISPROUT 


Display ALLUSER type message 






DELROUT 


Delete ALLUSER type Message 






FFTYPE 


Add a Message to the ALLUSER type Queue 






DELBSC 


Delete a BSC Message 






GETBSC 


Get a BSC Message 






GETSNA 


Get a SNA Message 






DELSNA 


Delete a SNA Message 






DELTMP 


Delete a SNA Message temporarily 






ADDDEL 


Add temporarily deleted SNA Messages 






LOCATE 


Subroutine to Locate End of Delete Subchain 

















IPW$$NU 


Macro 


Ref. 


Chart 


Task 
Management 


A 

B 
C 


AA 
AB 


IPW$WFC 


Resource 
Management 


IPW$RSR 
IPW$RLR 



V 



IPW$$NU 



POWER/VS 
Nucleus 
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I Labels 



Chart MB01: IPW$$MS - Message Handler 



Modified Data 
Fields 



Reg. 
Usage 



ICalls 



IMSCS 



IMS04 



1MS08 



The first 16 bytes constitute the 
section descriptor: 



■MSCS 



V10M0 



On entry, the following register 
contents are relevant-: 

- Service work register. Address 
BIND parameters for MSG 1V34I or 
RJE-ID for message 1V33I. 

1 - Service work register 

2 - Service work register 

3 - Service work register 

4 - Message control block 

5 - Message table address 

6 - Message entry address 

7 - Internal link register 

8 - SNA unit control block 

9 - Line control block 

10 - POWER/VS nucleus 

11 - Task control block 

12 - Reserved for nucleus use 

13 - Linkage register save area 

14 - Return address to caller 

15 - Message handler base address 

If a remote message request is to be 
serviced, control is passed to. .... > 

Local Message Request Entry Point 



Addressability of the message control 
block is established in register 4. 

If the message request word does not 
contain the address of a TCB, the 
address of the current TCB is loaded 
into register 5. 

The message address and message 
length are retrieved from- the message 
request word in the TCB and loaded 
into registers 2 and 3. 
Then the length of the message is 
checked, and if it is too long, it is 
set to the maximum of 72 characters. 

The message text is moved into the 
output area of the message control 
block. 

The message reply word is checked (or 
a reason code. 

If logon-reason code not present, 
bran en to > 

Save reason code for message 
modification. 



IPW$DMS 



IPW$DSU 
IPW$DLC 
IPW$DPA 
IPW$DTC 

IPW$DSV 



MS50 



MMMA(IPW$DMS) 



MS10 



MMRO 



R0 



Rl 

R2 

R3 

R4 

R5 

R6 

R7 

R8 

R9 

RIO 

Rll 

R12 

R13 

R1U 

R15 



R4 



R5 



R2, R3 
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- T r r 

I Modified Data |Reg. [Calls 
(Fields | Usage | 

_ + + + 



| Labels | Chart MB02: IPW$$MS - Message Handler 
I I 



h 



+ ,__ T 

| The address of the message is 

| loaded into register 6 , and a link is 

| made to the message modification 

| routine to modify certain message 

[fields if necessary >|MX00 

1 

[The resulting message text is checked 
| for trailing blanks and length, and, 
I if necessary, set to the maximum of 
[72 characters. 

I 

[The message length is set in the 
[write CCW in the message control 
[block. 

I 

| If request is for termination, or not 

[an active spool management request, 

| or spool management not present, tnen 

| branch to. >| MS18 



[MS10 



I 

I 

| MS 12 

I 
I 



I MS 16 



I 



[MS17 



If message expects a reply, then 
brancn to ....... . . > 

Load address of user buffer and 
indicate message logged. 

If a return message is requested, 
then branch to . . > 

If a message is pending, then send 
| this message by branching to > 

If message returned is not 'IR88I", 
then set error indicator. 

Place first 44 characters of POWER/VS 
message text at offset 28 in 
user- supplied buffer. 

If this is not an ' iQnnl* message, 
branch to. > 

The reply request word In the TCB is 
checked to determine whether the 
message expects a reply. If not, 
branch to > 



[The length of the expected reply is 
[retrieved from the reply request word 
I In tne TCB and loaded 
[into register 3. Then the length is 
j checked, and if it is too long, set 
[to the maximum of 72 characters. 
-X _„„_„ 



MSI 9 



MSI 7 



MS 3 2 



MS 3 2 



MS28 



| SPPB(SPL) 



| SPER(SPL) 



|R6 | 

I I 

1 I 

1 I 

1 I 

[R1,R3 | 

I I 

1 I 



JMMWT(IPW$DMS) ] 
I I 



I 



IR3 



v_y 



c 
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h 



Labels 



Chart MB02.1: IPW$$MS- - Message Handler 



Modified Data 
Fields 



Reg. 
Usage 



Calls 



MS20 



MS24 
MS28 



( 



The reply length is set in the read 
CCW. 

The command code of the write CCW is 
set to X'01' (write with no carriage 
return) . 

The command code of the read CCW is 
set to X'OA' . 

The input area is set to blanks. 

The 'Blank Compression Routine* is 
called to delete duplicate blanks 
within a message. 

Br an en > 

The message is issued via SVC 0, 
and an IPW$WFC macro is issued to 
wait for completion. 



If no reply was expected , branch 
to 



> 



The unit exception bit in the CCB is 
checked to see whether the operator 
has pressed the CANCEL key. If so, 
I the message is reissued by branching 
] back to > 

x 



MMRD(IPW$DMS) 

MMWT(IPW$DMS) 

MMRD(IPW$DMS) 
MMMI(IPW$DMS) 



COMPRESS 



R7 



MS 3 2 



MS 2 4 



IPW$WFC 
Chart AA 



I 

-X- 



C 



659 



Labels 



Chart MB0 3: IPW$$MS - Message Uandlef 



Modified Data 
Fields 



Keg. 
Usage 



| Calls 






MS 3 2 



MXOO 



MX01 



MX12 



The command code of the read CCW is 
set to X'03' (NOP) . 

The command code of the write CCW is 
set to X'09' (write with carriage 
return) . 

The operator's reply is converted to 
uppercase characters and moved to the 
caller's input area. 

Return to caller via register 14. 

Message Modiiication Routine 



Upon entry to this routine, 
register 3 contains the length of the 
message, register 6 contains the 
address of the message, and register 
7 contains the return address. 

Calculate new message length in 
register 3 for scanning. 
Put new offset for scan in register 
6. Test if end of message reached. 
Return to caller via register 7. 

The message text is scanned for a 
message modifier character via a 
translate and test instruction, and 
if a modifier is found, the address 
where the message has to be modified 
will oe in register 1, and tne 
message is modified via the branch 
table at > 

Return to caller via register 7. 

Message Message 
Identifier Modification 



t 
c 
r 

J 
u 
n 
f 
s 
x 
1 
d 
m 

q 

e 
a 
o 

P 
b 

y 

V 

w 
i 



Task identifier > 

Unit record address..... > 

RJE identifier.... > 

j ob name > 

User information > 

Job number > 

Forms ID > 

Sublibrary > 

Number > 

Line address . . > 

RJE identifier — > 

Logical unit name > 

RPL request > 

RTNCD,FDB2 > 

Sense......... > 

Command code > 

SNA stop code .. > 

CCB address > 

Logon reason code > 

RJE identifier > 

Bind data > 

Application ID. > 



MX12 



MX20 
MX2 4 
MX 2 8 
MX3 2 
MX36 
MX4 
MX 4 4 
MX48 
MX5 2 
MX 5 6 
MX6 
MX 6 4 
MX6 8 
MX 7 2 
MX7 6 
MX8 
MX8 4 
MX 8 8 
MX9 2 
MX96 
MX100 
MX104 



MMkD(IPW$DMS) 



MMWT(IPW$UMS) 



R14 



R3 , R6 , 
R7 



R3 
R6 
R7 



R7 
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Labels 


Chart MB03.1: IPW$$MS - Message Handler 


Modified Data 
i Fields 


Reg. 
Usage 


Calls- 


- 


h forms overlay identifier (flash). > MX110 

k paper thread request .. > MX1 12 

z forms identifier > MX1 1 6 

g abend reason code > MX120 











c 



660.1 



v.v 






I Labels 



Chart MB04: IPW$$MS - Message Handler 



Modified Data 
Fields 



Reg. 
Usage 



iCalls 



IMX20 



IMX24 



IMX28 



IMX32 



( 



IMX36 



IMX40 



IMX44 



Using register 5 as a base address 
for the TCB, the task identifier 
(TCTI) is inserted in the message 
text. 

If it is a SNA task, the SNA 
identifier is added. 

Continue modification scan > 

Using register 5 as a base address 
for the TCB f the physical device 
identifier (TCCU) is inserted in the 
message text. 

If it is a SNA task, 'SNA' is 
replaced by the remid. 

Continue modification scan > 

Using register 5 as a base address 
for the TCB, the RJE identifier 
(TCRI) is inserted in the message 
text. 

Continue modification scan > 

Usiny register 2 as a base address 
for the queue record, the job name 
(QRNM) is inserted in the message 
text. 

Continue modification scan > 

Using register 2 as a base address 
for the queue record, the user 
information (QRUI) is inserted in the 
message text. 

Continue modification scan > 

Using register 2 as a base address 
for tne queue record, the job number 
(QRNO) is converted to decimal and 
inserted in the message text. 

Continue modification scan...., > 

Using register 2 as a base address 
for the queue record, the forms 
identifier (QRFI) is inserted in the 
message text. 

Continue modification scan > 



'iXOO 



MXOO 



MX 



MXOO 



MXOO 



MXOO 



MXOO 



R5 



R5 



R5 



R2 



R2 



R2 
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"T T 

JReg. J Calls 
J j Usage | 



[Labels 



h 

J-MX48 

I 
I 



I 
I 

[MX52 



Chart MB05: IPW$$MS - Message Handler 



^ , r „ T 

Using register 2 as a base address | 
for the source library work area, the | 
SLI sublib (SLSL) and bookname (SLBM) | 
are inserted in the message text. | 

I 
Continue modification scan >|MX00 

I 

The three-digit number passed in | 
register 4 (MMR4) by the issuing task j 
is loaded into register 2, converted j 
to decimal, and inserted in the | 
message text. | 

I 

Continue modification scan......... >[MX00 



| Modified Data 
| Fields 
-+ 



IMX56 



IMX60 



1 



IMX64 



IMX68 



Using register 9 as a base address 
for the line control block, the line 
address (LCBDEVAD) is inserted in the 
message text. 



Continue modification scan. >|MX0 

t 

Using register 9 as a base address | 
for the line control block, the RJE | 
identifier (-LCBREMID) is inserted in | 
the message text. | 

I 
Continue modification scan > | MXOO 

I 

Using register 2 as a base address | 
for the logical unit control block, | 
the logical unit name (LULU) is [ 
inserted in the message text. | 

I 
Continue modification scan. . .... . . . >| MXOO 



Using register 2 as a base address | 
for the RPL pointed to by register 6 | 
(MMR6), the RPL request type (RPLREQ) | 
is inserted in the message text. | 
(The RPL request type may be: | 
SETLOGON, OPNDST, INQUIRE, CLSDST, | 
SEND, RECEIVE, RESETSR, or SESSIONC . ) | 

I 
Continue modification scan. >|MX00 

i_- •-*.-, — x- x 



I 



I 
I 

-X- 



IR2 



|R2,R4 
I 



[R9 



| R9 



IR2 



I 

! 

|R2,R6 

I 

I 



I 






j X^ 






c 
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Labels 


r T 1 T 

Chart MB06: IPW$$MS - Message Handler | Modified Data JReg. | Calls 

| Fields | Usage | 


MX72 

MX76 

MX80 
MX84 

MX88 
MX92 

MX96 
MX100 

MX104 

MX110 


r ~ "■ ~" — — - "" r 

Using register 2 as a base address | 
for the RPL pointed to by register 6 | 
(MMR6) f the RPL return code 
(RPLRTNCD) and the RPL feedback field| 
(RPLFDB2) are converted to decimal 
and inserted in the message text. | 

Continue modification scan •••• >| 


i 

MX00 | 

MX00 
MX00 

MX00 
MX00 

MXO0 
MX00 

MX00 
MX00 


i 

IPW$DMM 
IPW$DMM 


R2 f R6 | 

R2,R6 

R2,R6 
R2 

R7 
R0,R2 

R0 

R0,R2, 
R3 

R7 

R2 

R1 ,R2 


r — 


Using register 2 as a base address | 
for the RPL pointed to by register 6 
(MMR6) , the RPL system sense bytes | 
(RPLSSEI and RPLSSMI) are converted 
to decimal and inserted in the | 
message text. 

Continue modification scan. •••••••• > 




Using register 2 as a base address 
for the RPL pointed to by register 6 | 
(MMR6), the operator command code is 
inserted in the message text. 
Continue modification scan. •••••••• > 




Using register 2 as a base address 
for the SNA work area (WACB) , the SNA 
stop code for an SNA inbound, or 
outbound processor is inserted in the 
message text. 

Continue modification scan. • > 




The address of the CCB f located in 
MMB7 is set into the message. Branch 
to > 




The reason code for the failure of 
SNA logon requests, passed in 
register 0, is set into the message. 
Branch •••• > 




The RJE-ID passed in register from 
SNA manager is set into the message. 
Branch •••••••• •••• > 




The BIND parameters are set into 
the message. Address is passed in 
register 0. 
Branch on register m > 




The application ID f roin the VTAM ACB f 

located in the SNCB, is set into the 

message. 

Branch. •.•••••••••••••••••••••••••• > 




Using register 2 as a base for the 
queue record, the forms overlay 
identifier (flash-id) is inserted 
into the message text. 

Continue modification scan > 





c 
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Labels 



Chart MBO.6.1: IPW$$MS - Message Handler 



Modified Data 
Fields 



Reg. 
Usage 



Calls 



MX112 



MX1 1 6 



MX120 



COMPRESS 



MS 50 



Using register 2 as a base for the 
queue record, the paper thread 
request is inserted in the message 
text. The paper thread request may 
be: 

• BTS - burster trimmer stacker 

• CFS - continuous form stacker 

Continue modification scan > 

Using register 2 as a base for the 
queue record, the forms identifier 
is inserted into the message text. 

Continue modification scan > 

The POWER/VS abend reason code 
contained in register (MMRO) is 
converted to printable format and 
inserted into the message text. 

Continue modification scan . > 

Delete duplicate blanks out of a 
message after all variables have 
been set by message modification. 
Address of message is passed in 
register 1, length in register 0. 
Branch on register 7 > 

Remote Message Request Entry Point 



MX00 



MX00 



MX00 



Addressability of the message control 
block is set up in register 4. 

The function indicator is saved. 

The message request word in the TCB 
is reset to X' 00* . 

The parameter registers are loaded 
into registers and 1. 

The address of the remote message 
table is loaded into register 5. 

The address of the logical unit 
control block, if any, is loaded into 
register 8. 

The pointer to the ALLUSER-TYPE table 
is set in register 6. 

The function indicator is set in 
register 2. 



MSFI(IPW$DMS) 



TCMW(IPW$DTC) 



R1 ,R2 



R1 ,R2 



R1 



R3,R4 

R5,R6, 

R14 
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ICalls 



MS54 



ERRRTRN 



NORMRTRN 



C 



ADDNRM 



SCANLCB 



The requested function is selected 
via the following branch table: 

Display ALLUSER message > 

Delete ALLUSER message > 

Add ALLUSER message > 

Get BSC message > 

Delete temporary SNA mess-age > 

Delete BSC message . > 

Add temporary deleted SNA message.. > 

Delete SNA message > 

Get SNA message > 

Add SNA or BSC message > 

Error Return 



Register 1 is set to zero to indicate 
that the requested function could not 
be performed. 

Normal Return 



Registers and 1 are saved, and a 
return to caller is made via 
register 14. 

Add SNA or BSC Message to the Virtual 



Message Queue 



Check if the remote ID is bigger than 
the number of BSC remotes. If so, 
branch to > 

Using register 9 as LCB pointer, the 
LCB chain is scanned for a matching 
remote ID. After all LCBs have been 
scanned, a branch is made to add an 

SNA message > 

When a matching remote ID is found, 
the function indicator is set to 
X'29' to indicate a BSC message. 

The LCB flags are checked to 
determine wnether any messages are 
wanted. If not, the message is 
ignored and a return to caller is 
made by branching to > 



DISPROUT 

DELROUT 

FFTYPE 

GET BSC 

DELTMP 

DELBSC 

ADDDEL 

DELSNA 

GETSNA 

ADDNRM 



Rl 
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ADDS N A 
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R14 

R2 
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ADDSNA 
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Modified Data 
Fields 



| Reg. 
| Usage 

-+ 



ICalls 






ADDMSG 



TXTOK 



MSGSCAN 



ENDSCAN 



The free chain index (MSFC) in the 
message control block is checked for 
a free entry. If there is none 
available, a branch is made to > 

The free entry index is saved in 
register 7, and the displacement in 
the message table is calculated in 
register 6. The new free entry index 
is then stored in the 
message control block using 
register 2 as a work register, and 
the end of subchain indicator is 
set in the message table. Then the 
message length is obtained in 
register 2 and checked. If it is too 
long, it is set to the maximum of 59 
characters. 

The previous message text in the 
message table is cleared, and the 
new message text is moved into it, 
as well as the message length 
and sequence identifier. 

The start address of the BSC 
subchain, or the SNA subchain is 
loaded into register 3. 

The subchain is scanned for more 
entries and the displacement of a 
possible next entry is calculated in 
register 2. 

When no more entries are to be 
scanned the free entry index, which 
was saved in register 7, is stored in 
the last entry pointed to by register 
3. 

Save the message address in register 
6. 

The length of the message is obtained 
in register 3, the address of the 
message in register 6, and register 5 
is set up for modification. Then a 
link is made to the message 
modification routine at > 
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SAVMSGAD 
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Usage | 
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| | Reload message address into register | 
| |6. | 
| | Save work registers registers 14 to | 
1 |6. I 
| (Delete trailing blanks. | 
| |Save message length without trailing | 
| | blanks. | 
( | Put length in register 14 and message | 
| | address in register 1. | 
| | Branch to multiple blank deletion | 
| 1 routine >| COMPRESS 


r t t 
JR6 | 


FW9 




MLEN 


Rl | 


( | Save number of deleted blanks from | 
| | register '4 in register 2. | 




R2 | 


| |The original message length is | 
| | reduced by the number of deleted | 
1 [blanks and restored. | 


MLFN 


R2,R7 | 


j |A check is made if this was a BSC | 
I | message. If so, the message counter | 
| |is incremented by one, and a branch | 

(is made to exit >|NORMRTRN 


LCBMSCTR 
(IPW$DLC) 


R2 1 
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SUCBCTR 



N0P0S1 



ADD3NA 



N0YL3SNR 



SCkNSU 



RL3UCB 



The SNA message counter is 
incremented by one, and a check is 
made whether this was the first SNA 
message. If not f branch to........ > 

Otherwise, using register 2 as a base 
address for the SNA control 
block, the SNA manager work ECB is 
posted, and the select indicator 
is set to C S f . 

A branch is made to > 

Check if the remote ID is bigger than 
the number of BSC remotes. If not, 
branch to > 

A check is made whether the SNA 
control block is present. If not, a 
branch is made to exit > 

A check is made whether a message 

number is specified in register 1. 

If not, branch to > 

rhe displacement of the message in 
the message module is calculated in 
register 1. 

Register 8 is initiated for the first 
SNA unit control block. 

The SNA unit control block chain is 
scanned for a matching remote ID. If 

none is found, branch to exit > 

If a matching remote ID is found, the 
function indicator is set to X'30' to 
indicate SNA message. 

Scan LQCBs for this remote ID to find 
a session to process the message. 

If no session logged off, or logoff 
in process , branch > 

If session useable, branch > 

Register 1 is set to zero to indicate 
an error return. 



NOPOST 



RLSUCB1 
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ERRRIRN 
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RLSUCB 
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RLSUCB1 

DELETMSG 



SCANLCB2 



SCANSU2 



( 



SCANSU3 



DELMSG2 



A branch is made to exit > 

The message counter in register 3 is 
set to zero. 

The LCB pointer (CALC) is loaded 
into register 9, and checked for an 
empty LCB chain. If so, branch to 
check the SNA unit control block 
chain > 

The LCB chain is scanned, and 
thehighest message counter is 
obtained in register 9. 



Set register 

SNA. 



to zero to indicate no 



The SNA control block pointer (CASM) 
is loaded into register 2. 
If tne pointer is zero, branch to 
ignore SNA > 

Using register 2 as a base address 
for the SNA control block, the 
address of the first active SNA unit 
control block is loaded into register 



If no SNA unit control block is 
active, branch to 



The SNA unit control block chain is 
scanned, and the highest message 
counter is obtained in register 3. 

The message subchain address (LCBMSG 
for BSC, or SUMC for SNA) is loaded 
into register 2, and the message 
number (LBCMSCTR for BSC, or SUMN for 
SNA) is loaded into register 3. 



NORMRTRN 



SCANSU2 



R3 



R9 



R9 
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DELMSG2 



R8 



DELMSG2 
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IDELMSG3 



| Using registers 6 and 7 as work 
[registers, all messages are deleted 
[from the subchain, and the space is 
| returned to the free list chain. 



"T" 

I 



The entry for the next message is 
calculated in register 6. 



R6,R7 



R6 



\~s 



The new free list pointer is stored | 
and the subchain index is set to | 
X'FF* to indicate end of subchain. | 



MSFC(IPW$DMS> 
MIND 



The previous message text in the 
message table is cleared and the 
| number of messages that have been 
| deleted is converted to decimal. 
| Then message 1R20I nnn MESSAGES 
[DELETED is moved into the message 
[table. 

I 

[The message counter is set to 1, and 
j a branch is made to add messages to 
I the virtual message queue again.... 



I 



R2 



>|ADDNRM 
I 
t 



| DISPROUT I Display ALLUSER Type Messages 

I I I 

| | If the current entry is the first one| 

j | (register 1 zero) , then register 1 is| 

| [initialized with the ALLUSER table | 

| j address. [ 

I I 1 

[DISPRT2 [Register 1 is updated to point to the) 

j J next entry. When all entries have | 

| [been processed, a branch is made to | 

j | exit > | ERRRTRN 

I I I 

| [Otherwise, if the current entry is | 

[ [not in use, a branch is made to get | 

j | the next entry address > | DISPRT2 

I I I 

I | If the current entry is in use, [ 

[ [register 1 is pointed to the message [ 

\ \ descriptor byte,, and a branch is made | 

I [ to exit ..... > | imORMRTRN 

L X X 



Rl 
Rl 
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ICalls 



DELROUT 



DELRT2 



DELRT3 



C 



FFTYPE 



Delete ALLUSER Type Messages 



The address of the message descriptor 
byte is loaded into register 8 . 
If all messages are to be deleted 
(register 8 zero) , branch to > 

Otherwise, the corresponding queue 
entry is calculated in register 8. 
If the message number is invalid, 
branch to exit > 

A check is made whether the request 
is from the central operator 
(register zero) . If so, the user 
ID does not have to be checked, and a 
branch is made to > 

The user ID is validated, and if it 
is invalid, a branch is made to exit> 

The queue entry is released (remote 
ID set to X'FF') and a branch ^Ls made 
to exit . > 

Using register 6 as a pointer to the 
queue entries, all queue entries are 
scanned for a matching remote ID- If 
a matching ID is found, the queue 
entry is released by setting it to 
X" FF' . When all entries have been 
scanned, a branch is made to exit. . > 



Add a Message to the ALLUSER Type 



Message Queue 



Register 6 is updated to point to the 
next queue entry. If the end of the 
queue is reached, a branch is made to 
exit > 

When a free entry is found, the 
originator's ID is stored. Then the 
message length is checked, and if it 
is too long, it is set to the maximum 
of 59 cnaracters. 



DELRT3 



ERRRTRN 



R8 
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DELRT2 



ERRRTRlM 



lnIORMRTRN 
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| Calls 



DELBSC 



GETBSC 



GETSNA 



GETMSG 



The previous message text in the 
message table is cleared, and the 
message text and length are moved in. 
Then a branch is made to exit > 

Delete BSC Message 



The address of the message to be 
deleted is loaded into register 6. 

The subchain index (MIND) is saved in 
register 2, and then updated with the 
free chain index. 

Then the free chain index is updated 
with the message subchain index , and 
the subchain index f which was saved 
in register 2 is stored in 
the message subchain index- 

The BSC message counter is obtained 
in register 3, decremented by one , 
and stored again. 

A branch is made to exit *... > 

Get BSC Message 



A check is made whether there are any 
BSC messages . If not, a branch is 
made to exit > 

The message index (LCBMSG) is 
obtained in register 1, and a 
branch is made to ^ > 



Get SNA Message 



A check is made whether there are any 

SNA messages. If not, a branch is 

made to exit > I ERRRTRN 

The message index (SUMO is obtained 
in register 1, and register 5 is 
incremented by one to get the second 
entry byte. 

The proper message displacement is 

calculated in register 1, and 

a branch is made to exit > (NORMRTRN 

x 
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NORMRTRN 
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DELSNA 



DELTMP 



( 



Delete SNA Message 



A check is made to see whether the 
temporary delete chain is empty. If 
so f a branch is made to exit...,-.. > 

A link is made to locate the end of 
the delete subchain > 

Upon return, register 2 points to the 
last entry. 

The last entry is set to point to the 
next free entry. 

The free chain index is updated with 
the temporary delete chain index. 

The temporary delete chain index is 
set to X'FF' . 

A branch is made to exit > 

Delete SNA Message Temporarily 



A check is made to see whether the 
subchain is -empty. If so, a branch 
is made to exit > 

A link is made to locate the end of 
the delete subchain > 

Upon return, register 2 points to the 
last entry. 

Tne displacement of the message to be 
deleted is calculated in register 6. 

The last entry is updated with tne 
subchain index. 

The subchain index is updated with 
the entry of the message to be 
deleted. 

The entry of the message to be 
deleted is set to X'FF 1 . 

The message counter is obtained in 
register 3, decremented by one, and 
stored again. 

A brancn is made to exit > 



ERRRTRLM 



LOCATE 



MSFC(IPW$DMC) 
SUMD(1PW$DSU) 



NORMRTRN 



ERRRTRN 



LOCATE 



R6 
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SUMN(IPW$DSU) 
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Chart MB15: IPW$$MS - Message Handler 



[Modified Data 
[Fields 



I 

| LOCATE 



ILOCLOOP 



[EtfDE^C 
L 



Add Temporarily Deleted SNA Message 



A check is made to see whether the 
temporary delete chain is empty.. If 
so, a branch is made to exit- > 

A link is made to locate the end of 
the delete chain . . . ... > 

Upon return , register 2 points to the 
last e,ntry, and register 3 contains 
the number of messages in the delete 
subchain. 

The last entry is updated with the 
subchain index. 

The subchain index is updated with 
the temporary delete chain index. 

The temporary delete chain index is 
set to C'FF'. 

The actual number of messages is 
calculated in register 3 and stored 
again. 

A branch is made to exit . . > 

Locate End of Delete Subchain 



The index to the first entry is 
obtained in registers 2 and 6. 

A check is made to see whether the 
temporary delete chain is empty. If 
so, branch to. .....*.. > 

The message counter in register 3 is 
incremented by one, and the index of 
the next entry is obtained in 
register 2. If the end of the chain 
has not yet been reached, 
register 6 is set to point to the 
next entry and a branch is made back 
to . . . > 

Return to caller via register 7. 



ERRRTRN 
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Chart MCOO: IPW$$SN - SNA Manager , General Flow and Macro Calls 

POWER/VS Macros 



IPW$$CP 



Command Processor 



J 



IPW$$NU 



Task Management 
(Attach the task) 



I 



IPW$$SN 
(SNA MANAGER) 



V 



IPW$$NU 



Task Management 
(Detach the task) 



Macro 


Chart 


Task Management 

IPW$ATT 
IPW$DET 
IPW$WFC 
IPW$WFM 


AA 


Resource Management 


AB 


IPW$RSR 
IPW$RLR 




Storage Management 


AC 


IPW$RSW 




Message Service 


AD 


IPW$WTO 
IPW$RMS 





VTAM Macros 



RECEIVE 

CHECK 

SETLOGON 



DOS/VS Macros 



ATTACH 

COMRG 

CLOSER 

DETACH 

FREEVIS 

OPENR 

POST 

WAIT 
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Input 



POWER/VSTASK ^_ 
SELECTION Processing 



Chart MC2 



Output 




MAINLINE (PURPOSE OF 
SUBROUTINES) 



(oO 



E3%|fe 


INIT 




Initialize SNA 




processing and 




attach the DOS/VS 
subtask. 




MC3 



b. If error, then: 




RECV 



Issue the first 
RECEIVE ANY 
request. 

MC4 



If error then: 



El|> 


MAIN 


* 


Process 

reactivation of 
SNA MANAGER, 
check which ECB 
was posted. 

MC5 



(02) If error, then: 




TERM 



Terminate SNA 
processing. 

MC8 



POWER/VSTASK 
SELECTION 
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SNCB 



RMCB 



SNRM 



RMSNSN 



SNCB 



SNEB 



R15 



MAINLINE Processing 




£> 



C> 



£> 



£> 



£> 



=> 



INIT 

Initialize for SNA processing and 
attach the DOS/VS subtask. 



@ Set SUCB pointer (R 7) 

and LUCB pointer (R8) to zero 
(noSUCBandno(LUCB). 

@ Set up the ECB wait list in the 
TCB with: 

— Receive any ECB. 



- Work ECB. 

— List delimiter. 



@> Get the address of the DOS/VS 

BG partition communication region 
via the COMRG macro. Assume 
that the attach of the DOS/VS 
subtask failed. 

If no AP is supported in the DOS/VS 
supervisor then: 

Address subtask. 

Address subtask SAVE-area. 



Address work ECB. 

Attach subtask via DOS/VS ATTACH 
macro. 

If subtask successfully attached 
then: 

@) Calculate message index. 



COMRG 
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Processing 



c> 



$> 
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Call MESSAGE. 



E2^> | MESSAGE 



MC20 



Set error return code. 

@) Point R 1 to the SNA receive ECB. 
Issue the IPW$WFC macro to wait 
until the DOS/VS subtask completes. 

Reset the live bit in the ECB. 
If the DOS/VS subtask was 
successful then: 

Point R1 to the ACB. 



(uQ If the ACB was opened success- 
fully then: 

Set error return code. 

Calculate message index. 

Call MESSAGE. 



MESSAGE 



MC20 



@ Point R6 to the SETLOGON RPL 
Calculate message index. 
Call MESSAGE. 

@ Return to MAINLINE. 
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Extended Description 



Include Segment Call Subroutine/ Chart 
Macro 



(05) 1 V01 1 NO SUBTASK AVAILABLE FOR RJE, SNA. 








(07) 1 V02I VTAM OPEN FAILURE RTNCD = xxx. 








@) 1 V03I ERROR ON REQUEST RTNCD, FDBK = 'xx, yy' SENSE = sss. 
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MAINLINE Processing 
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RECV 

Issue the first RECEIVE request 
in order to accept input from any 
logical unit that is logged on. 

@ Point R1 to the RECEIVE RPL. 
Indicate the ACB address. 

Indicate the ECB address. 

Save the pointer to the POWER/VS 
save area. 

Get VTAM save area address in R13. 
Issue the VTAM RECEIVE macro. 



Reset the pointer to the POWER/VS 
save area. 

@) If the RECEIVE request has been 
accepted then: 

Indicate the stop code in the TCB. 



Point R6 to the RECEIVE RPL. 

Calculate message index. 
Call MESSAGE, 

^^ l MESSAGE 



MC20 




RECEIVE 



Output 






^> 



=0 



£> 



S> 



£> 







TCB 

| TCt3 

R13 



R15 



R13 



TCB 



TCTT='S' 



RPL 



TH 



R6 



R1 



l 1V031 



O 

rt 



H 
-00- 

en 



w 
o 
< 



ft 

CO 



ON 
00 



Chart MC4 
Part 1 of 2 



OS 
00 
tsj 



D 
O 
CO 
\ 

< 

CO 

w 

s 

< 

CO 

o 

H- 
O 



Chart MC4 



Input 



Processing 



Set error return code. 

Calculate message index. 
Call message. 



MESSAGE 



MC20 



Set normal return code. 



MAINLINE 



Output 




£> I 1V04I 1 




R15 



Extended Description 




Include Segment 


Call Subroutine/ 
Macro 


Chart 


(63) 1 V03I ERROR ON RECEIVE RTNCD, FDBK - xx, yy, SENSE - ssss. 








@ 1 V04I RJE, SNA STARTED. 











Chart MC4 
Part 2 of 2 






v 



Input 



MAINLINE Processing 



TCB 



TCE1 



TCE2 



TCED=X'FF' 




R1 



SRPLRA H 



R13 



RMCB 



RMSNRA 



TC13 



R1 



K 



RPL 



RPLUSFLD 



z> 



=> 






^> 



^ 



o 



Wait for any ECB to be posted and 
check whether SNA processing is 
to be continued or not. 



@) Post R 1 to the SNA wait ECB list. 
Issue the IPW$WMF macro to wait 
for any ECB to be posted. 

@ Lock the SNA control block via 
the IPW$RSR macro. 

@ If the work ECB (TCE2) was posted 
then: 

If VTAM RECEIVE ANY ECB was 
posted, point R1 to the receive RPL. 

Save the pointer to the POWER/VS 
save area. 

Get the address of the VTAM save 
area in R13. 

Issue the VTAM check macro to 
check the completion status. 

Reset the live bit in the ECB. 

Restore the pointer to the POWER/VS 
save area. 

Get the address of the userf ield 
(LUCB-ADDRESS). 

If the ACB was closed then: 

CallSRDR routine. 
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Reset the life bit in the ECB. 

Get the address of the first SNA 
control block in R7. 

If no request to terminate SNA 
processing then: 

Reset the SNA stop indicator. 

If not TPEN Dor STOP SNA 
immediately requested then: 

Update termination type. 

Reactivate the DOS/VS subtask 
(post subtask ECB) to quiesce 
logon requests. 

@ If SNA processing has not to be 
terminated (request from subtask) 
then: 
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If LOGON PROCESSOR 1 
(IPW$$LH) is processing then: 

Unlock the SUCB/LUCB chain 

via IPW$RLR macro. 

Return to MAINLINE to process 

termination. 

Unlock the SUCB/LUCB chain 
via IPW$RLR macro. 
Return to MAIN(1) to wait for 
next event (ECB-POSTING). 
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Set IPW$$LH processing on. 

Get address of LOGON SUCB into 
Reg. 7. 

Get address of LOGON LUCB 
into R8. 

Call attach LGH. 
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@) If select indicator for any action 
not on (LUSL not equal 'S') then: 

If session not to be terminated 
(LUSS='b') then: 



KILLSESS 



MC12 



@ Reset the select indicator. 
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OFF) then: 
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(04) If reader not to be started 
(LURROFF)then: 
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A. If no signal received for this 
logical unit then: 

If no outbound processor active 
on this session then: 

Post ECB of OUTBOUND- 
PROCESSOR to allow him to 
process the signal-request, in 
case OB is on its way to a 
S-WAIT. 

(05) If no termination type in LUCB 
(LUTT='b'),or 



If LOGOFF already in process, or 

If any processor present (not all 
TCB addresses in LUCB contain 
zero) or 

If LUCB not in use by a session 
(LUF 1=0) then: 

If quick stop indicated in LUCB 
(LUTT='S')then: 

Normal stop is indicated. 

If messages pending (SUMN not 
equal 0) then: 
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If LST/PUN requested to suspend 
for msg then: 

A. Indicate LOGOFF in process. 
Attach LOGOFF processor. 
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then: 

Call SMSG. 



SMSG 
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@ Get the address of the next logical 
unit control block. 

If not all LUCBs are processed 
(LUNX not equal 0) then: 

(Q8) If device select indicator not on 
(not equal 'S') then: 

Reset device select indicator 
equal 'b.' 

CallSWRIT. 
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l£> @) Get the address of the next SNA 
unit control block. 



If all SUCBs are processed then: 

Set R8 to point to the first LUCB 
for this SUCB. 
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(6j) IPW$$LH loops through the LRCBs. When 1 LRUB is processed, IPW$$LH scans 
for the next one. Only when all LRUBs are processed, SNHA is set off. Now 
SNA-MANAGER can attach IPW$$LH again upon request. 

"Look for Work" routine of SNA MANAGER scans all LUCBs for the select 
indicator f S' in LUSL. This major scan argument indicates that an action for 
this LUCB has to be started. 

Further analysis of the action bytes in the LUCB will cause the appropriate task 
to be attached. 

If LURO is set, SNA MANAGER will attach Logon Processor 2 IPW$$LN to 
process stage 2 of the LOGON process. 

The SUCB contains a summary of outbound card/print data flow which is 
indicated in the BIND data. 

This summary is used to check in the SNA MANAGER if at least one session 
is bound, which allows card or print outbound data flow for an MLU work 
station. 

(05) Attach logoff processor. 

\06) Call " Start Message Processor" routine. 

(oi) Queue management selects a printer in the device list, if print output is available. 
To select a specific printer, it must meet following criteria: 

- printer must be started (SUHS = ON) 

•> printer must be available (SUHU = ON) 

- and classes of output and printer must match. 
Then queue management sets following indicator: 

- device not available (SUHU = OFF) 

- output available (SUHU = ON) 

- select device indicator (SUDLS -'S'). 
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($jj) If the subtask was not attached 
successful then: 

Reactivate the subtask with the 
request to detach. 

Wait for subtask to complete via 
IPW$WFC macro. 

(02) Deactivate receive any RPL. 

@) Release LOGON WACB, SUCB, 
LUCB if existing. 

Release LRCBs if existing. 

Release COCBs and COMPACTION 
TABLE storage if existing. 

@) Present MSG 1 V051 to central 
operator. 

@) Set address of SNA MG R to zero. 
Detach SIVA-MANAGER. 
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If 'INBOUND SUSPENDED FOR 
INBOUND' not set then: 

If LOGOFF already in progress 
then: 

Reset 'REQUEST START 
READER'. 

Reset 'REQUEST INTERRUPT 
INBOUND FOR INBOUND'. 



Set reader 2 workspace address from 
SUCB into LUCB. 

Set LUCB address into SUCB 
workspace LUCB pointer. 



Copy RPL from 1st reader WACB 
to 2nd reader WACB. 

ATTACH 2nd INBOUND processor. 
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Point R1 to the RECEIVE RPL. 

A. If the VTAM CI D is invalid, 
or logoff in process then: 

B. Reset the start reader indicator. 

C. If logon complete and 

D. No reader task present and 

E. (If LST/PUN present and 
suspended) and 

F. No message task present then: 



(j)^) Set request start reader to process 
receive any later. 



@) Move the RPL to the SNA work 
area. Call ATTH to attach the 
reader task. 



ATTH 
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Save the pointer to the POWER/VS 
save area. 

Get VTAM save address in R 13. 



Point R1 to the RPL. 

Issue the VTAM RECEIVE macro 
to accept input from the logical 
unit. 

Restore the pointer to the 
POWER/VS save area. 
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accepted then : 

@) Get RPL address In R6 for message 
modification. 

Calculate message index. 
Call MESSAGE. 
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Set stop SNA indicator. 
Indicate termination type. 
Post the SNA work ECB. 
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Attach a task control block to the 
TCB chain as indicated in the SNA 
unit control block. 



@) I ndicate the length of the TCB in R 1 . C 



Reserve space for the TCB via the 
IPW$RSW macro. 

Set the TCB address in the logical 
unit control block. 

@ Initialize the TCB with: 

A. Control block identifier. 

B. Task identifier. 

C. Task identifier. 
D. Remote ID. 

E. Save area address. 

F. Logical unit control block address. 

G.CIasslist (empty). 

If no workspace address has to be set 
in the TCB then: 

Set workspace address. 



@ Indicate the routine address in R3. 
Attach the TCB via the IPW$ATT 
macro. 

Indicate termination code in the 
TCB. 
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SMSG - START MESSAGE ROUTINE 

If a message processor is already 
active for this workstation (SUMRA = 
Dthen: 

If request 'SUSPEND OUTBOUND 
FOR OUTBOUND MESSAGE' 
was issued (SUMRI = 1) then: 

Initialize pointers to zero. 

Scan thru LUCB-CHAIN for the 
workstation. 

Save address of: 

- A free session. 

- A processing OUTBOUND 

session. 

- A S-wait OUTBOUND session. 

If no free session found then: 

If session cannot be used for message 
processing: 

Indicate message processor is active 
on workstation. 

Attach message processor. 



ATTH (MSG) 
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@) If no running or S-waiting OUTBOUND 
processor task was found, return to 
SCAN to process message request 
later. 
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Indicate 'REQUEST OUTBOUND 
TO SUSPEND FOR MESSAGE 
OUTBOUND'. 



Save address of outbound session. 

Allow OUTBOUND session to 
continue in case it is on the way 
to S-wait. 

@) Get address of suspended 
OUTBOUND session. 

If session can be used for message 
processing then: 

Reset indications and try it again 
later. 
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(£]) The 'SCAN' - Routine checked the 'SUMN' - field in the SUCB for the number of messages 
queued. IF content of SUMN is greater zero, that means messages are queued, SCAN 
calls the SMSG routine. 
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K1LLSESS 

@ Reset the 'KILL SESSION' indi- 
cator. 

Set termination type. 



Present MSG TV 14! or 1 VMM to the 
remote operator according to the 
SNA techination indicator. 

Pick up first TCB address for the 
logical unit. 
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Scan thru all 

TCB-address-f ields of the LUCB. 

If a TCB is present, set the termination 

type into it. 

If all TCBs checked then: 

If normal termination (LUTT not 
equal 'S') then: 

If message processor not present 
(LUMT = 0) then: 

If message processor TCB indicates 

Wait for space' not equal 'S') 

then: 

Set message processor dispatchable. 

If LST/PUN not present (LULT = 0) 
then: 

If LST/PUN processor TCB indicates 
not Wait for processor space' 
(not equal 'S') then: 

POSTECBin $OB TCB. 
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@) If not LST/PUN suspended for 
INBOUND (LUOI = 0) then: 

l£> If INBOUND present (LURT not 

equal '0') then: 

Set LST/PUN processor TCB 
dispatchable. 

:£> (j3) If not LST/PUN suspended for 
message (LUOO = 0) then: 

~^s\ If message present (LUMT not 

equal '0') then: 

Set LST/PUN processor TCB 
dispatchable. 

:£> (fi) If not INBOUND suspended for 
INBOUND (LUIS = 0) then: 

l£> If second INBOUND not present 

(LUTI = 0) then: 

Set INBOUND procedure TCB 
dispatchable. 

@ Set select byte in LUCB. 
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Macro 



(82) 1 V1 01 RJE, SNA is in shutdown period. 
1 V14I SESSION is in shutdown period. 
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FROM CALLING 
ROUTINE Processing 




(01) Initialize ACB with: 

- EXIT LIST. 

- PASSWORD. 



@) Go to IPW$$VE initialisation routine 
to build the EXIT LIST. 



l^> | IPW$$VE INIT 



33) Open the ACB. 



If the ACB was not opened 
successfully then: 



@) Issue setlogon start request to VTAM 
to allow logical units to log on to 
POWER/VS. 

If the setlogon request was 
successfully then: 

(Q5) Indicate immediate stop in TCB. 

@ Post SNA manager. 

Post POWER MASTER ECB. 
Wait for reactivation. 
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@) Determine reason for reactivation 
of subtask. 

If request to detach subtask then: 

If quiesce logon requests already 
issued: 



Indicate quiesce issued. 

Issue set logon quiesce request to 
VTAM to stop logon requests. 

If ACB was not opened successfully 

then: 

Close ACB. 



@> Detach subtask. 



DOS/VSTASK 
SELECTION. 
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/^p\ The DOS/VS subtask is attached in the I NIT routine, and is executed to open the VTAM ACB and to issue 
^ a SETLOGON START request, to allow LOGON requests to POWER/VS. 

As VTAM does some of its processing under the PIB of the program which issued the open ACB request, 

page faults in VTAM have some effect on the performance of this task. 

To minimize this effect on the main task, the DOS/VS subtask will be used. 

The subtask waits, after execution of the SETLOGON START, for reactivation by the maintask to disable 

LOGON requests and to close the ACB, when RJE, SNA processing is terminating. 

© 

© 

©1 

\^J 1 This piece of coding forms an infinite wait loop which is only terminated when 
/^q) J SNA processing is to be terminated. 

©J 




OPENR(DOS/VS) 

SETLOGON(VTAM) 

POST(DOS/VS) 

WAIT(DOS/VS) 

SETLOGON (VTAM) 
POST(DOS/VS) 
CLOSER (DOS/VS) 

DETACH (DOS/VS) 





ChartMC13 
Part 3 of 3 



o 

CO 



^3 
O 

■p: 



D 
O 

CO 
N 
< 
en 

\) 
O 

N 

< 
CO 

o 

H- 
O 



SNCB 



SNSP-- 



Length of SUDS : 



R1 



CASMt 

in IPW$DPA 



R8 



SNCB 



SNSP 
SNRM" 



Called by VTAM 
^B LGON (Part 1 of 4) 



Obtain virtual storage for the SNA unit control block 
and the SNA work area and initialize these control 
blocks. 



(V) Set up addressability for this exit routine. 

:^>(2) Get the address of the SNA unit control block ^z^ 
in register 1 

, Get the address of the SNA control block in register 1- 
^ >a. block in register U. 



Issue the GETVIS macro to obtain virtual 
storage — — — — — — 



\3J Check if storage was obtained 

Yes No — ^— ^— 



12 



♦ 



Save the pointer to the SNA unit control block = 
Initialize the SNA unit control block space 
with zeroes (register 4=address, register 5=length, 
register 1=0). 



Get the address of the SNA control block in register 5: 



:£>f4) Check if the storage obtained lies within the 
space of the SNA unit control block 



Yes 



No 

Set error return code 
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Get the address of the SNA work area in register 1 : 

Indicate the length plus two buffers in 

register = 



Issue the GETVIS macro to obtain virtual 
storage ^-^— — — — ■ — ~«— 



^4 



^ GETVIS 



^4 



GETVIS : 



R1 
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R0 



RF 



R8 
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RF 
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Check if storage was obtained 

Yes No — — — 



.© 



Initialize the SNA unit control block with: 
• Storage descriptor — 



© 



\ from 
previous 
page 



SUCB 



Pointer to work space — 

Logical unit name 

Length of logon message 
Select byte * 



Termination type 

Exit termination typez 
Account record type — 
Subchain index 



Temporary delete chain index - 
List classes : 

Punch classes — 



List forms identifier 3ZZ 
Punch forms identifier- 
Logon request indicator 
Between bracket state = 









Initialize the SNA work area space with zeroes 
(register 4=address, register 5=length, 
register 1=0). 



^^ Get the address of the SNA control block in register 5 : 
Indicate the SNA work area storage descriptor ^z= 











'SUCB V7M0' - 


- SUSD 




-SURW 




-SULU 




-SUML 


'S' 


-SUSL 


V ' i 


-SUTT 


'b' 


-SUTX 


'S' 


-SUAI 


X'FF' -1 


— ■ SUMC 


X'FF' J 


-SUMD 


X'FF' 


"~ SULC 


X'FF' 


~SUPC 


'bbbb' 


-SULI 


'bbbb' 


— SUPI 
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— SURO 


B'100' 


-SUBR 
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SURWt 



'WACB V7M0' . _ WASD 
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Address of PAEB 
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Length of SUDS 
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£> (s) Get the address of the first SNA unit control block 
in register 1 » 



9)CSLOOP 

Set pointer to the next SNA unit control block — 
Put the SNA unit control block in the chain. 
Check if chaining was successful. 

Yes No m Co) 



(10) Post the SNA work ECB 

=|^> Get the main task ECB address in register 1z 

I ssue the POST macro to post PO WE R/VS « 



-►12) 



"^^ V v ^ et tne address °* tne SNA unit control block in register 1 
^ > Indicate the length in register z=zz^=zz=zz 



Issue the FREEVIS macro to release the space 
obtained for the SNA unit control block — 



► FREEVIS 



Reset the pointer to the SNA unit control block 



C> (1-2) Check if a GETVIS request failed. 

Yes No — — — — 



-►14 



Calculate message index — — 

Indicate the length of the message in register 8 



Issue the message to the central operator via the 
EXCP macro and wait for completion via the — 
WAIT macro — — i— ^— ^— — — 




►POST 



^ 



►EXCP 
► WAIT 
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PARMLST 



PARMLUN 



Address of SRPLEX : 
Address of SN I BEX : 
Address of SN AC 

R3 




C^^(l3) Indicate the logical unit name in the NIB 



X 



X 



C> Point register 1 to the exit RPL 

:£> Set the pointer to the NIB 

zO Set the pointer to the ACB 




=> 



-- NIBSYM 



RPL 



Issue the VTAM CLSDST macro — — 
:£> n4) Restore the exit return address in register 14 



CLSDST 



J>'R1t 



-RPLARG 
■-RPLACB 



RE 



U 
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f 1 J On entry to this routine, register 1 contains the address of a 4-word parameter list 

(PARMLST: ACB address, Address of logical unit name, Reserved, Length of logon message), 

register 14 contains the VTAM return address and register 15 contains the address of the logon exit routine. 

Register 2 is used to save the parameter list address (from register 1) 

Register 3 is used to save the VTAM return address (from register 14) 

Register 5 is used as an SNA control block pointer 

Register 8 is used as an SNA unit control block pointer (initialized to 0) 

Register 9 is used as base address of the SNA manager 

Register 10 is used as base for the POWER/VS nucleus 

Register 13 is used for the VTAM save area address 

©( 
©) 
® 

© 

@ 1V06I UNABLE TO LOGON luname 




GETVIS(DOS/VS) 

POST(DOS/VS) 

FREEVlStDOS/VS) 

EXCP(DOS/VS) 
WAIT(DOS/VS) 
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Called by VTAM 
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DFAS (Part 1 of 2) 



PARMLST 



PARMCID-- 



SUCB 



SUCD-- 



RPL 



PARMRPLt 
RPLSIGNL - 
RPLRSHUT-- 



Address of PAEB 



Check if a signal or shutdown request was issued 
and set appropriate indicators in the SNA unit 
control block. 



MM Set up addressability for this exit routine 



Check if the CID of the terminal corresponds 
with the one of the SNA unit control block. 

No 



Yes 

t 

Check if the list or punch is to be 
interrupted for inbound data 
(signal request issued). 

No Yes 



Set signal indicator : 



Check if a shutdown request was 
issued. 



No 



Yes 



Set stop code ~ 

Set kill session indicator 
Set select byte ^zz=z 



Post the SNA work ECB 

Get the maintask ECB address 
in register 1 ^^^= 



Issue the POST macro to 
post POWER/ VS — — 
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Mj On entry to this routine register 1 contains the address of a 5-word parameter list 

(PARMLST: ACB address, CID of terminal, SNA unit control block address, Number of 
bytes received, Address of read-only RPL), register 14 contain the VTAM return address 
and register 15 contains the address of the DFASY exit routine.) 

Register 5 is used as an SNA control block pointer 
Register 8 is used for the address of the SNA unit control block 
Register 9 is used as base address of the SNA manager 
-^ Register 10 is used as base for the POWER/VS nucleus 
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Called by VTAM 



I 



TPND 



PARMLST 



PARMEND- 



Address of PAEB : 



Indicate termination type in the SNA control 
block. 



Qt} Set up addressability for this exit routine. 
= C^ \2J Cheek rf a n ® rm al nalt is requested. 



Yes No 

I ♦ 

I Indicate quick halt 

Indicate normal halt z^^— 
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\3J Indicate SNA processing is to be terminated 



Post the SNA work ECB 



-£> Get the maintask ECB address in register T : 
Issue the POST macro to post POWER/VS 



► POST 
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Return to VTAM 



Extended Description 


Include Segment 


Call Subroutine/ 
Macro 


Chart 


(v) On entry to this routine register 1 contains the address of a 2-word parameter list 

(PARMLST: ACB address, Reason for shutdown (0 = normal haft, 4 = quick halt), 
register 14 contains the VTAM return address and register 15 contains the address 
of the TPEND exit routine). 
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Register 5 is used as an SNA control block pointer 
Register 9 is used as base address of the SNA manager 
Register 10 is used as base for the POWER/VS nucleus 
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Called by VTAM 
^ LOST 



SUCB 



SUCD-- 



PARMLST 



PARMCID-- 
PARMLTR.- 



Address of PAEB 



Indicate termination type in the SNA unit control 
block. 



Mj Set up addressability for this routine. 

£>v2J Check if the CID of the terminal corresponds 
with the one of the SNA unit control block. 



No 



Yes 

Check if a conditional logoff is 
requested. 

No Yes 

♦ 

Set stop code zzz^zz: 



-© 



© 



=r> 



Set stop code ^zmzzzzzz=zzziz= 
Set kill session indicator : 
Set select byte ^^^^^^^^^^^^ 
Post the SNA work ECB = 

Get the maintask ECB address in register 1 : 
Issue the POST macro to post 
POWER/VS — — — — 
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Return to VTAM 



Extended Description 
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Macro 



Chart 



Vjy On entry to this routine register 1 contains the address of a 4-word parameter list 

(PARMLST: ACB address, CID of terminal; SNA unit control block address. Reason for 
logoff (32 = conditional logoff), register 14 contains the VTAM return address and 
register 1 5 contains the address of the LOSTERM exit routine. 

Register 5 is used as an SNA control block pointer 
Register 8 is used for the address of the SNA unit control block 
Register 9 is used as base address of the SNA manager 
^~v Register 10 is used as base for the POWER/VS nucleus 
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r _SUCB 
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SNTT 
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TCTT 
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SNTT 
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SUPL J 



LUF1 
LUTT 



SNCB 



SNTT 



LUCB 



LUNX 



MAIN 



Processing 




^> 



£> 



£> 






c> 



KILLSNA 

@ Reset "REQUEST KILLSNA" 
indicator. 

If it is not normal EOJ-termination 
(SNTT not equal E) or 



KILLSNA was entered before 
(TCTT not equal E>). 

Present MSG 1V10I to central 
operator. 



MESSAGE 



MC20 



Set termination type into SNA- 
MANAGER TCB. C 

@) Scan thru all LUCBs. 

If LUCB not in use (no session logged on) or 
Already 'S' termination indicated then: 

Set termination type in LUCB. 

Call Kl LLSESS to terminate each session 



KILLSESS 
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^> If not the last LUCB processed then: 
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Processing 



£> (03) If LOGON LUCB does not exist then: 
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Output 



Set termination indicator into LOGON LUCB 






LUCB 






LUTT 













MAIN 
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Macro 



01 1 V10I RJE,SNA is in shutdown period. 
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Input 



FROM CALLING 

ROUTINE Process^ 



Output 




issue a message to the central 
operator. 

Get message address in R1. 

Indicate the message request word 
in the TCB. 

Issue the message to the central 
operator via the IPW$WTO macro. 
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TCBMW 
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RETURN TO 

CALLING 
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Extended Description 



Include Segment 



Call Subroutine/ Chart 
Macro 



fey Upon entry RT is assumed to contain the message index, which is used to obtain 

the message address in the mes definition module (IPW$$MD). \f the message is 
to be modified, register 4 contains the binary value, and register 6 the RPL address. 

The tPW$WTO macro uses registers 0,1,2 and 3. 




IPW$WTO 
POWER/VS 








t- s 



Chart MC22 



Input 



R8 



R1 



SCAN 



luso=tb] 
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|LUACO= / rB| 
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device entry 



Processing 




^> 



c> 
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SWRIT - START WRITER TASK 

If end of the device list found then: 

If entry in device list is not for 
printer or punch then: 

If device is not started (SUHS = 0) 
or no output available (SUHO = 0) 
or device available then: 

Is any session already processing 
the device (pointer to LUCB not 
equal 0) then: 

If list or punch outbound is not 
allowed for the workstation then: 



Get pointer to first LUCB. 



Scan thru LUCBs for the work - 
station until free session found, or 
end of chain reached. 
If end of chain reached then: 



@) Chain LUCB to device entry. 



Chain device entry to LUCB. 
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Input 



Processing 



Output 



device entry 



SUXXP 



t> 
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If punch output then: 



E^^ 


ATTH (LST) 


<^M 


MC10 




ATTH (PUN) 



MC10 



(QJj) Go to next device entry. 
(§3) Set select indicator. 



@) Output is available or LST or 
PUNCH was started for a work- 
station (REMOTE-ID), where 
according to the received BIND- 
PARAMETER no document or 
card data outbound is allowed for 
all sessions. 

Present MSG 1V33I to REMOTE 
operator. 



£> 



SCAN 






SUCB 






SUDLS='S' 













Extended Description 
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Macro 



(6T) All devices are checked one after each other, in case action is indicated 
^~^ in several devices before SNA MANAGER gets control. 

(06) No free session is found to print or punch. The output available remains on, 
so when the SNA-MANAGER gets control again, it will scan for a free 
session again. Next scan will take place when e.g. a processor detaches 
and posts SNA-MANAGER. 

(p?) 1 V33I REMOTE =xxx output for nonwriter work station. 
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SNA Manager 
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(SNA LOGOFF PROCESSOR) 
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Task Management 



Macro 
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Account Management 




IPW$PAR 


FA 


Task Management 


AA 


IPW$DET 
IPW$WFC 
IPW$WFD 




Resource Management 


AB 


IPWSRSR 
IPW$RLR 
IPW$RLW 




Message Service 


AD 


IPW$WTO 
IPW$RMS 




Timer Service 


AG 


IPWSRDC 





VTAM Macros 



SEND 
CHECK 
CLSDST 
SESSIONC 



DOS/VS Macros 



FREEVIS 
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SNA LOGOFF PROCESSOR (IPW$$LF) ORGANIZATION 



1PW$$LF 



The SNA LOGOFF processor consists of only 1 segment, 
which contains the following functions: 

• Initialize work area, RPL, and message buffer 

• Clear the line in case of an abnormal termination 

• Send a LOGOFF message to the logical unit 

• Disconnect the session between POWER/VS and the logical unit 

• Write an account record 

• Send a LOGOFF message to the central operator 

• Release the space of the SNA unit control block and work area 

• Subroutine to check the RPL 
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LUCB 



LULAS 
LUSU*. 
LUAL 



TCBLU-*-LUSU 



RD 



Address of WASV : 
Address of WARP • 



TCB13 



RF 



RD 



Address of WASV 
Address of WARP 



TCB13 



f 4 J Move the message to the buffer 



Set control character to indicate new line 
Indicate the message length in the RPL 



~> Check if ASCII is supported 
No Yes 



0: 



Translate the message to ASCI I 
Turn on ASCII bit in the RPL 

Clear the line in case of abnormal termination 



Adress first LUCB ~ 

"Check for abnormal termination 
Yes No 



Reset the live bit in the ECB : 



=D>Save the pointer to the POWER/VS save area 
=C>Get VTAM save area address in register 13 



z[^>Get RPL address in register 1 



Issue the VTAM SESSIONC macro to stop the 
flow of messages and responses — — 



=0 Reset the pointer to the POWER/VS save area 



:£>. Check if the SESSIONC request has been accepted 
Yes No _► Q 



Call CHECK. 



Reset the live bit in the ECB 



zOSave the pointer to the POWER/VS save area 
zC>Get VTAM save area address in register 13 
=[>Get RPL address in register 1 — - 



Issue the VTAM SESSIONC macro to permit 
the 'LOGOFF FORCED' message — — 
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= C> Check if the SESSIONC request has been accepted 
No Yes 

I * ____ 

I Call CHECK — — 

{Gj Send LOGOFF message to the logical unit 

Lock the SUCB-chain ■ 



Reset the live bit in the ECB 

Save the pointer to the POWER/VS save area 



z(^> Get VTAM save area address in register 13 
z[> Get RPL address in register 1 — 



Issue the VTAM SEND macro to send the message 
to the logical unit _^______^__^_ 



=!> Reset the pointer to the POWER/VS save area 



=[> Check if the SEND request has been accepted 
No Yes 

I Call CHECK 



Unlock the SUCB-chain . 



m Disconnect the session between POWER/VS and 
the logical unit 



Reset the live bit in the ECB : 



=!>■ Save the pointer to the POWER/VS save area 
zj^> Get VTAM save area address in register 13 
zj^> Get RPL address in register 1 ^^ 



Issue the VTAM CLSDST macro to disconnect 
the session — — —— ^— — 



Reset the pointer to the POWER/VS save area 

. Check if the CLSDST request has been accepted 
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Terminate an SNA session between POWER/VS and a 
logical unit. 



©< 



Get the address of the SNA work area (after the 
storage descriptor) in register 2 : 



:^> Indicate the length of the SNA workarea less the I 
length of the storage descriptor in register 3 : 
Set register 1 to zero 



Clear the SNA workarea <3= 
(2) Initialize the RPL 
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:£> Move the RPL into the SNA workarea 



Set up pointers to: 
=0 • ACB = 

=[> • ECB = 

=[> • Buffer == 



:^> Indicate the communication ID (CID) 



(3) Obtain the LOGOFF message for the logical uni t 



Check if logoff is normal 
Yes No 
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Calculate message index 



Indicate abnormal termination in account I 
record = 
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Calculate message index — 
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\8J Write an account record 

Obtain the logoff time via IPWSRDC macro — — 

C> Indicate the logoff time in the Logical Unit Control 
Block --—-——- —-——-— -^— — — -— — -^— — 



HPW$RDC 



C> I ndicate the length of the account record in 
register ~ 



£> Get the address of the acount record in register 1 
Write the account record via the IPW$PAR macro 
(9) Send LOGOFF message to the central operator I 



IPW$PAR 



Calcute message index: 

Issue the message to the central operator via the 
IPW$WTO macro ——————— — 



MO) Dechain the current SNA unit control block 
Lock the SNA unit control block 
chain via the IPW$RSR macro- 



■|PW$WTO 
- IPW$RSR 



:£> Address current LUCB : 
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Address next SUCB 
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Reduce NO of active LUCB'S z== 
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Calculate workarea size in RO and point 
R1 to workarea; issue FREEVIS 



FREEVIS 



Check if the current SUCB is the first in chain <]z 
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Locate the previous SUCB — 

Dechain the current SUCB by resetting 
SUNX (=address of next SNA unit control block) 
in the previous SUCB ~ 
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(l2) Delete any remaining messages 

C> Check if there are any messages left 
No Yes 



Indicate no messages left — 

Delete the messages via the IPWSRMS 
macro — ^ — i — ^^^—^^-^ 



:> 



Set up to delete subchain ~ 

Indicate no messages subchain ===== 
Delete the messages via the IPWSRMS 
macro 
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OGet address of Lockword in R1 



(13) Release Space of Lockword __^_^« 

Release SUCB - WACB 
Indicate length of SUCB - WACB + two buffers in RO 



IPWfcRLW 



C><3et the address of SUCB - WACB in Reg.1 



issue the FREEVIS macro to release the 
SNA workarea ^— ■ - — - ■ — ~— 



OQ4) Get address of logical unit Work - area in 



R1 

Length in RO=Length of SUCB - WACB 

Issue the FREEVIS macro to release 
the LUCB - Workarea _— — — 



-FREEVIS 



• FftEEVIS 



:£>► Indicate length of SUCB + LUCB'S in RO 
:£>- Get address of SUCB in R1 -———— 



issue the FREEVIS macro to release the Space 
of the LUCB'S (number of attached LU'S from 
SUN1) and the SUCB — — _ 
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(l5) Detach the LOGOFF processor 



Post the SNA work ECB - 



Set LOGOFF in Process off 
Set TCB - address to Zero _ 



Unlock the SNA unit control block 
chain via the IPW$RLR macro — 



Detach the LOGOFF processor via the IPWSDET 
macro ^^— — — — — — ■— — — - — 



^ IPW$RLR 



M6) CHECK subroutine 

=[> Get ECB address in register 1 ; 



■► IPWSDET 



Issue the IPW$WFC macro to wait until 
VTAM completes the request — — — 



^ IPW$WFC 
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Save the pointer to the POWER/VS save area 



Get VTAM save area address in register 13 



= T> Get RPL address in register 1 : 
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the completion status ^— — ^«— 
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INIT (Part 1 of 2) 



Obtain SNA work area which is to contain an RPL 
and initialize the RPL. 



\J\J Indicate the length of the SNA work area 
in register 



Get the address of the SNA remote control block | 
in register 1 



Issue the GETVIS macro to obtain virtual 
storage for the SNA work area — — 



-GETVIS- 



:£> (?) Check if the GETVIS request was successful <C= 
Yes No 

* 

Lock the SNA work area 

in the SNA remote control block via 

the IPW$RSR macro 



-► IPW$RSR 



:[>■ Indicate SNA work area address in 
TCB = 
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z£>. Indicate SNA work area address in TCB : 



C^ {3J Point register 7 to the PL/S dynamic area 



Clear the SNA work area with zeroes 
(R2=address of work area (TCBWA), 
R3=length of work area (RO), 
R1=0). 
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RPL 



\4J Set the storage descriptor in the SNA work 



WACB 



Address of SNAC 
Address of WABF 
Address of TCBEB 

LUCB 



i£> Move the RPL into the" SNA work area : 



LUBS-- 
LUCD-- 



Initialize the RPL with: 
:£> • ACB Pointer Z== 
^O • Data area pointer — 
= ^ :> • ECB pointer 



• Set RU length to zero ... 

^O • Indicate maximum buffer size 



I ndicate communication ID ; 



• Do not affect mode of response flow = 

• Do not affect mode of DFSYN flow = 

• Do not affect mode of expedited flow- 
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Point the 'current' pointer to the beginning of the 
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Set message number to zero — 
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Initialize return code register 15 to 0: 
Qf)Check if the request unit is full 
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Set the message pointer to the next 
message via the IPW$RMS macro ^ 
Save the new message pointer zzzzz 
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• Last message 
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Point the 'current' RU pointer to the next request: 

unit 

Reset the live bit in the ECB: 






TCB 



O 



IE 



Address of WASV: 
Address of WARP : 



= ^> Save the pointer to the POWER/ VS save area : 
z O Get VTAM save area address in register 13 = 
C> Get RPL address in register 1 izzzzzzzizzzz: 
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= ^ > (4) Check if list or punch output is suspended 
for message output 



Yes 



No 
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Indicate begin bracket (BB) 
Indicate end bracket (EB) z 
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Indicate not begin bracket (NBB): 
Indicate not end bracket (NEB) 
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(5) Check if ASCII is required 
No Yes 

1 * 

_^ " Translate the request unit to ASCII 

(V) Lock the SUCB-chain 



** IPWSR$R 



Issue the VTAM SEND macro to send the | 

request unit to the logical unit » SEND : 



RF 



=> 



^> Reset the pointer to the POWER/VS save area ; 



RD 
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Check if the SEND request has been accepted ^c^z 
No Yes 




Get ECB address in register 1 z 

Issue the IPW$WFC macro to wait until 
VTAM completes the request—— 



IPW$WFC 



Save the pointer to the POWER/VS 
save area zzzzzzzzzzzzzzzzzzzzz: 



Get VTAM save area address in register 13 : 
Get RPL address in register 1 ZZZ 



Issue the VTAM CHECK macro to check 
the completion status- 



Reset the pointer to the POWER/VS save | 
area 



CHECK : 



Force CS for DFSYN flow on next SEND 

= C^ > Check if the request unit has successfully arrived 
at the logical unit 
YES 



NO Q£ 



heck the error condition MF5 



\Bj Remove the temporary delete chain via 
the IPW$RMS macro 



IPW$RMS 



Release SUCB chain 



■► IPW$RLR 
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(9J Check if an immediate stop is requested 



No 

t 

Check if the request unit is full 
Yes No 



^Jndicate the request unit is 
(a)/ not full 



WACB 



=[> 



Insert the message in the 
request unit 



Insert NL control character 
in front of the message 
Point 'current' RU pointer 
after NL control character 
Add the message from the 
live chain into the delete 
subchain via the IPW$RMS 
macro ^^— — 



*> IPW$RMS 



Update RU length in RPL: 
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Indicate the request unit is full 



• immediate stop 
Yes No — 
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m WABP always points to the beginning of the request unit (RU) 










WABI always points to the last message retrieved 










WAMR indicates whether the request unit is full or not (O=not full) 










WACR indicates the current position in the request unit 
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(2) The IPW$RMS macro uses register 0, 1 , 2, and 3 
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Check for a BB reject Condition or check the logical 
unit status. If the error situation can not be recovered, 
send an error message to the central operator. 



(T) Issue the IPW$RMS macro to add all messages 
in the pending RU to the live subchain. — — - 



>(2) Check if the error condition is a BB reject, 
or an intervention required 



No , 



Yes 

(3) Check for BB reject 
No Yes 

t 



Indicate BB reject in the Logical unit 
control block = 



Reset return code register 1 5 so that 
the message processor will be detached 
normally . 



(7) Indicate RU not full 
:^> Set buffer pointer — 



Reset the live bit in the ECB 



=£>- Save the pointer to the POWER/VS save area 



=[> Get VTAM save area address in register 13 
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Get RPL address in register 1 



Issue the VTAM RECEIVE macro to obtain 
the status of the logical unit — — — 
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O Reset the pointer to the POWER/VS save area 



Address of TCBEB 
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TCBTT 



TTBCS 



Address of WABF + SUBS: 
MPRPL 
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LUCB 



LUCD 



RD 



Address of WASV 
Address of WARP 
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Check if the RECEIVE request has been accepted <^ 

Yes No j » MAIN® 



Get ECB address in register 1 ~ 

Issue the IPW$WFS macro to wait until VTAM 
completes the request, or a central stop is requested 



=C^5)Check if the operator requested an immediate stop 
No Yes 




- Point register 1 to the RESETSR RPL 
-Move the RPL image zi^=Z=IIIZ 
► Insert ACB pointer — 
Set communication ID 



Set external ECB pointer — 

Set ECB pointer to get a synchronous 
request ~ 



Save the pointer to the POWER/VS 
save area ^^^zzzzzzzuzzizz^ 



Get VTAM save area address in register 13 
Issue the VTAM RESETSR macro to force | 
Completion of the RECEIVE request ^— — 



Check if the RESETSR request was comple- 
ted normally *<^ 
Yes No m (& 




Get RPL address in register 1 



Issue the VTAM CHECK macro to free 
the RECEIVE RPL — — — — 



Set register 1 5 to avoid error message : 
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Z>~ (J) Reset the pointer to the POWER/VS save area 



Check if the RESETSR failed 
No Yes 
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Reset live bit in the ECB 

Issue the VTAM SEND macro to send a positive 
response — — - — — — ^__ _ _ 



• - TCBEB 



► SEND 



Reset the pointer to the POWER/VS save area 



:£> Check if the SEND request was accepted 
No Yes 



Get ECB address in register 1 zzz 
Issue IPW$WFC macro to wait for 
completion — ^— i^— — 



♦■ IPW$WFS 



Save the pointer to the POWER/VS 
save area ■ 



Get VTAM save area address in register 13- 



Get RPL address in register 1 



Issue the VTAM CHECK macro to check 
the completion status , 



► CHECK 



Reset the pointer to the POWER/VS 
save area — —— — — — — — — — — — — - 



Ignore a possible 'E' signal 



U 
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IPW$RMS (POWER/VS) 




© 




RECEIVE (VTAM) 
IPW$WFS (POWER/VS) 




© 

(S) 1V07I ERROR ON request RTNCD,FDBK2=xx,yy SENSE=xxxx ON luname 




RESETSR (VTAM) 
CHECK (VTAM) 
IPW$WTO (POWER/VS) 
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SEND (VTAM) 
IPW$WFC (POWER/VS) 
CHECK (VTAM) 
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Reset the logical unit to the any mode if the session will 
continue normally. 

Release the SNA workarea and check if there are any 
unrecovered errors. 



=> 



vJyCheck if the session will continue normally 
No Yes 

t 



TCB 



Reset the live bit in the ECB 



TCBEB 



Save the pointer to the POWER/ VS save 
area — 



Get VTAM save area address in register 13 



Get RPL address in register 1 



Issue the VTAM RESETSR macro 



Reset the pointer to the POWER/VS save 
area 

Check if the RESETSR request was 
accepted 

No Yes 



Get ECB address in register 1 
Issue the IPW$WFC macro to 
wait for completion ^— ^— 



Save the pointer to the 
POWER/VS save area 



Get VTAM save area address in 
register 13 " 



Get RPL address in register 1 
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TERM (Part 2 of 4) 




Issue the VTAM CHECK macro 
to check the completion status 

Reset the pointer to the 
POWE R/VS save area 



uj) Does temp, msg delete chain still exist 
No Yes Purge temp, delete chain 



I 



£> (2) Get the address of the SNA workarea in register 1 



Check if the workarea in the SNA remote control <^ 
block was used 




No 



Yes 

t 

Unlock the SNA workarea via the 
IPW$RLR macro — ^— ^_ 



-© 



:£> Save the error return code 



IPW$RLR 



Release the SNA workarea via the FREEVIS 
macro (R0= length of area) 



:^> Reset the saved error return code 



(3^ Lock the SNA unit control block chain via the 
IPW$RSR macro — — ^^^— ^~ 




-► IPW$RSR 




^>*\4J Check if there are any unreceoved errors 
No Yes 
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LUCB 



LUOO 



RF 



WACB 



WAMN ■ • 



Address of WARP 



LUCB 



LUOO-- 



Indicate kill session 

Indicate termination type 



LUCB 



Check if the list or punch task was 
interrupted by the message processor 

No Yes 

I ♦ 

I Indicate stop list or punch task ; 

- Check if a message has already been sent 
and if there is no need to send a message 

Yes No 



LUSS 
LUTT 



lult| 



TCB 



Get R PL address in register 6 
Calculate message index — 



.TCBTT 



R6 



R1 



CH 



1V07I 



Issue the message via the 
IPW$WTOmacro _ 



**IPW$WTO 



(5J Reset the TCB address of the message processor in 
the SNA unit control block 



LUCB 




^> Check if the list or punch task was interrupted by 
the message processor 

Yes 

t 

Reset interrupt indicator 




Point to the list/punch work ECB 
Post list/punch work ECB ZZ= 



Set list/punch task dispatchable 
Reset interrupt $OB for $MP 
request indicators 
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Indicate $MP not active 
Reset a possible 'E' signal 
Set select indicator 




\6J Unlock the SNA unit control block chain via the 
IPW$RLR macro 



(7 J Detach the message processor via the IPW$DET 
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RESETSR(VTAM) 
IPW$WFC(POWER/VS) 




nj) If an error during send occured, the msgs should not be removed from the msg queue. 

The temp, delete msg chain still exists during termination and must be purged to prevent 
deleting msgs from the msg queue. 




CHECK(VTAM) 









IPW$RLR(POWER/VS) 
FREEVIS(DOS/VS) 
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IPW$RSR(POWER/VS) 




(4) 1 V07I ERROR ON 'request' RTNCD,FDBK2=xx,yy SENSE=xxxx 'luname' 




IPW$WTO(POWER/VS) 
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IPW$RLR(POWER/VS) 
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IPW$DET(POWER/VS) 
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SNA Manager 
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(SNA INBOUND PROCESSOR) 
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Task Manaqement 



Macro 
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Task Management 
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IPW$WFC 
IPW$WFI 




Resource Management 


AB 


IPW$RSR 
IPW$RLR 




Message Service 

IPW$WTO 
IPW$RMS 


AD 


Interfaces 




IPW$OLI 
IPW$CLI 
IPW$PLR 


AC 
AC 
HB 


Miscellaneous 
IPW$ICP 


GD 



VTAM Macros 



SEND 
RECEIVE 
CHECK 
RESETSR 
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NOTE: 



NOT A SUBROUTINE. INCLUDED AS 

SEGMENT IN THE NEXT HIGHER LEVEL SUBROUTINE/SEGMENT 
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Chart MG001: IPW$$IB - SNA Inbound Processor 



DS State Protocol for Interrupt INBOUND reader for INBOUND console 


Handled 
by 






Rec 
DS 


der 
CS 


Con 
DS 


sole 
i CS 


INBC 
reg 


►UND 
ider 




1 
1 

S 


1 

EP 
B 

B 


B 
B 












OC 


DR, FMH1 (SDS, RDR) 




+R 

, p. 


i 

INBO 
con 


i 


FC, EX, data 




SR 




B 
B 

B 


1 

1 

EP 
B 

B 




MC, EX, data 


UND 
sole 


LC, DR, data 




+R 


<££. 


— — —- ""■"" ■ •—■»«-► 

DR, FMH1 (RDS, RD) 
.—±8. ^ 


A 




FC, EX, data 




1 
1 


1 
1 


B 
B 


B 
B 


INBOUND 
reader 




MC, EX, data 


1 






Abbreviations: SNA defined: 

CS chain state LC 

DR definite response mode MC 

DS data stream state OC 

EX exception response +R 

FG first of chain RDR 

FMH1 .. function management RDS 

header type 1 g D g 


last of chain B 

middle of chain 1 

only chain S 

positive response EP 

reader SR 

resume data stream 
suspend data stream 


between state 
. in state 

suspend state 

. end (between) state pending 

. suspend state with resume 
requested 
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Address of WADA 



Attached by IPW$$SN 



i 



MAINLINE (Part 1 of 2) 



Include the main processing routines and subroutines to 
perform the inbound process. 



C> (O Point register 7 to the dynamic area 
INIT 



© 



Initialize the inbound process 



\ZJ Call the receive/deblock routine . 
TERM 



© 



© 



Terminate the inbound process 



Include the inbound processor 
subroutines 



RCDB 





WACB 




R7t 
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Extended Description 


Include Segment 


Call Subroutine/Macro 


Chart 


(?) First page of IPW$$IB (Main procedure): 


INIT 




MG3 


(3) Receive request units (RUS), deblock them to logical records and pass them to the logical reader (IPW$$LR) 
^^^ or command handler (CMND). RCDB subroutine is included in the WORKINGSET (see ref. 5). 




RCDB 






1PW$$LR 


HB 


© 




CMND 


MG11 


TERM 




MG4 


(5) Analyze errors 




ANER 


MG10 


- Second page of IPW$$IB: 








• Data flow control command handler 




DFC 


MG6 


• Function management header validation 




FMHDR 


MG7 


• End of chain handler 




EOC 


MG8 


• Interrupt IB wait routine 




SUSPEND 


MG18 


• Clear device characteristics field in SUCB 




CLEAR 


MG20 


• Send responses or requests 




SEND 


MG9 


- Third page of IPW$$IB: (RJE command handling): 




CMND 




• RJE command handling 




PARM 




• Analyze first command operand 




VALPNR 




• Validate page numbers for SETUP and RESTART command 








- Fourth page of IPW$$IB (Working Set) 






MG12 


• Receive and deblock RUS 




RCDB 


MG15 


• Validate bracket, data stream, and chain states 




STAT 


MG19 


• Initialize OB device characteristic fields in SUCB 




INDEV 


MG16 


• Issue the VTAM check macro 




CHECK 
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LUOI 



LUPH * 



Address of RTRN 



Address of WABF == 
Address of WABF + SUBS 



Address of WARP 
LUCB 



LUSS - - 



Address of TCBEB 
WACB 



R1t 
RPLRTNCD + 
RPLLEN " 



LUCB 



LUIS " 
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Initialize the SNA workarea and RPL and check the 
receive any RPL. 



M j Initialize the reader class list in the TCB ~ 
If a rdr or writer is interrupted save ptr to 
SUCB device entry : 



TCB 



=[> 



'A' 



I Ci/ mitial ' ze tne SNA workarea with: 
=C>- • Entry address for terminator 

• Residual count zzzzzzzzzzzz 



WACB 



z£> • Address of receive buffer - 



• Address of buffer in process 

• Processing switches ^ ===== 

• Status byte zzzzzzzzzzzzz 

• Sense byte zzzzzzzzzzzzz: 



• Error message number : 

• Data stream state flags ■ 

• Chain state flags zzzzz 

• FMH 



£> (¥) Point register 1 to the RPL 
I Initialize the RPL with: 



=> 



O 
O 

=> 



i 



R1t 



zj^> • Buffer size _ 
zC> • ECB address! 



,QA) IfaO-'RUora 

RDR interrupted 



-© 



^> (4-) Check if an error occurred on CHECK or 
RECEIVE any 



No 



Yes 

Call ANER 



ANER» 



MG10 
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=> 



X'80' 



X'80' 
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-■ WARP 



RPLBUFL 
RPLECB 



Chart MG3 



O 

ft 
CD 



-H 
-oo- 

H 
rjd 



H 



CO 



© 



D 
O 
CO 
S 

< 

to 



O 

o 



WACB 



R1-- 
RPLDATA 



INIT (Part 2 of 2) 



Chart MG3 




=0 Else 

If it is a DFG command 



Call -*- 



© Else 
Call 

(9) Exit 



© 



DFC 



t: 



STAT 
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MAINLINE (3) Chart MG2 



Extended Description 


Include Segment 


Call Subroutine/Macro 


Chart 


m) Note: Any data associated with REC ANY must be taken out of VTAM with REC SPEC. RUS were 








not kept; they must be analyzed immediately. 








REC ANY was not issued, when IB interrupted IB reader. (LUISON) 












ANER 


MG10 


© 








(Sj Data flow control command handier 




DFC 


MG6 


Qy It must be a ORU. Validate and maintain bracket data stream and chain states. 




STAT 


MG15 
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Processing 



Output 



TCBQV t C 
LUCB 



LURB '" 



TCB13 



WACB 



WALI 



c> 



^> 



£> 



Point register 1 to the queue record. 

Indicate hold state. 

Get the remote ID in register 0. 

Calculate the message index. 

Issue the IPW$RMS macro to queue 
the message to the remote operator. 

(02J) Set the data stream abort indicator. 

Set register 1 to zero to indicate EOF 
by writing a dummy record. 

Issue the IPW$PLR macro to write a 
dummy record. 

Issue the VTAM RESETSR macro 
to switch to any mode. 

Reset the pointer to the POWER/VS 
save area. 

If the asynchronous'RESETSR 
request has been accepted: 



caii mm 



CHECK 



r^> (03) If the logical interface is open: 



Issue the IPW$CLI macro to close the 
interface. 
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WASN - 
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LUIS " 



Address of WARP £ 
RD 



Address of WASV C 



RF 



o> 









(64) Reset the logical interface indicator. 

If an error occurred during IB process 
(break) or an IB reader is interrupted: 

Reset the live bit in the ECB. 



Get RPL address in register 1. 

Save the pointer to the POWER/VS 
save area. 

Get VTAM save area address in 
register 1 3. 

If there is an error condition 
then: 

A. Get RPL address in Reg.6 
for message modification. 

Calculate message index 

B. Issue the message to the 
central operator via the 
IPW$WTOmacro. 

C. Indicate kill session. 

D. Indicate termination type. 



^^ Lock the SNA control block 
v£9 via the IPW$RSR macro. 



Reset CD indicator. 

Reset interrupt (SIGNAL) 
indicator. 



S:3X05J 







o 



S> 
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£> 



IPW$WTO 
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PW$RSR 
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LUTT='S / 
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LUSG='0'B 
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LUPH 



LUCB 



LUIS 



LUOI 



WACB 



WAPH 



LUCB 



LUIS 



LUCB 

I LUTT £ 

TCB 

1 TCBTT='S'T l 



Processing 



i> 



o 



:£> 



c> 



S> 



(06 



If device characteristics field is 
not already cleared then: 



m+ 


CLEAR 




MG20 


v ' " " 



If no reader and no writer is 
interrupted then: 

Restore the device characteristics 
pointer for the interrupted 
device. 



If the rdr (IB) was not 
interrupted then: 

(o?) The RDR (IB) was interrupted: 

Reset pointer to LUCB, 
which has the WACB 
occupied. 

Reset pointer to WACB. 

Reset interrupted RDR. 

Reset TCB address for 
interrupting console. 



m 



If session is to be killed, 
or current task is in error 
then: 

Indicate 'S'-statefor 
RDR task. 

Activate RDR task. 



E£j>(09) 



Ep>@ 



10) 




Output 



=> 



t> 






£> 



i> 



i> 



LUCB 



LUPH 



SUCB 



SUWSL='0'B 



LUCB 



| LUW2 1 
1 LUIS='0'B 1 

1 LUTI='0'B 1 



TCB 

|TCBTT='S' [ *" H LURT' 



|TCBSF='D' | 
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c> 
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(08) 



(09) 



The writer (LST/PUN) was 
interrupted: 

Reset LST/PUN interrupted. 

Reset TCB address for RDR. 

If session is to be killed then: 



A. Indicate 'S'-state for 
LST/PUN task. 

"B. Activate LST/PUN task. 

C. 

No RDR (IB) or writer (OB) 
was interrupted: 

Reset TCB address IB proc. 

Indicate OB allowed at this 
session by resetting BB reject. 

Indicate select LUCB for SNA 
MANAGER. 

Post SNA MANAGER work ECB. 

If OB process was rejected during 
IB process then: 

Set SUCB selectable 
for $SN MANAGER. 



Output 






i> 



O 



£> 



t> 







TCB 



TCBTT='S' 



*" M LULT | 



| TCBSF='D'l 



> i 



SUCB 



SUDLS= / S / 



LUCB 
| LURT= 


'0'b[ 


| LUBB= 


'O'B | 


[ LUSL= 
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SNCB 
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Input 



Processing 



Output 



00) 



Unlock the SNA control block 
via the IPW$RLR macro. 



©Detach the SNA IB processor 
task via the IPW$DET macro. 




IPW$RLR 



IPW$DET 



MAINLINE 



Extended Description 



Include Segment Call Subroutine/ Chart 
Macro 



© 



If the device characteristcs field is already cleared (normally it will 
be done when data stream is set in between data stream state - EOC 
subroutine), the pointer to it (LUPH) must be -0-. When an error 
occured or the processor was set externally into STOP immediate 
state, this field is not cleared yet. 

To free the WACB, which got the console task via the SNA 
manager, the following ptrs must be cleared: 

A. SUWSL .... Pointer to LUCB which uses second LUCB. 

B. LUW2... interrupting IB workspace address obtained from SUCB. 
Note: 

WACB chaining during interrupt IB for IB: 
SUCB WACB2 




IPW$RSR 
(POWER/ 
VS) 
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Extended Description 



Include Segment Call Subroutine/ Chart 
Macro 



Chart MG4 



(07 j) If an error occurs on the second interrupt level, all processors will 
be stopped, but not the session. The end bracket will be sent by the 
OB -processor (see table chart MG4 - 09) 










( 08 j Normal IB processor termination occurs. Only the SNA manager 
^-^ (IPW$$SN) must be activated to perform a scan through all LUCBS 
according to a SUCB. He has to look for further work. 










© 




IPW$DET 
(POWER/ 
VS) 






■® 




IPW$RLR 
(POWER/ 
VS) 






IB-TERM 










ERROR handling 










Interrupt 


Level 




1st 


1st 


2nd 








Level 


Proc. I Device 


No interrupt 


Int. IB console 
for I B reader 


Int. OB 
for IB 


Int. OB for 
IB reader 
for IB console 


2nd 


IB Console 


X 


— Response 
RU, EB 
-r~ 


X 


— Response 

-TT© 


1st 


Reader 


Purge state 
— Resp. 
RU, EB 


'S' TCBT ^^ 


Purge state 
— Resp. 
ORU 


'S' 


© 


1 L$ " "" " " 

Console 


— Resp. 
ORU, EB 


X 


— Resp. 
ORU 








OB 


X 


X 


Continue 


'S' 
ORU, EB 


Notes: 




fly If IB found itself between bracket and in 'S'-state, it detaches itself after c 


lean up 








(close logical interface etc.) immediately. 










\%) To send a RU will be suppressed, when IB and OB are interrupted. 










f3J An indicator (WATI) tells the IB-reader, that an error occured at the secor 


id 








level interrupt. Therefore RU sending will be suppressed. 
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Address of WARP 
WACB 



R1 



LUCB 
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.- WARP 



Included by TERM, Chart MG4 

1 INER (Part 1 of 7) 



Check error conditions in the inbound process (S-state). 



Q\J Point register 1 to the receive RPL 



:£> Check if a RECEIVE is in progress 
No Yes 

t 

Call CHECK — — — - 



CHECK : 



Check if there is an error condition < ^~ 
No Yes 



Indicate kill session : 

Indicate abnormal termination 
Indicate VTAM error ■ 



•TO) 



Check for DFC, or last of chain, or onl\r-^ 
chain 

No Yes 



Indicate end chain pending : 



:C> \2J Get RPL address in register 6 for message : 

I modification 

Calculate message index ZZZZZZ=Z== 



:£> Get remote ID in register 



Issue the IPW$RMS macro to queue the message for 
the remote operator 




IPW$RMS 
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1V24I 



RO 
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£> Check if the message has to be sent to the central 
operator as well 

Yes 

♦ 

Calculate message index ^^zz^zzzzz: 



R1 



1V07I 



Issue the IPW$WTO macro to send the 
message to the central operator -^— 



IPW$WTO 



WACB 



Point register 1 to the RPL again 

If a VTAM error occured which requested kill session, 
or between chain state, (immediate termination is 
required and OB is suspended) ^-^ 

then m (V) 

C> Check for external stop condition 

No Yes 



I 1 



=£> Rlf 



ndicate break sense 



Indicate exception response zzzzz: 
Indicate function management end 
Indicate not reached recovery node 
Move sense bytes ^ZZZZZZHZHIZ 



=> 
=> 



Indicate (negative) response to be sent ; 
Call SEND — - — — - 



Check if VTAM returned an error on 
SEND 

No Yes 



Indicate kill session . 

Indicate abnormal termination 
Indicate VTAM error zzzzzz: 



►SEND 




=o 



x'08ir 



LUCB 



:> 



O 



Check for an external stop condition 
No Yes 



'S' 
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C>(3)lf a VTAM error occured which requested a kill 
session, or (immediate termination is required 
and OB is suspended) 

then 

^>- If the process is not in chain state, 
and if there is no more data 

then 

If CANCEL, or EOC received, or 

if a VTAM error occured — — — 



Issue the VTAM RECEIVE 
macro to purge any data in the 
network 




RF 



=C> If the RECEIVE request 
has not been accepted 



LUCB 



=> 



then a) Indicate kill session — — 

b) Indicate abnormal 

termination | 

c) Indicate VTAM error zzz 

d, — ^0| 

else Call CHECK m » CHECK 



+ LUSS 
LUTT 



WACB 




If there is any error condition 



then 

a) Indicate kill session : 

b) Indicate abnormal 
termination 

c) Indicate VTAM error - 
else; 



MG16 



X'0811' --WASN 



LUCB 



WACB 
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RPLCNCEL + 
RPLEB 



RPLCMD-- 



RPL 



LUCB 



LUOI-- 
LUIS-I 



LUBR-- 




[ !> (?) If not a CANCEL was received 



""^^ If end bracket is set 

then indicate between bracket 



^>> If not change direction indicated 

then -"■ ^^ — — — ^^- — — 



else validate CD: 



If OB suspended and 



= C> no IB rdr suspendet and 



z[^> in bracket state 

then Set CD indicator 



else CD error: 

a) Indicate kill session ; 



b) Indicate termination typez 



*- (4.1 



LUCB 



> 




=> 



=> 



X'80' 



■-LUBR 



--LUBC 
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LUCB 



LUIS-- 
LUOf" 



WACB 



WASN 
WATI 4- 



WASS -- 
FMHLN -- 



Indicate positive 
response 

Indicate function 
management end 
Indicate not reached 
recovery node 
Indicate (positive) 
response to be sent 



If VTAM 

returned an error on 

SEND 





then a) Indicate kill 
session 

b) Indicate 
abnormal 
termination 

c) Indicate 
VTAM error 

If a VTAM error which requested a kill session, 
or (immediate termination is required and OB is 
suspended) 

or (IB and OB are suspended) then » (IT) 
else Send ORU: ^^ 

Indicate no data :zzzz=zzizzz 



Indicate zero length : 
Indicate no FMH ~ 



Indicate between chain state 



= £> If between data stream state, 

:£>. or implicit FMH — 




Continued on next page 



Chart MG5 



C 






INER (Part 6 of 7) 



Chart MG5 





Address of FMH 
Length of FMH 

SUCB 



SUBR 
SUBC 



WACB 



WAUB -■ 



^>© 



Indicate da.ta stream abort 
:£> Indicate address of FMH 
z£> Indicate length of FMH 

Indicate FMH to be sent 

Indicate receiver 

sends ADS FMH 

If between brackets, or 

(change direction is set ^^ 

and in bracket indicated) » ( SJ 



Indicate begin bracket 
Indicate end bracket 




WASS 

FMHDSS 

RPLAREA 

RPLRLEN 

RPLFMHDR 

FMHFLAG 



WACB 



LUCB 



LUOI -* 



If unconditional end 
bracket is set — ^ 



Indicate not begin 
bracket 




(7) Indicate response to be sent 
Call m 




■ If outbound is 
suspended for inbound 



then indicate not 
end bracket 



--RPLBB 



RPLBB 
RPLEB 



--RPLEB 
"-RPLSRESP 
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LUCB 



LU0I-- 



:^> If VTAM returned an error 



then a) Indicate kill session: 
b) Indicate abnormal - 



LUCB 



=> 



temination 



- If no OB suspended 



c) 



■►8 



then indicate between brackets: 
Indicate between data stream z 



-► Exit 



t: 
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CHECK 


MG16 


(2) 1V24I ttt TERMINATED REASON=xxxx 




IPW$RMS(POWER/VS) 




1 V07I ERROR ON 'request' RTNCD,FDB2=xx,xx SENSE=xxxx ON 'luname' 




IPW$WTO(POWER/VS) 








SEND 


MG9 


© 




RECEIVE(VTAM) 








CHECK 


MG16 


\4J If a CANCEL was received an FME must be sent 




SEND 


MG9 
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SEND 
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Address of WARP: 
LUCB 



LUBR-- 



WACB 



WAUB 

RPLEB-f 

RPLCMD- 



RPLCNCEL-- 



WASS -- 



From calling routine (INIT, GETRU) 
DFC (Part 1 of 3) 



I 



Handle CANCEL and LUSTATUS data flow control 
requests. 



mJ Initialize return code register 



:£>■ Point register 1 to the RPL 
Clear the residual count ~ 



=£> Check for bracket state or unconditional end 
bracket, and end bracket or change direction 
received 

No Yes 



Indicate bracket state error 



Check for change direction received 
No Yes 



£> (T) Check for a CANCEL request 



Indicate bracket state error 

-© 



Yes No 

Indicate end chain pending I 



© 



=[> Check for between data stream state 
Yes No 



Indicate in data stream state 
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WAUB-- 
RPLEB-- 



RPLCMD 



RPLIUS-- 



RPLDSB-- 



DFC (Part 2 of 3) 




C> Check for between bracket state 

No Yes — - — ^— 



•© 



^> Check for unconditional end bracket, and end 
bracket not received 

No Yes 

t 

Indicate in bracket state zz 



Check for change direction received 
No Yes 



No 



Indicate change direction 



-© 



Indicate end bracket state pending 



-© 



> (5) Check for a LUSTATUS request 



Yes No 

t 

Indicate unsupported DFC request : 



-© 




Check for component available, or permanent 
error 

Yes No 



Indicate data error 



© 
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z^> Check for end bracket received 
No Yes 

t 

Indicate end bracket pending 



-© 



:£^> Check for change direction received 
No Yes 

I * 

I Indicate change direction 

{4J Indicate chain end pending . 

^>> [5j Check for an error condition 
No Yes 

t 



■ Copy error return code 
Call ANER — — 



-► ANER 




LUCB 



c> 



X'20' 



WACB 
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Input 



TCB 



TCBTT 



WACB | WACS I 



FMHLN 



FMHC 



FMHTYPE 



FMHDS 



FMHFLAG 



FMHDSC £ 



FMHERCL 



Processing 




^> 



^> 



o 



o 



^> 



:> 



=> 



i> 



£> 



FMHDR 

Check the function management 
header. 

(o7) If task is in 'S'-state then: 



If not between chain state then: 

A. Indicate FMH error. 

B. 

Copy the function management 

header. 



(02) If: 



FMH length is not 6 
characters or 

Concatenation is not supported 
or 

No Type 1 FMH or 

Demand select is not supported 
or 

F LAG byte is not zero or 

Compression or compaction 
is supported or 

Exchange record length is 
greater than 80, then 
A. Indicate FMH error. 



B. 



Output 



RETURN 
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FMHSEL 



SUCB 



SUR 1P 



WACB 



•FMHSEL 



Processing 



t> 



£> 



t> 



£> 



(03.1) 



If it is(RDR Input (FMH) and 
RDR input is allowed (BIND) 
and RDR is in use (SUCB)), 
or if it is (CONSOLE input (FMH) 
and (CONSOLE is in use (SUCB)) 
then: 

Reset console input indicator. 

Reset reader input indicator. 



(04) If it is RDR input then: 
A. Indicate RDR input. 



B. Initialize device 
characteristics ptr. 

C. Call: 



INDEV 



£32X04 



MG 19 



@ If it is CONSOLE input then: 
A. Indicate CONSOLE input. 



B. Indicate CONSOLE TCB. 



C. Indicate device 
characteristics ptr. 



Output 
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c> 




WACB 



WAIR='1'B 



LUCB 



LUPH 
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WAIC=TB 



iTCB 



TCBTI='CON 
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WACB 



FMHDSS 



WASS 



R4 



LUCB 



LUIS 



DEVCHAR 



WAPH f 



PTRLUCB 



Processing 



s> 



o 



i> 



Call: 



<^SSS 



INDEV 



MG 19 



else 

A. Indicate FMH error. 

B. 

(85) If begin and end data stream 

(FMH), and between data stream 
for current state (case t+2) then: 

A. Indicate end data stream 
pending. 

B. 

If begin data stream (FMH) 
and between data stream for 
current state (case 3} then: 



A. 


Indicate in data stream 




state. 


B. 




else 




A. 


Indicate FMH error 


B. 





@ Devices (RDR or CONSOLE) 
already in use: 

@ If IB processor (RDR/CONS) not 
on same session then: 
A. Indicate FMH error. 



B. 




SSi^KQ^ 




08) 





Output 



o 



o 



£> 



£> 



£> 



RF 

I x'1008' I 



WACB 



[WASS=X'20' 



WACB 



WASS=XW 



RF 

[ xnoos' 1 



RF 

| X'TQOS' 1 



Chart MG7 



Chart MG? 
Part 3 of 7 



o 



r 

v 






o 



Chart MG7 



Input 



WACB 



FMHDSS 



WASS 



WACB 



FMHSEL 



WACB 



FMHDSS 



WASS 



WALR 



LUCB 



LUIS 



WACB 



FMHDSS 



WASS 



WAIC 



LUCB 



LUIS 



Processing 



c> 



i> 



C> 



^> 



S> 



Else 

If end data stream (FMH), 
and in data stream for current 
state (case 5) then: 

A. Indicate end data stream 
pending. 

B. 

If abort data stream (FMH), and 
in data stream for current state 
(case 6) then: 

A. Indicate abort data stream. 

B. 

@ If it is CONSOLE input then: 

A. Indicate FMH error. 

B. 

If suspend data stream (FMH), 
and in data stream for current 
state, and IB ROR active, and IB 
not interrupted (case 7) then: 

A. Indicate suspend data stream. 

B. 

If resume data stream (FMH), and 
between data stream for current 
state, and IB console active, and 
IB interrupted (case 4) then: 



E££>(08 




08) 



08 
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Input 



WACB 



WARC 



RF 



WACB 



WAIR 



WALI 



WACB 

1 warp T : 



Processing 



s> 






c> 



A. IndicateVesume IB RDR 
requested. 

B. Indicate in data stream state 
for suspended (interrupted) 
IB RDR. 



Else indicate FMH error. 



(piJ) Update residual count and 

update current buffer pointer. 



If the residual count is negative 
then: 

Set residual count to zero. 

If there is an error condition 
then: 

®lf reader input and if the logical 
reader is not open: 

Issue the IPW$OLI macro to 
open the logical interface. 

Indicate that the logical 
interface has been opened. 

Reset Reg.1 to point to the 
RPL again. 

(09) Exit. 



Output 



c> 



£> 



O 



> 



5> 



IPW$OLI 




WACB 



WASR='1'B 



WACB 

|WASS=X'4CT] < *"1 -| LUW1 



RF 
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| WALI='1'B| 





WACB 






WARC - 
FMHLN 




WACR + 
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| WARC='0'B | 





| WARP | ^— [ 
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Include Segment Call Subroutine/ Chart 
Macro 



V22? If jt is not the first FMH which is arrived by this procedure the branch is made. 








LUCI indicates, that card inbound is allowed. It will be set during logon according 
to the BIND - parameters. 








^3j) It is a BDS or BDS/EDS FMH, because RDR or CONSOLE has not been active. 








Q*y In case of console input, the TCB indentification field (TCBTI) will be changed 
from RDR1 to CON1. For implicit function management headers (FMH) it will 
be done in subroutine STAT. 








\Q5) The case number indentifies an entry in the atached decision table, chart 

MG 09. Case 2 is also verified by subroutine INDEV (no second RDR allowed, 
that means it is not possible to interrupt IB rdr for IB rdr) 








(06) In this case LUPH also points to the appopriate device characteristics field 
(SUCB). 








QS/ R4 always points to the LUCB on which the IB processor TCB is associated. 
PTRLUCB must also point to the same LUCB. 

PTRLUCB references the pointer to the LUCB in the SUCB device characteristies 
field. 








(£2/ It is not allowed to interrupt IB console. 








A check must be made, if a second device (RDR or CONSOLE) tried to send 
data. When this happened, the device was already started and a BDS or BDS, 
EDS was sent. 












Chart MG7 
Part 6 of 7 



Chart MG7 






a 

c 

CO 

\ 

< 

o 

I 

N 

< 
en 

H- 
O 



Extended Description 



Include Segment Call Subroutine/ Chart 
Macro 



® 






IPW$OLI 












POWER/VS 








FMH- 




DATA STREAM 


STATE (WASS) 




FIELD 


CONDITIONS 


B 


B 


B 


B 


1 


1 


1 






BDS ('010'B) 


ON 


ON 


ON 


OFF 


OFF 


OFF 


OFF 




FMH- 


EDS('001'B) 


ON 


ON 


OFF 


OFF 


ON 


OFF 


OFF 




DSS 


ADS('101'B) 


OFF 


OFF 


OFF 


OFF 


OFF 


ON 


OFF 


ANY 




SDS('IOO'B) 


OFF 


OFF 


OFF 


OFF 


OFF 


OFF 


ON 


OTHER 




RDS COOO'B) 


OFF 


OFF 


OFF 


ON 


OFF 


OFF 


OFF 


COMBI- 
NATION 
OF 


FMH- 


RDR INPUT ('010'B) 


.. 


NO 


YES 


YES 


YES 


YES 


YES 


MEDIA 


CONS.INP. POO'B) 


- 


YES 


NO 


NO 


NO 


NO 


NO 


CONDI- 




















TIONS 


1) 


LUIS 


OFF 


ON 


OFF 


ON 


— 


OFF 


OFF 




ACTIONS 


















ERROR 


NO 


NO 


NO 


NO 


NO 


NO 


NO 


YES 


NEW DS STATE (WASS) 


EP 


EP 


1 


B/R 


EP 


A 


S 


= OLD STATE 


LUIS -SEE NOTED 


OFF 


ON 


OFF 


ON 


— 


OFF 


ON 


UNCHANGED 


CASE NR. (REFER. IN CODE) 


1 


2 


3 


4 


5 


6 


7 




NOTES: 










1) LUIS=ON ...INDICATES $IB-RDR INTERRUPTED (SUSPENDED) FOR 










$IB-CONSOLE (IN LUCB) 










2) EP END STATE PENDING 










B/R ... BETWEEN DS STATE AND 'RESUME REQUEST INDICATOR SET ON 










(WASRINWACB) 










B... BETWEEN DS STATE 










1... IN DS STATE 










A.. ABORT DS STATE 










S... SUSPENDED (INTERRUPTED) DS STATE 
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Address of WARP : 



RF 



LUCB 



LUBR 
LUBC-- 



WACB 



WASS-- 






From calling routine (RCDB) 



\ 



EOC (Part 1 of 3) 



Update chain, data stream, and bracket states and send a 
positive response 



fl) Initialize return code register 
£> Point register 1 to the RPL - 

Indicate positive response zzz 



Indicate FME 

Indicate response to be sent- 



Call SEND to send a positive response ^ - 
Olf there is an error condition 



© 



SEND 



MG9 



Indicate between chain state 
Turn off EOF switch -zzzzzz 



(5) If no 

=£> end bracket state pending and no 
i^> change direction and no 
=£> end data stream pending and no 
==0 abort data stream 



-© 



C> If end data stream (EDS) is pending 



then 

a) Indicate between data stream 



b) Call 



CLEAR 



MG20 
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TCB 



TCBTT-- 



LUCB 



LUBR- : 
LUBC-- 
LUOI + 
LUIS 



LUCB 



LUBC - 



EOC (Part 2 of 3) 




Indicate abort data stream 



z> If stop at EOJ ('E') indicated 



Indicate immediate stop 



© 



^C> If not an immediate stop indicated 



Set flush indicator 



®, f 



end bracket pending and no 



^>' change direction or 

:^> outbound suspended for inbound 



£> If outbound is suspended for inbound or 
inbound suspended for inbound 



Indicate kill session "- 

Indicate termination type — 

Turn off unconditional end bracket indicator 

C^> If not change direction indicated 




Indicate between bracket state 



Continued on next page 
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WAUB 
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RF 



WACB 



WASR - 



LUCB 



LUBR 
LUBC-4 



RF 



WACB 



WASS-- 



EOC (Part 3 of 3) 



WACB 



Indicate no begin bracket : 
Indicate end bracket 



Indicate no change direction" 
Indicate no data 



Indicate response to be sent: 
Call m 



:zO If no error occured 







SEND 











Indicate between bracket state _ 
Reset change direction indicator" 



©if 

^> end bracket, or 

:£> change direction, or 

^> resume data stream (interrupted IB) requested 

(4.I) Turn on EOF switch — 



Call 



(5) |f an error occurred 

(V) If data stream is in SUSPEND state 

(7) Exit Call -* 



ANER 



■©■ 



SUSPEND 
l 




Return to Calling Routine (RCDB) 






SUCB 






X'80' 



WACB 



--RPLBB 
]-RPLEB 
— RPLCMD 
j-FIPLRLEN 
"-RPLSRESP 



SUBR 
-l-SUBC 



--WACE 



Extended Description 
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/TJ\ If a data stream has to be aborted, no QUEUE record should be written. This is indicated with 'stop immediate' 
V^ or 'flush' depending on the current condition of the task 

^3j\ If an EB is pending and a reader or writer is interrupted the session must be kulled. The WST sent an EB and 
^-^ therefore did not follow the SNA-rules 

[4-y The EOF switch is to come cut of the RCDB routine 




SEND 

SUSPEND 
ANER 
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Address of WARP : 
WACB 



RPLSRESP- 



RD 



Address of WAS v: 



TCB13 



From calling routine (INER,EOC) 

W SEND {Part 1 of 2) 



Send responses or requests to the logical unit. 



I 



fl) Initialize return code register : 
O Point register 1 to the RPL — 



- Check if a response is to be sent 
No Yes 

t 

Indicate data length of 0— 
Indicate no begin bracket - 
Indicate no end bracket = 



Indicate positive response requested - 
Indicate function management end ~ 
Indicate not reached recovery noder 
Indicate data to be sent z: 



•01 



Indicate post equals response : 
(l) Reset the live bit in the EGB : 



- Save the pointer to the POWER/ VS save area : 



I 



£> Get VTAM save area address in register 13 : 
Issue the VTAM SEND macro • 



-►SEND 



z[> Reset the pointer to the POWER/ VS save area 



Check if the SEND request has been accepted <]= 



No 



Yes 

Call CHECK- 



'CHECK 



Indicate request scheduled - 
indicate no response required 
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--WARP 



RPLRLEN 
■-RPLBB 
: -RPL£B 
•-RPLEX 
i RPLNFME 

RPLRRN 
+RPLDATA 

RPLSCHED 



TCB 



I 



| TCB13 
=>1 



:=> ^TCBEO 



- -TGBEB 



I 



=>C 



=>C 



«D 



RF 



=>[ 



RD 



WACB 



-RPLSCHED 



-RPLSRESP 



Return to Calling Routine 
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Address of WARP 
WACB 



WASN-- 



R1! 



RPLRTNCD 



RPLMIDLE 



RPLFIRST 



From calling routine (INIT,DFC,EOC,GETRU,GETLR,STAT) 




I 



ANER(Part 1 of 2) 



Initiate error processing for SNA errors (WASN^O), and 
errors indicated by VTAM (WASN=0). 



(T)Point register 1 to the RPL : 
I ndicate 'S' state ^z^zzzz 



f 2JCheck if VTAM indicated an error 
Yes No 

♦ 

Indicate error message index for remote 
operator — 



^►Return 



I 



Indicate break sense = 

Indicate error message index for local and remote | 
operator 



^> Check if the ACB is closed 
No Yes — ^— 



►Return 



:£>- Check if a POWER/ VS logic error occurred 
No Yes 



Force a program check by branching 
to the storage descriptor 



Check for: 
£^> middle of chain, or 
:^> beginning of chain 

No Yes 

♦ 

Indicate in chain state 



IBCS+2 



<5) 



WACB 



*R1* 



TCB 



=> 



'S' 



WACB 



:> 



=> 



=o 
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WACB 



R1| 



RPLRTNCD 
RPLFDB2 



RPLSSNST 



RPLRTNCD 



RPLFDBL 



ANER(Part2of2) 



Indicate end-of-chain pending 

(5) Check for exception request 
No Yes 

t 



■® 



► Copy VTAM error sense — 
Indicate error message index 



Check for: 

negative response received, or 

VTAM storage shortage 

No Yes 



Indicate kill session — 

Indicate immediate termination - 



- Return 



U 



WACB 



:> 



O 



X'20' 



LUCB 



=[> 



Return to Calling Routine 
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1V24I ttt TERMINATED REASON=xxxx 
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1 V07I ERROR ON request RTNCD,FDB2=xx,xx SENSE=xxxx ON luname 
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1V24I ttt TERMINATED REASON=xxxx 
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Input 



TCB 



TCBSU 



Address of WALR E 
WACB 



WAIR 



WAGD 



| CMPTR "V ""* ! WAGD [ 



FROM 

CALLING 

ROUTINE Processing 




s> 



^> 



c> 



c> 



o 



c> 



CMND 

Handle terminal operator commands 
(SIGNOFF, START, RESTART, 
FLUSH, STOP, GO, SETUP). 



(oT) Address SNA logical unit control 
block. 



Insert delimiter for the SCAN. 



Get start address of command m 
register 1. 

If the card reader is being processed: 

Point register 1 past the prefix 
(* ..). 

Make the command upper case 
characters. 

(62) Locate the start of the command code 
via a translate and test instruction 
and set the pointer. 



Locate the start of the operands 
via a translate and test instruction 
and set the pointer. 

Clear return code register. 



(o3) If command is SIGNOFF: 

ES5^|>[JlGNO^ 
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I CMPTR H * | WAGD £ 



WAGD 
CMPTR H "* l ""fc 



CALC - 24 



Processing 



o 



c> 



i> 



l£> (o?) If command is RESTART 

E£5± ^ RESTART 



t> 



o 



o 



(64) If command is START: 



START 



MG11.2 



© If command is STOP: 



STOP 



MG11.3 



@ If command is FLUSH: 

i??^>^ ^ FLUSH 



MG11.4 



(08) If command is GO 



MG11.5 



m^> 


GO 




MG11.6 




"<>j.....tt 



© If command is SETUP 



l-x-xvx-x 1 ^ 


SETUP 
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^....,,t 



(jq) Pass the command to the 
command processor (Allow 
only one terminal command 
at a time). Get the lockword 
address in Reg.3. 

Lock the SNA control block 
viathelPW$RSR. 
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Input 



RF 



CMPTR H 



RF 



Processing 
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Reset the life bit in the ECB. 

Issue the I PW$ 

Issue the IPW$ICP macro to 
invoke the command processor. 

Issue the IPW$ICP 

Issue the IPW$WFC macro to 
wait for the command 
processor to finish. 

Unlock the SNA control block 
via the IPW$RLR macro. 

Indicate no error detected. 

If an error has been detected 
then: 

A. Get command address in 
R6. 

B. Calculate message address. 

C. Calculate sequence number 
and TO-remote-ID. 

D. Issue the IPW$RMS macro 
to queue the message. 



(12) Else 



Output 



IPW$ICP 



HPWSWFC 



IPW$RLR 




IPW$RMS 



RETURN TO 

CALLING 

ROUTINE 



TCB 
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(03) Signoff 






MG 11.1 


(04) START 






MG 11.2 


@ STOP 






MG11.3 


(06) FLUSH 






MG11.4 


(O?) RESTART 






MG 11.5 


(og) GO 






MG 11.6 


(09) SETUP 






MG11.7 
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IPW$RSR 
(POWER/ 
VS) 

IPW$ICP 

(POWER/ 

VS) 

IPW$WFC 
(POWER/ 
VS) 

IPW$RLR 
(POWER/ 
VS) 

IPW$RMS 
(POWER/ 
VS) 
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LUCB 



LUNX 



FROMCMND 
STEP (3) 



Output 




LUCB 



| LUNX "r -* I LUTT=S[E 



c> 



i> 



SIGNOFF 

(oj) Lock the SNA control block via 
the IPW$RSR macro. 

@ Do for each LUCB of the 
current chain if session is not 
already terminating: 

A. Indicate normal 
termination. 

B . I nd icate kill session. 

C. Indicate select for the 
SNA manager. 

(S) Unlock the SNA control block 
chain via the tPWSRLR macro. 






LUCB 
LUTT='E' 






LUSS='1'B 












LUSL='S' 





Return to 
CMND 
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Processing 



Output 




(01 



START 

Call PARM subroutine to check 
if parameter 1 is correct or not, 
and point to the appropriate 
entry in the SUCB 



Lv.vIviiiVx 


PARM 


ir 
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If an error has been detected 

then: 

If the delimiter is blank (no 

class specified) then indicate 

default class. 

If the delimiter is not a comma 
then indicate error message 
index. 

If the classes specified do not fall 
within the range A through Z 
then indicate error message 
index. 



If more than 4 classes have been 
specified then indicate error 
message index. 

Lock the SUCB chain via the 
IPWSRSR macro. 



£> 



£> 




^> 



ESj^o? 
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IPWSRSR 



DVPTR 



SUDNP 



WAGD 
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1V22I 
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Input 



DEVCHAR 



I DVPTR H "~* 



STATUSB 



WAGD 



WRPTR 



Processing 



Output 



£> 



£> 



(62) If device already started then: 

A. Indicate error message 
index. 



B. 

(03) Clear class indicators. 
Indicate classes specif ied. 

Indicate device started. 

Indicate output available. 

Set select for SNA MANAGER. 

(04) Unlock the SUCB chain via 
IPW$RLR macro. 

(5) Exit. 




PW$RLR 




RETURN TO 
CMND 

(u) MG 11-05 
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1V23I 





SUCB 




OPCLASS= 
CL4X'FF' 


' H DVPTR | 


OPCLASS 
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feu The device ptr (DVPTR) points to the appropriate entry in the SUCB. 
It is calculated by the subrtn PARM. 



SUDNP 
d. .. 
n. . . 
LST: 
PUN: 



device (LST/PUN) 

device number 

n between 1 and 3 

n= 1 

e.g. SUL2P is first byte of 

LST2 characteristic field 

in SUCB. 

1V22I INVALID COMMAND 

1V23I COMMAND OUT OF SEQUENCE 

(02) STATUSBYTE (STATUSB) based on DVPTR appropriates to 
SUDNS. 



d. .. 
n. .*. 



device (LST/PUN) 
device number 



The classes and the indicators are set in the device characteristics 
area in the SUCB. This area is pointed to by DVPTR. OPCLASS 
is set according to SUDNC. 



IPW$RSR 
(POWER/ 
VS) 



IPW$RLR 
(POWER/ 
VS) 
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Input 



Processing 



FROMCMND 
STEP (5) 




RF 



WRPTR h -T^f 



WAGD 



DEVCHAR 

WRPTR \ ** \ SUHS C 



t> 



£> 



£> 



t> 



STOP 

Call PARM subroutine to check 
\0y if parameter 1 is correct or not 
and to point to the appropriate 
entry in the SUCB. 



PARM 



MG17 



If an error has been detected 
then: 

If the delimiter is blank then: 
A. Indicate immediate stop. 

B. 

If not EOJ, RESTART or blank 
has been specified then: 

A. Indicate error msg index. 



@ Lock the SUCB chain via 
• IPW$RSR macro. 

(03) |f device is not started, then: 

A. Indicate error msg index. 

B. 




02} 



e4>® 



Output 



£> 



£> 



S> 



*^Hpw$rsr 
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R4 



I LULT j -T* 



LUCB 

I LULT £ 

TCB 



TCBTT 



| ptrlucb"V ^ > 



LUCB 



LUGO 



LUCR 



TCB 

I LULT H ""* l TCBTT='S' 



Processing 



o 



£> 



£> 



Else 

If no OB processor active then: 

A. Indicate device available. 

B. 



(04) |f the writer is active and not 
terminating then: 



Indicate STOP code. 



Reset started indicator. 



(g) If (SETUP/GO or I NTV. 
REQU. in progress), and 
stop immediate indicated 
then: 

Post writer reactivation ECB. 

@ Unlock the SUCB chain via 
IPWSRLR macro. 

(07) Exit. 



Output 



IPWSRLR 



Return to 
CMND 

(jj) MG11-05 
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TCBTT= 
SJE|R 



*" H LULT I 



DEVCHAR 



STATUSB= 
X'40' 



*K 



DVPTR 
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TCBROL* 
'VB 



^ LULT 1 
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Wn The device ptr (DVPRT) points to the appropriate entry in the SUCB. It is calculated 
^^ by the subroutine PARM. 

SUDNP 

d . . . device (LST/PUN) 

n . . . device number 

LST: n between 1 and 3 

PUN: n = 1 

e.g. SUL2P is first byte of LST2 characteristic field in SUCB. 

(52) 



(§) STATUSBYTE (STATUSB) based on DVPTR appropriates to SUDNS. 
d... device (LST/PUN) 
n . . . device number 

(04) The writer task is only active, when LULT not equal '0' 

1V22I INVALID COMMAND. 

1 V23I COMMAND OUT OF SEQUENCE. 

(05) Only when immediate STOP is indicated, the OB-processor must be posted. 
^^ Otherwise the $OB processor goes immediate in the wait state without any 



action taken. 



(06) 



IPW$RSR 
(POWER/ 
VS) 



IPW$RLR 
(POWER/ 
VS) 
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Processing 



Output 



FROMCMND 
STEP (6) 




TCB 

LULT p "*! TCBTT^S 7 



TCBJB 



t> 



(01) 



FLUSH 

Call PARM subroutine to check 
if parameter 1 is correct or not 
and to point to the appropriate 
entry in the SUCB. 



ms$> 


PARM 




MG17 


N|" 



If an error has been detected 
then: 
(02) If the delimiter is blank then: 
A. Indicate FLUSH. 
B. 

If 'HOLD' has not been 
specified then: 

A. Indicate error message 
index. 



(03) Lock the SUCB chain via 
IPW$RSR. 

(S) If session is not established 
or if the task is not active, 
or already terminating, or 
at job boundary, or waiting 
on INTV.REQU. then: 

Indicate error message 
index. 










£> 



,07) 



PW$RSR 



i> 



DVPTR 



SUDNP 



WAGD 
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Input 



I LULT M* 



TCB 
TCBTT*'E ; 



WRPTR H ^f 



WAGD 



Processing 



5> 



i> 



(S3) If STOP ON EOJ' or 'PEND' 
already entered then: 

Indicate immediate stop. 

Else 

Indicate FLUSH code. 

(06) Unlock the SUCB chain via 
IPWSRLR macro. 

0) Exit. 



Output 






TCB 




TCBTT='S' 


" H LULT 1 


TCBTT=F|H 









RETURN TO 
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(01) The device ptr (DVPTR) points to the appropriate entry in the SUCB. It is 
calculated by the subroutine PARM. 

SUDNP 

d . . . device, (LST/PUN) 

n . . . device number 

LST: n between 1 and 3 

PUN: n - 1 

e.g. SUL2P is first byte of LST2 characteristic field in SUCB. 

(02) Valid command forms are e.g. 

F LST, Hold 

F LST2 - - - > F LST, F will be initialized. 
<P3> 



(6i) A writer is active, when a TCB is existing. That is also true, when 
the task is suspended. 

1V22I INVALID COMMAND. 

1 V23I COMMAND OUT OF SEQUENCE. 



COS) 



(06) 



If the PROCESSOR is in a STOP at EOJ condition, the task must be 
set into 'S' - state to simulate a flush. 



IPW$RSR 
(POWER/ 
VS) 



IPW$RLR 
(POWER/ 
VS) 
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Input 



Processing 



FROM CM ND 
STEP (7) 



WAGD 

OPPTR | ~T"* | ~t 




RF 



1 WRPTR "V ^ 



WAGD 



| WRPTR+f 



RF 



SUCB 



| PTRLUCB~| l 
LUCB 



1 LULT c 



o 



c> 



c> 



^ 



s> 



(01 



RESTART 



Call PARM subroutine to check 
If parameter 1 is correct or not 
and to point to the appropriate 
entry in the SUCB. 



PARM 



MG17 



If an error has been detected 
then: 

If a ',+' or ',-' sign is found 
then: 

A. Indicate RESTART 
information (depending 
on the sign). 

B. Skip sign. 



Else 



Indicate RESTART 
information (from 
beginning of job). 



(02) Call 



«■& 



VALPNR 



MG21 



If error detected then: 

(55) Lock SUCB chain via 
IPW$RSR macro. 

(04) If task is not active, or 



06) 
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PW$RSR 



DVPTR 



SUDNP 



COMMAND 



RERX=8 2 



^- | WRPTR | 



WRPTR 



COMMAND 

| RERX=4 1 *"~ H WRPTR 
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Input 



TCB 



| LULT V "* ! TCBTT='S' £ 



TCBJB 



| TCBRS ~"] l 



LUCB 



LUCR 



COMMAND 



LUCB 



LUCR 



Processing 









already terminating, or 

task is at job boundary, or 

(RESTART is in progress 
and not on INTV.REQU. 
then: 

A. Indicate error msg index. 

B. 

Move cmnd info into TCB. 

If RESTART is on INTV.REQU. 
then: 

A. Reset request for RESTART 
cmnd on INTV.REQU. 

B. Post 'OB reactivate wait 
ECB'. 

@ Unlock SUCB chain via 
IPW$RLR macro. 

(06) Exit. 
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(5l) The device pointer (DVPTR) points to the appropriate entry in the SUCB, 
It is calculated by the subroutine PARM. 

SUDNP 

d... device (LST/PUNy 

n . . . device number 

LST: n between 1 and 3 

PUN: n » 1 

e.g. SUL2P is first byte of LST2 characteristic field in SUCB. 
(02) Page number must be between and 9999. 
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J PTRLUCB""H ""* | LUGO 



GO 

Call PARM subroutine to check 
(oj) if operand 1 is correct and point 
to the appropriate entry in the 
SUCB. 



If delimiter is not a-6 then 
calculate message index. 

If an error has been detected 
then: 

Lock SUCB chain via the 
IPW$RSR macro. 

If GO cm nd is not requested 
for this task then: 

A. Indicate error msg index. 
B. 



Reset GO cmnd indicator. 



Post 'OB reactivate wait ECB'. 
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(02) Unlock SUCB chain via 
IPW$RLRmacro. 

(03) Exit 



IPW$RLR 




Extended Description 



RETURN TO 
CMND 
(jT) MG11-05 
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(m\ The device ptr (DVPTR) points to the appropriate entry in the SUCB. It is 
^-^ calculated by the subroutine PARM. 

SUDNP 

d... device (LST/PUN) 

n . . . device number 

LST: n between 1 and 3 

PUN: n = 1 
e.g. SUL2P is first byte of LST2 characteristic field in SUSB. 
1V23I COMMAND OUT OF SEQUENCE. 
1 V22I INVALID COMMAND. 
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SETUP 

Process SETUP command: 

If not LST has been specified 
then: 

A. Indicate error message 
index. 

B. 

(oi) Call PARM subroutine to check 
if operand 1 js correct and point 
to the appropriate entry in the 
SUCB. 

<3s 



PARM 



If an error has been detected 
then: 

If the delimiter is blank (no 
pages specified) then: 

Indicate default pages. 

If the delimiter is not a comma 
then: 

A. Indicate error message 
index. 

B. 

Indicate SETUP cmnd into 
temporary command field. 
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If an error has been detected 
then: 

(02) Lock SUCB chain via the 
IPW$RSR macro. 

If SETUP cmnd is not requested 
for this task then: 

A. Indicate error msg index. 

B. 

(63) Move SETUP information into 
TCB. 

Reset SETUP indicator 



Post 'OB reactivate wait ECB'. 

@ Unlock the SUCB chain via 
IPW$RLRmacro. 

(05) Exit. 



Wfe 



IPWSRSR 
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The device ptr (DVPTR) points to the appropriate entry in the SUCB. 
It is calculated by the subroutine PARM. 

SUDNP 

d... device (LST/PUN) 

n . . . device number 

LST: n between 1 and 3 

PUN: n = 1 

e.g. SUL2P is first byte of LST2 characteristic field in SUCB. 
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Chain must be locked because second IB processor can also enter commands 
on a different session during same time. 

1V22I INVALID COMMAND 

1 V23I COMMAND OUT OF SEQUENCE 
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From calling routine (MAINLINE) 

RCDB (Part 1 of 2) 



I 



WACB 



WARC 
WACS-- 



Receive/deblock routine (this routine is looped through as 
long as no EOF or stop condition occurs). 



TCB 



TCBTT- 



^>Mj Check if the residual count is zero and no end of 
chain is pending 

No Yes 

GETRU 



Obtain a request unit 



WACB 



WARC 



>© 



Check if the task is in 'S' state 
Yes No 



TCB 



TCBTT- 
TCBJB- 



WACB 



WAIC 
WALR + 



Check if the residual count is zero 
Yes No 

t 
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Obtain a logical record 



Cz>\3) Check if the task is in 'S' state 
Yes No 



Check for console input 
or command to be 
processed 

No Yes 
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Get logical record 
address in register 

Get logical record 
length in register 1 

Issue the IPW$PLR 
macro to write a logical 
record — — — 



£>- Check if end of chain is pending, and the 
task is not in 'S' state 



No 



Yes 

t 

Call EOC ■ 
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1 GETRU (Parti of 3) 



Get the next request unit (RU). 



(t) Initialize return code register - 
i> Set register 1 to the RPL = 
:[> If a RECEIVE is in progress 



z > Initiate buffer pointer 



Reset the live bit in the ECB 



=0 Save the pointer to the POWER/VS save 

area ^^~zzzzzzz~zzi^~~zz^zi 



i 



Get VTAM save area address in register 13 



Issue the VTAM RECEIVE macro 



z[> Reset the pointer to the POWER/VS save 

area :zz=^z=zz=zzzz=zzzzzzizz 



=C>* (2) if there is an error condition 
Call — — « 



AIMER 
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CHECK 
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RPLBUFL- 

RPLCSI - " 
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TGBTT-- 



WACB 



WACS - • 



GETRU(Part2of3) 




Set buffer in process pointer for deblock 
Set current buffer pointer for deblock : 
Set buffer pointer for next RECEIVE — 



£>(3) If there is a previous error 



=C> If the RU that has just arrived 
contains control data only 



Call i 



- Update residual count 
Call 



■0 



DFC 



=0 If the RU length is not correct 



Indicate sense bytes 



STAT 



If the in coming datas are in ASCII 



Translate the RU from ASCII to 
EBCDIC 



S>G0 If the task is in 'S' state or if end of 
chain is pending 
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ANER 



Reset the live bit in the ECB 
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Extended Description 



Save the pointer to the POWER/VS save 
area 



-£-> Get VTAM save area address in register 
13 

Issue the VTAM RECEIVE macro 



Reset the pointer to the POWER/VS save 
area 



If the RECEIVE request has not been <^ 
accepted 
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Exit 



Call 



ANER 
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1 GETLR (Part 1 of 5) 

Get the next logical record. 

T-^vO Initialize byte.counter 

(2J Initialize delimiter pointer 



Chart MG 14 



I 



z[^> Indicate length of data to be scanned 



=o 



Indicate start address of data to be scanned 



Scan the data for a delimiter via a translate and 
test instruction 

Indicate data length 



z£> Check if a record delimiter was found 



No 



z^> (3) Check if a transparency delimiter was found 
Yes No 



Indicate number of bytes to be moved 

Move non-transparent data to the logical 
workarea 




Yes 

t 

- Check if any data was found 
No Yes 

Move the data to the logical 
workarea 



Update the byte counter 

Update the residual count 

Point buffer pointer after the delimiter 

-© 
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£> fsj Check if a data error has been detected 
Yes No 



Set logical record length 



Check if the deblocked record is not 80 
No Yes 

I t 

I Padd the remaining part of the 

I record with blanks ~ 



Check if the delimiter indicates 
transparency, and if the residual count is 
not zero 

No Yes 

t 

Scan for a redundant delimiter 
via a translate and test 
instruction 



Check if a delimiter was found 
No Yes 



Point buffer pointer 
after the delimiter 
Update residual count 



WACB 



=> 
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-?► RCDB 



:£> (9J Copy error code 
Call ANER _ 
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WASS 



R1 



RPLBB 



RPLEB 



RPLCMD 



LUCB 



LUBR 



o 



c> 



£> 



£> 



S> 



STAT 

Validate inbound status. 
(ot) Point Reg.1 to the RPL. 

(02) Initialize return code register. 
Save data set state temporarily. 



If no begin bracket and no end 
bracket and no change direction 
then: 

If no begin bracket then: 

If not between bracket state 
then: 

A. Indicate bracket error. 

B. Indicate in bracket 
state. 

C. 

Else 

Indicate in bracket 
state. 



Output 




o 

n 
ct 

o 



H 

</> 
</> 

H 
W 



CO 
> 






Chart MG 15 
Part 1 of 4 



o 



V y 1 



Chart MG 15 



Input 



WACB 



RPLEB 



RPLEB 



RPLBB 



LUCB 



LUBR 



WACB 



RPLONLY 



RPLLAST 



LUCB 



LUBR [_ 



LUCB 



LUBR 



Processing 



^> 



£> 



£> 



^> 



£> 



£> 



If begin bracket and end 
bracket then: 

Indicate unconditional 
end bracket. 

(03) If no end bracket then: 



If in bracket state then: 

Indicate end bracket 
pending. 

Else 



Indicate bracket error. 

(04) If no change direction required 
then: 



If in bracket state and if last 
of chain or only chain then: 

Indicate change direction. 

Else 

Indicate change direction 
error. 



(05) If between bracket state then: 
Indicate bracket error. 
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RPLMIDLE 
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(06) If there is an error condition 
then: 



If an FMH was sent, call: 




FMHDR 



MG7 



(qj\ If between datastream state 
then: 



A. Indicate end datastream 
pending. 

B. Indicate no reader input. 

C. Indicate console input. 



D. Set device characteristics 
pointer. 

E. Call: 



>3H08) 



INDEV 
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(m) If middle of chain or beginning 
of chain is indicated then: 

A. Indicate in chain state. 

B. 

Else 

Indicate end of chain 
pending. 
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(09) If there is any error condition 
then: 

A. Copy error return code. 

B. Restore data stream state. 

C. Call: 
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FMHDR 
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(5?) No FMH was sent. Default FMH with EDS, BDS, Console has to be taken. 
For further action see decision table chart MG 7. 


INDEV 




MG 19 


\0g/ The chain state must also be updated in error case (RF not equal ZERO). 
The processor has to know whether he has to go in purge state or not 
(subroutine INER). 
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Address of TCBEB 



Address of WARP : 
RD 

I 1 = 



Address of WASV 



TCB13 



From calling routine (TERM, INER, SEND, GETRU) 
A CHECK 



Check completion status 



£> MjGet the address of the ECB in register 1 : 



Issue the IPW$WFC macro to wait for VTAM 
to complete its function . 



I 



Get the RPL address in register 1 • 



I 



:£> Save the pointer to the POWER/VS save area ' 



-Z>~ Get the VTAM save area address in register 1 3 ■ 



Issue the VTAM CHECK macro to check the 
completion status -— - — mm — 



Reset the pointer to the POWER/VS save area 



IPW$WFC 



- CHECK 0= 
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PARM checks the first operand 
of a terminal operator command, 
indicates the default value, scans 
the SUCB device characteristics 
list for the appropriate entry 
and sets a pointer to it. 

It will be called from CMND. 

(oT) If the 1st operand must be 
initialized with default values 
then: 

(62) Initialize default values. 

(63) If the device will not be found 
in the SUCB then: 

A. Calculate message index. 

B. 



(04) 



Set device pointer (DVPTR) 
to the appropriate entry. 

Set the work pointer to the 
delimiter. 



(05) Exit. 
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Extended Description 
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Macro 



(bu The first operand can be: 

A. LST or LST1 or LST2 or LST3 

B. PUNorPUISM 

(j>2) LST will be initialized to LST1 and PUN to PUN 1 . 

(53) The field SUDNP in the SUCB will be compared with the operator entered value. 

(04S The device ptr (DVPTR) points to the appropriate entry in the SUCB, e.g. for 
^^ LST2toSUL2P. 

d. .. device (LST/PUN) 

n . . . device number 

LST between 1 and 3 

PUN = 1 






SUDNP 



Chart MG 17 
Part 2 of 2 



/" 



/ 

V 



/ 



o 



Chart MG 18 



Input 



Processing 



Output 



FROM CALLING 
ROUTINE (EOC) 




SUSPEND is only entered, when 
the datastream is in SUSPEND 
STATE (a FMH1 was received 
by IB with SDS for RDR 
indicated). SUSPEND posts 
the SNA MANAGER, indicates 
IB interrupted and then a WAIT 
will be issued. The RDR waits 
until the wait ECB will be 
posted by the interrupting 
console. Then a return will be 
made to RCB via EOC routine. 



Lock SUCB chain via 
IPW$RSR macro. 



Reset live bit. 



Indicate IB RDR suspended for 
IB console. 



Indicate for SNA MANAGER 
'Look for work' routine, that 
a RDR has to be started. 

Indicate for SNA MANAGER 
'START RDR' routine that a 
2nd IB proc. task on same 
session has to be attached. 

Set select indicator for SNA 
MANAGER. 

Post SNA MANAGER work 
ECB. 
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TCB 

TCBTT='S' 
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Unlock the SUCB chain via 
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(by Normally LUIS will be reset by the interrupting IB console before detaching. 
In a shutdown period (terminating one session by SNA MANAGER) it can 
happen, that the SNA MANAGER ( before the interrupting IB console got 
control) posts the interrupted IB reader. Then LUIS is not reset. 








When the interrupting console got an error, the processor will terminate 
all IB flows. That means the interrupted reader has to detach itself immediately 
after he was posted (indicator WATl). An end bracket was sent already 
depending if an OB was interrupted or not. If an OB processor also was 
interrupted, he will send the end bracket. 
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(01 \J VALPNR validates the page numbers (page count) entered as an operand of a 
^^ SETUP or RESTART command. Therefore it will be called by the 'CMND' 
routine whenever a valid SETUP or RESTART command was entered. 

(02j The number is checked if all digits are numeric an then if the number has 
^^ the allowed digits (for SETUP 2 digits are allowed, for RESTART 4 digits). 

(03 J If the page number is valid, it will be packed, converted to binary and moved 
^^ into the 'COMMAND' work field. This workfield will later on (when the 

whole command is valid) be moved into the appropriate TCB (will be done 

in the 'CMND' routine). 
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A. Handle interruption. 
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(06) Lock SUCB chain. 



IPWSRSR 



(07) Reset wait ECB. 

(08) If 'S'-state presented, or interrupt 
outbound for inbound, or message 
requested, or SETUP/GO and 
RESTART procedure not required: 

A. Unlock SUCB chain. 



IPWSRLR 



B. Reactivate wait ECB. 

C. Wait for reactivation. 
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(09) Reset SETUP/GO, RESTART 
procedure required indicators. 

no) Reset intervention required indicator. 
(Tj) If 'S'-state is presented : 
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SUSPEND1 may be entered because of: 

A. Activation of SETUP/GO procedure. 

B. Interrupt outbound destination for pending message (s) to be send by message 
processor on this session. 

C. Interrupt outbound destination and set secondary logical unit into send state 
to allow remote station to submit any inbound data. 

Initiation of SETUP/GO procedure is signaled by the logical writer by setting the 
command request word to blanks, when: 

D. The logical writer detects a new queue set that requires new forms on printer or 

punch. In this case message '1Q40A' has been queued by the remote station by 
logical writer. 

E. The end of the setup stream is reached. 
(KB) Message 1VT7A: 

1 V17A "TTT" SUSPENDED FOR FORMS MOUNT. 

Message 1V18A: 

@ 1 V18A "TTT" REPLY WITH RESTART ON INTERVENTION 

REQUIRED. 

@ SUSPEND2 may return with TCBTT set to STOP, FLUSH, HOLD. 

|)8tJ Communications with remote operator for SETUP/GO procedure may be 
performed on different sessions. In that case the outbound processor must 
wait for further notification and may be reactivated by either 

- SNA manager or 

- Inbound processor or 

- Message processor. 

After reactivation message processor will reset LUMR, outbound processor resets 
LUSG or inbound processor will reset LUCR. 

(m This is to replace dummy record and make either SETUP/GO procedure or restart 
command effective. 
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A. Set send indicator for FMH. 
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D. Indicate 'S'-state. 

E. Queue message 1V07I. 

F. Indicate break. 

(04) If IDS was sent 

A. Indicate datast ream inactive. 



(05) Reset send indicator. 

(06) If 'S'-state is presented: 
A. Lock SUCB chain. 
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(b?) If destination not active: 
Send FMH (IDS). 



SENDFMH 



(08) If negative response received: 

A. If intervention required not 
indicated: 

B. Analyze return code 

Egg|> j TESTRPL 



C. 

D. Indicate 'S'-state. 
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Post the SNA work ECB 



Unlock the SNA unit control block chain via 
the IPW$RLR macro — — — — — — 



* IPW$RLR 



Issue the IPW$WFI macro to wait for completion 
of the message processor -^-^— ^— — — 



=>(£) Check if the task is in 'S' state 
Yes No 

Indicate continue any mode 
Indicate no FMH ~ 
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Indicate change direction : 
Call SENDFMH 



* Check if an error occurred 
No Yes 

Indicate 'S' state : 



^ SENDFMH 



Calculate message index 
Indicate break sense 
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Reset the live bit in the ECB 



Lock the SNA unit control block chain 
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Indicate that the outbound process is 
suspended for the message processor ~ 
Set select indicator zzzzzizzzzzizz: 
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Post the SNA work ECB 



-SUOI 
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Unlock the SNA unit control block 
chain via the IPW$RLR macro — 



Issue the IPW$WFI macro to wait for 
reactivation by the inbound processor 
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J ^> un Check if the task is in 'S' state 
Yes No 
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Indicate than an FMH is to be sent zzzn 

Indicate suspended data stream resumed 

Call SENDFMH .________- 



SENDFMH 



Check if an error occurred 
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Set backup page counter 
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I CANCEL 



Cancel the outstanding outbound request unit 
(RU) chain 
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Reset the live bit in the ECB: 
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Save the pointer to the POWER/VS save area : 



I I 

^C>" Get the address of the VTAM save area in register 1 3F 

" l 

i> Point register 1 to the RPI ~ 



Indicate no data to be sent : 
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Issue the VTAM SEND macro- 



-► SEND 1 



=£>• Reset the pointer to the POWER/VS save area : 
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(V)check if the SEND request has been accepted' <^ 



No Ye; 
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I Cal 



Yes 

Call CHECK- 



► CHECK 



(3)Check if an error occurred 
No Yes 

t 

Indicate 'S' state z 



Calculate message index : 
Indicate break sense ~ ' 



Return 



Indicate between chain state zz 
z O Set address of buffer in process: 
=0 Set address of buffer to send — 
z O Indicate buffer empty — 



Set current buffer pointer ; 
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Address of WARP - 
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From calling routine (CHAINEND, CLOSE, SENDFMH, GETSENSE, LUSTATUS, CANCEL, NEWRU) 
I CHECK 



Wait for the VTAM function to be finished and check 
the completion status 



(T) Point register 1 to the ECB- 



Issue the IPW$WFC macro to wait for VTAM 
to complete "■"■^■^ ■""-^-"^"■" 



-^^ Get the RPL address in register 1 : 



Issue the VTAM CHECK macro to check- 
the completion status 



=£> Reset the pointer to the POWER/VS save area 
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O Save the pointer to the POWER/VS save area : 
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= n^ > " Get the VTAM save area address in register 13 



I 




I I 
■ CHECK <] 



TCB 



=> R1t 



TCB13 



=0 



RD 



=>L 



R1 



RD 



Return to Calling Routine 



Chart MH 18 



■ -TCBEB 






C 
W 



O 

EC 
w 
o 



Extended Description 



Include Segment Call Subroutine/Macro 



Chart 



© 




IPW$WFC (POWER/VS) 
CHECK (VTAM) 





00 

-J 



Chart MH 18 



00 



U 
C 

< 

o 

w 
% 

N 

< 
CD 


vQ 
H- 
O 



TCBTJ- 



WA0J- 



TCBCC- 
TCBTI- 



LUSG- 
LUMR- 



sues 



WAAS- 



TCBQV f : 
TCB 



WACB 



TCB 



LUCB 



SUCB 



WACB 



1 
© 



Called by MAINLINE, Chart MH2 

1 CHAiNJOB (Part 1 of 3) 



Chart MH19 



© : 



Process one punch job, or list job 
until EOJ is encountered. 



RESTART: 
" C v^°' nt re 9* ster ^ t0 tne master Queue record : 

z O Check if punch output is needed 
No Yes 



QRDS 



=> R1t 



Calculate the shift number. 
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Set the shift number to 1 - 
Indicate no RU to send ~ 



(7)Check for: 

:C> • no EOJ, and 
=[> • no SETUP command, and 
:£>■ • no external interrupt, and 
z^> • no messages queued or 
=> CONSOLE=NO 
z[> • Device is a list device 



Yes No 
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Calculate the validation byte of the command code - 
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LINE(4) 
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Check if the command code is valid ^C^z 
No » 
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FILLLR 



Fill a logical record with data and/or controls 



(¥)check if ASCII is required 
No Yes 

I ? 

1 Translate the record into ASCII 

Initialize the logical record counter to 1 - 
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O (4)Check if compression and spanning of records 
is required 



No Yes 
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COMPRES 

ICompress print records 



NOCOMPRS 

(5) Move records from the logical record to the! 
request unit (RU) 







(6)Check if a new request unit is needed 



No Yes 

NEWRU 



Send the request unit to the logical 
unit 
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Reset RU indicator - 



C^ Check if the task is in 'S' state, or if a new 
^O logical record is needed 

Yes No » (4) 

(s) Issue the IPW$GLR macro to obtain a logical 

record from the logical writer — — — ■»► JPW$GLR : 
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(9) Check if EOJ has been reached <C]z 
No Yes 



Indicate EOJ : 
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Extended Description 
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The validation table (VALIDAT) is used to check whether a punch or print command for a particular 
device is valid. The table consists of 256 bytes, each of which correspond with a command code. 
Each bit position m a byte represents a punch or printer device. If the bit is on, the corresponding command 
for the device is valid. If the bit is off, the command will be ignored. To test the bit, it is shifted to the 
low order position. Therefore, the byte is devided by a number (VALINDEX), which is calculated with 
the help of the device type (QRDT) found in the queue record, and a device table (DEVTAB). 
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Fill a logical record with data and/or controls 



C>(l)Point register 2 to the SNA workarea : 



£>» Set record length to length of WALR-4 if it is bigger 
Set the record counter to zero — 



z^>(-0 Check if inter-record separators (IRS) are 
supported 

No Yes 

? 

^> Check if transparency is supported 

No Yes 



Insert transparency character 
* Insert count zzzzzzzzzzzz: 



Set record counter to 3 : 



Set record byte counter to 1 zz: 

(3) Insert logical record length z 
Insert inter-record separator: 
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(T)lnitii 



Initialize the scan counter to 1 

. Check if an immediate command is to be moved 
Yes No 
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Set record byte counter to 1 
> Update scan counter ^m^^ 



z£>Get the command code in register 1 
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Extract the count from the command code 



Check if the count is zero (carriage return) <c^ 
No Yes 

♦ 

Insert new Line character 




-^ > Check if a skip to channel command is to be moved 
No Yes 



INSERT 
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Check if skip to channel t 

No Yes 

A Insert forms feed 

Insert select character 



Increment scan counter by one 
Insert Second select character 
Increment scan counter by one 
Insert carriage return character 



6) Insert next line character 
Increment scan counter by one 
loop until all next line characters 
have been inserted ■™^™"" ■"■"■ 



Decrement scan counter by one 

zO(7j Update the logical record length 

z^>(8y Check if data has to be moved 
No Yes 

I t 

I Insert the data in the logical record 

Force unequal stop later by making extra Jast 
character different from previous character. 
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Compress print records 



(l) Initialze field counter to zero ■ 
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^>- Indicate maximum scan length — 

(the minimum of the remaining fields in the 
logical record, or 62) 

= j^ > Scan the logical record for blank characters 
and update the field counter— zzz 



ch 
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Check if there are two or more blanks <C]= 
No Yes 



Insert the string control byte ORed — 
with the field counter 

Decrement the residual count by one - 
Increment the position pointer by one • 
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(2) Initialize the field counter to 1, and then scan the 
logical record for duplicate characters and update 
the field counter 



Check if there are three or more duplicates 
No Yes 



Insert the string control byte ORed 
with the field counter 
Increment the position pointer by one 
- Insert the duplicate character 



Increment the position pointer by one 
Decrement the residual count by two 
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(3) Initialize field counter to one 



:: t> Indicate maximum scan length : 



(the minimum of the remaining number of bytes 
in the logical record, or 62, or the residual count 
in RU-2) 

Scan the logical record for non-duplicate characters 
and update the field counter— - 




Check if compaction has to be done and more 
than 2 non duplicate characters in string 



No 



Yes 
f 

Translate string into compacted code 

Check if all characters specified 
No Yes f 
I compact data 
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Increment the position pointer by one - 
Insert the non-duplicate characters : ~ 
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Increment the position pointer by the field counter : 
Decrement the residual count by the field counter - 
plus one 

(4) Increment the logical record byte counter by the — 
field counter 
C-> Check if there are at least 2 bytes left in the request 
unit 

Yes No 
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I Indicate end of RU reached zzz=zz=zz 
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^>Check if the logical record fits in the RU <c^z 
No Yes 
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.Insert the data 



Decrement the residual count by the 
number of bytes left in RU zzzzzzz 
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>WACRt L 
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Increment the position pointer by the 

number of bytes left in RU 

Increment the record byte record by the 

number of bytes left in RU 



> Check if there are any bytes left in RU 

No Yes — — ^— -^— — 
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Indicate end of RU reached — 
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— ~^-^>Check if spanning is supported 
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Send the RU to the logical unit 



TCB 



TCBTT- 



WACR- 
WABP- 
WABI- 



>C0 Cneck ,f tne RPL nas to be checked 



No Yes 

Call CHECK 



Check if there is an error condition*^]; 
No Yes 



WACB 



RPLAREA 



=>(T) Check if the task is in 'S' state 
Yes 




Indicate in chain state 



No 

t 

Swap the buffers: 

Indicate length of RU to be sent 

* Indicate buffer in process has to be sent 

* Buffer to send becomes buffer to process 

* Buffer in process becomes buffer to send 

Turn off first of chain indicator 
Turn off last of chain indicator 
Turn on middle of chain indicator 
Turn off only chain indicator 
ASCII indicator if required z 
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zOCheck if the process is between chain state 
No Yes 



Turn off middle of chain indicator 
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Reset the live bit in the ECB 



r[>Save the pointer to the POWER/VS save area 
Get VTAM save area address in register 13 
Get RPL address in register 1 — 



Issue the VTAM SEND macro to send the 
RU to the logical unit — — ^— 
Reset the pointer to the POWER/VS save 
area :z^=zizzziizzz=zzzzizizii= 



Check for an error condition 
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Indicate empty buffer 



;^>Set current pointer to beginning of RU 
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(by Get address of compaction table. C 

(02) Save position of SCB in string. C 

(03) Get highest value of master characters. C 

(04) Move string into request unit area. C 

(05) Translate string into compacted code. C 



(06) If 16 master characters specified: 

A. Combine two master characters. 

B. Increase byte counter. 
C. 

(07) If two adjacent master characters 
available: 

A. Combine two master characters. 

B. Increase byte counter. 

(08) Move complete byte to request unit. 

A. I ncrease byte counter. 

(09) Insert SCB ORed with byte counter. 
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(bl) Reset end of job indicator 
(02) Get logical record. 
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C. Set last send indicator. 
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(6l) Get CMPACT parameter from queue | 

record. 

(02) If compaction is not allowed: 

(OS) If compaction is allowed and requested 
or a default compaction table is requested 
requested and available: 

A. Invoke compaction processor. 




IPWSIOC 



B. If 'S'-state is presented or FMH3 
send indicator not set: 



D. Get address of compaction table. 

E. Move FMH3 to request unit. 

F. Set send indicator. 

G. Send FMHSto remote station. 



SENDFMH 
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Extended Description 



Include Segment Call Subroutine/ Chart 
Macro 



Each LOGON request is passed to the LOGON exit routine by VTAM. LOGON exit then allocates a 
LRCB, where it stores the LOGON request parameters. A request for IPW$$LH is set up. 

SNA-MANAGER attaches IPW$$LH, which retrieves 1 LOGON request and builds 1 SUCB, 1 LUCB f 
and 1 WACB to process the request. A VTAM inquire is issued to obtain the session parameters. The 
user data and bind parameters are checked for validity, and a session SUCB, LUCBs, and WACBs are 
obtained for the logical unit, which issued the LOGON request. A request for LOGON is set in the 
LUCB. SNA-MANAGER attaches IPW$$LN, which processes stage 2 of the LOGON. The session is 
established by using the OPNDST macro. Then messages to the central and remote operators are 
issued to inform on sucessful LOGON. The SUCB/LUCB are updated, and the LOGON complete is 
indicated in the LUCB. Finally, IPW$$LN detaches itself. 

In case of any error on OPNDST or SESSIONC, a message is issued to the central operator. The RPL 
is then analyzed for the error code to check if the session has to be terminated via CLSDST. 

If an error occurs on the CLSDST, no check request will be issued. Error testing on the check request 
is not relevant. 

If it was a LOGON request from a multi-logical unit, and it was not the first request from it, IPW$$LN 
takes no further action, and detaches itself. 

If it was a LOGON request from a single logical unit, or it was the first one from a multi-logical unit, 
any messages already queued for this logical unit (i.e., broadcast messages) are deleted from the queue. 

The SUCB is unchained from the active SUCB-LUCB chain, and the space for the WACB, SUCB, and 
LUCB is released. Then IPW$$LN detaches itself. 
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(04) Start data traffic 
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(g) DETACH. 
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process: 
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(Om Set up addresses for VTAM save area and RPL, initialize ECB in TCB, set 
LUCB address into NIB. 








(02) The OPNDST is processed asynchronously, the initial acceptance is 
checked, and a wait for completion is issued. After final completion, 
the ECB is posted, and the RPL is checked. 








(03) If no error occurred, the CID of the terminal is copied from the RPL 
to the LUCB. 








(0*) The SESSIONC SDT request is processed asynchronously. 








(05) Clear TCB address in LUCB to indicate LUCB is inactive, and set LOGON 
complete indicator. 








(06) Message "1 V09I" REMOTE xxx LOGGED ON TO POWER ON LUNAME" 
is presented, both to the central and remote operator to inform them 
about successful LOGON. 








(Si) A IPW$DET is issued to detach IPW$$LN and to pass control to the 
task selection in IPW$$NU. 








(09) Reject the LOGON request via a CLSDST request, free space, delete 
queued messages. 
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INITOPN 

(0|) Initialize RPL. 
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- ECB address. 

£2) Initialize NIB. 

- LUCB address. 



BIND parameter address. 
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Extended Description 



OPNDST 

(m) Set reason code for message 
1 V06I, in case OPNDST fails. 

(02) Issue VTAM OPNDST request to 
establish the session. 

@ Wait for OPNDST completion 
via IPW$WFC. 

(£4) Issue VTAM CHECK request to 
check for final completion of 
OPNDST. 

(05) If error occurred on OPNDST or 
CHECK: 
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(bf) The OPNDST is processed asynchronously. An ECB will be 
posted, when VTAM completes the OPNDST request. 

(03) A POWER/VS wait is issued to wait on the ECB to be posted. 
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(Si) Point to RPL. 



(02) Copy CID of terminal from RPL 
to LUCB. 
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The CID of the terminal has to be known to POWER/VS, before start 
data traffic is given. The CID is used by the SNA-MANAGER to 
indentify the session, when the receive any RPL is posted. 
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Set reason code for message 
1 V06I, in case SESSIONC fails. 
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Issue VTAM SESSIONC SDT 






request to start flow of messages 
and responses between 
POWER/VS and the logical unit. 
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Wait for SESSIONC completion 
via IPW$WFC. 
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Issue VTAM CHECK request to 
check for final completion of 
SESSIONC SDT. 
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@ Reserve SUCB/LUCB chain via 
IPW$RSR. 

{02) Complete information in LUCB. 

A. Set TCB address of IPW$$LN 
to zero to mark LUCB 
inactive. 



B. Indicate LOGON complete. 

C. Set SELECT byte. 

(03) Unlock SUCB/LUCB chain via 
IPW$RLR. 
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LOGMSG 



V09I in message definition 
module. 



(63) Present LOGON message to 
central operator via lPW$WTO. 

(03) Get remote ID of logical unit. 

(04) Queue LOGON message for 
remote operator via IPW$RMS. 
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<J)j) Message "1 V09I REMOTE xxx LOGGED ON TO POWER ON LUNAME" 

(04) SNA-MANAGER will find a message queued for the REMOTE-ID and 
attach a message processor to transmit the LOGON message. 
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REJECTLG 

{O}) Present RPL status message 
1 V07I to central operator via 
IPW$WTO. 

(63) Pick up reason code for message 
1 V06I and present it to central 
operator via IPW$WTO. 

(03) If error code in RPL indicates 
CLSDST can be skipped: 



(04) Issue VTAM CLSDST request. 
Wait for its completion. Issue 
VTAM CHECK request. 
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(05) If error occurred during CLSDST: ES?*>(l3) 



(06) Reserve SUCB/LUCB chain via 
IPW$RSR. 

(07) If LOGON from single logical 
unit (SUN1=1) or first LOGON 
from multi-logical unit 
(SUN2=1): 



@ Set LUCB free. 

(09) Unlock SUCB/LUCB-chain via 
IPW$RLR. 
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(Tn Release queued messages. 



RELMSG 



MJ11 



(n) Release control block storage. 



WviiivX^ 


FREESPAC 


4&m& 


MJ12 
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(p?) Message for OPNDST or SESSIONC error: "1 V07I ERROR ON REQUEST, 
^^ RTNCD, FDBK2 = xxxx, SENSE = xxx ON LUNAME". 








@ Message "1 V06I UNABLE TO LOGON LUNAME RC = xxx". 








@ If (RPLRTNCD=16 & RPLFDBK2=10) or (RPLRTNCD = 20 & 
RPLFDBK2=18) no CLSDST request can be issued. 








(S) The CLSDST request is processed asynchronously, the initial acceptance 
by VTAM is checked, and if no error occured, a IPW$WFC macro is 
issued to wait for final completion, and a check is issued after it. 
If an error occured on initial acceptance, no wait and no check will 
be issued. 








(o?) If not first LOGON from multi logical unit, space for the control blocks 
for the work station cannot be released, because it is in use by other 








sessions on same work station. 








(os) In this case only the LUCB for the session in error is set inactive. 








(p) Message "1 V07I ERROR ON REQUEST, RTNCD, FDB2 = xxxx, SENSE = 
W xxx on LUNAME. 
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(57) If SUCB, which is to be unchained, 
is not the first in the active SUCB 
chain (SNFS does not point to it): 



toy Set address which is in "NEXT 
SUCB POINTER" into SNFS, so 
the SUCB points now to SUCB"B" 
and SUCB"A" is unchained. 



Qj) Scan SUCB chain for SUCB to be 
unchained. 

(04) Set its SUNX pointer into the SUNX 
pointer of the previous SUCB. 

Example: SUCB"B" has to be 
unchained. Set its SUNX pointer of 
SUCB"A", so this will now point 
to SUCB"C", and SUCB"B" is 
unchained. 
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(bi) If no messages queued for 
this remote- ID: 



(02) Set active msg-chain to 
temporary delete chain. 



(03) Delete the messages for 

this remote REMOTE-ID via 
IPW$RMS. 
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(6n Messages (i.e. from broadcasts) can be queued for a remote - id, as soon as 
its SUCB is chained to the active SUCB - chain. As the SUCB was taken out 
off the chain in routine DEQSUCB, no messages can be queued any more. 

(02) These messages have to be deleted from the message queue. 
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LUCBs. Number of LUCBs is 
contained in SUCB. Release 
virtual storage via FREEVIS. 
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MAINLINE 



(0?) Reserve LRCB-CHAIN. 



2L 



Reserve 



MK03 



(55) If not reserved by LOGON EXIT. 
(03) Wait for locked resource. 
@ Process 1 LRUB. 



....i.iRhv 


GETLRCB 
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@ Unlock LRCB-CHAIN. 

(06) Initialize SUCB/LUCB/WACB 
for inquiry. 



INITINQ 
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A. If SNA stop request set: 
@ Process VTAM INQUIRE command. 



m 



INQUIRE 
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(6i) Validate user data. 



timjp> 


TESTUSER 
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TESTBIND 
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rto) Merge PftMT characteristics to 
SUCB- LUCB. 



USERCHAR 
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(jj) Get session WACB. 





GETWACB1 
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(n) Get session SUCB - LUCB if 
subsequent LOGON. 
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GETSULU 
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A. If subsequent logon: 
(n) Get work station WACB. 



GETWACB2 
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(5) Initialize SUCB-LUCB. 



1NITSULU 
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(l5) Initialize session WACB. Copy 
RPL, NIB, BIND from LOGON. 



^^% |Y« i Y i Yi 



INITWACB 
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@ Request SNA-MANAGER to 
attach JPW$$LN for OPENOST 
processing. 
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ATT$$LN 
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@ Post work ECB. 

(j?) If not all LRCBs processed then: 



Q?) Error processing. 
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© 


A lockword is set to inform the LOGON EXIT that IPW$$LH processes 
the LRCB-CHAIN 








© 


If LOGON EXIT already processes the LRCB-CHAIN itself, a wait in IPW$$LH 
is issued, until LOGON EXIT unlocks the CHAIN. 








© 


Etc. 








© 


Scan LRCBs for active LRUB, merge LUNAME to LOGON LUCB, 
release virtual space if 1 LRCB completely processed. 








© 


Unlock the LRCB-CHAIN. 








© 


Move RPL and NIB image to WACB. Initialize RPL and NIB. 








© 


Issue INQUI RE command to get the session parameters. Issue 
IPW$WFC to wait until VTAM completes the request, check the RPL 
for errors and deactivation. 








© 


Validate the user data for REM ID, LUNAME defined in PRMT (OPT.), 
PASSWORD (OPT.) and USERINFO. 








© 


Test the BIND parameters,, e.g. for alternate code, COMPACTION, 
RU-SIZE. Check if they match the POWER profile. 








© 


Get virtual space for one WACB. Length of buffers according to 
RUSIZE in BIND parameters. This WACB is used for LOGON, 
INBOUND and LOGOFF. One WACB is attached to each LUCB. 








© 


Get virtual space for the session SUCB - LUCB (S) r according to 
SESSLIM- VALUE. 








© 


Initialize the SUCB- LUCBs. 








© 


The WACB obtained in step 1 T is used for LOGON processing in IPW$$LN. 
The WACB of the session inquire LOGON NIB/RPL is merged to this 
WACB for OPNDST processing. 








© 


Attach IPW$$LN to establish the session. The session related control 
blocks SUCB-LUDBS-WACBS are set up, IPW$$LN is reentrant 
to process one or more OPENDST requests in parallel. 








© 


Storage is freed using the FREE VIS macro, messages for the central 
operator are queued. This routine is entered, when a GET VIS or a 
VTAM request fails, when erroneous user data or BIND parameters are 
detected or a SNA stop state is indicated. In all cases the logon request 
will be refected via CLSDST. 
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MAINLINE Processing 




c> 



GETLRCB 



(ST) If no active LRCB. 



(02) Scan LRCB for active LRUB. 



(03) Set LUNAME and length of 
logon message into LUCB. 



© Deactivate LRUB 

(05) If all LRUBs within 1 LRCB 
processed: 

© Return to MAINLINE. 



© Release LRCB space to GETVIS 
area, update LRCB-CHAIN 
pointers. 
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Extended Description 



Include Segment Call Subroutine/ Chart 
Macro 



© 


If SNLR contains all zeros, no LRCB is chained. 








© 


Each LRUB within a LRCB contains a status byte (LRST) which is set 
to ' ON ' when a LRUB is filled with data by LOGON EXIT. 








© 


A LRUB entry contains the address of the luname which requests logon, 
and the length of userdata, entered with the logon request. The LUNAME, 
pointed to by LRLU is moved into the LUCB (LULU), and the message 
length is saved into LUCB (LUCD). 








© 


The LRUB space is marked deactive (RLST = OFF). LOGON EXIT can use 
this entry within the LRCB again. 








© 


If all LRUBs within a LRCB are processed, the LRCB can be released back to 
the GETVIS area. The LRCB-CHAIN is updated. 








© 


No LOGON requests are pending, and mainline detaches IPW$$LH. 








© 


See text of process No. 5. 
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Extended Description 



INiriNQ 

(Oj) Copy the RPL and NIB images to 
work area. 

(02) Initialize RPL: 

- NtB address 

- ACB address 

- f CB address 

- BiND-AREA address 

- RU-SIZE 

(03) Initialize NIB: -LUNAME. 

(S3) Set LUCB-address in user field of 
NIB. 



£> 




■ 


WACB 










WARP(RPL) 


WANB(NIB) 











MAfNLfNE 



Include Segment Call Subroutine/ Chart 
Macro 



(Si) At assembly time a RPL and NIB image is build within IPW$$LH. These images 
^"^ are copied to the LOGON WACB's RPL and NIB area. 

(<3) The LUNAME is accessed in the GETLRCB routine and stored in the LUCB. 
^^ Now the LUNAME is moved from the LUCB to the Nl B. 
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INQUIRE 

(oi) Reset live bit in TCB. 

(S) Issue I NQUI RE command. 

(03) Issue IPW$WFC (wait for 
completion). 

(04) Issue check command. 



(63) Error handling. 
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Extended Description 
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Call Subroutine/ Chart 
Macro 



WlS The INQUIRE command is processed asynchroneously by VTAM. Upon final 
^"^ completion, a ECB, pointed to by the RPL, and located in the TCB, is 
posted, the traffic bit has to be reset before issuing the request. 

(K) Upon initial completion of the inquire command (acceptance by VTAM), the 
^"^ return-code in REG. 15 is checked. 

(53) A wait for completion is issued on the ECB for VTAM's final completion of the 
^^ inquire command. Upon final completion, the ECB is posted, and IPW$$LH 
gets control. The execution return-code in REG. 15 ist checked. 

uMl A VTAM check macro is issued to deactivate the asynchroneously processed 
^"^ RPL. 

(05) Present message "1 V07I ERROR ON INQUIRE RTNCD, FDBK2=xx" 
^-^ followed by message "1 V06I UNABLE TO LOGON LU" to central 
operator. Mainline will call error processing. 
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TESTUSER 

Set REG. 14 to point to user data 
in BIND-AREAinWACB. 



(02) Scan and validate REMOTE-ID 



(03) Scan and validate password 



(04) Scan and validate user data 



05) 



Validate if LUNAME is allowed 
with this REMOTE-ID. 



(06) Error handling 
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Extended Description 



Include Segment Call Subroutine/ Chart 
Macro 



(02) Routine name * REM ID 
U)3) Routine name = PASSWORD. 
(S) Routine name = USERINFO. 

(05) Routine name * LUNAME. 

(06) Message "1 V26I INVALID REMOTE-ID, PASSWORD OR LUNAME", 
^^ followed by message" 1V06I UNABLE TO LOGON LU" is presented to 

the central operator. 

Reason code for message 1 V26I: 

RC = 30 Invalid REMOTE-ID. 
RC - 31 PASSWORD error. 
RC = 32 LUNAME error. 
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TESTBIND 

(on Test mandatory bits for presence. 
Enforce bits. 

© Set LUCB indicators for: 

A. Print compression if in BIND. 

B. Transparent PUNCH & I RS. 

C. Print SPANNING. 
© If no ASCII set in BIND: 

Set in LUCB: 

— No print compression. 

— No transparent punch. 

— ASCII print card. 

(04) Check if RU-sizes fit into limits, 
and delimit them to PRMT 
values if necessary. 

(oi) if presentation services data 
present: 

© Set POWER BIND profile for 
presentation services. 

(0?) If compression not allowed 
then: 
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Processing 



(65) If compaction not allowed 
then: 

(09) Indicate compaction in LUCB. 

(10) Set CARD/DOC. 
INBOUND/OUTBOUND allowed 
in LUCB according to BIND 
parameters. 




(n) Error handling. 
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© 



If mandatory bits are not set, BIND data is invalid, and LOGON REQUEST is 
rejected. Enforced bits are set according to the specifications. SLU will test 
them with the OPNDST command. Variable bits cause indicators to be set 
in the LUCB according to the specifications. If presentation service data is 
ommited in the BIND data, following POWER profile is set, starting with 
byte 14 (BINLUP) of the BIND data: 



Bvte 


He*, Value 


14 


01 


15 


10 


16 


00 


17 


00 


18 


F1 


19 


00 


20 


CO 


21 


00 


22 


00 


23 


01 


24 


00 


25 


40 


26 


00 



RU size for PLU and SLU is, if not X'85' enforced to X'85', 
which means RU size of 256 bytes (8* 2** 5=256). 

(02) Present messages "1 V34I BIND DATA", "1 V08I ERROR ON BIND" 
^"^ "1 V06I UNABLE TO LOGON LU" to central operator. 
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USERCHAR 

(5$) Move LOGON date and time into 
SUCB and LUCB. 



(02) Get user-defined characteristics 
from the PRMT table entry in 
the RMCB, and merge them 
into the SUCB. 

(53) Initialize device list, classes, 
message index, FORMS-ID in 
SUCB and LUCB. 




MAINLINE 



SNWS ^ SUCB 




1 Hi 












LUCB 




TT 

















o 

ct 



-co- 
</> 
tr" 



G 
cn 
in 

8 

JO 



Chart MK9 



v y 






Input 



GET AREA 
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SNRM 
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LUBS 



R15 



MAINLINE Processing 




£> @ Get WACB space from GETVIS 



i> 



GETWACB1 



area. 
(62) If: 



GETVIS not successful 
(R15 0)or 

WACB not in its pool 
(R1 SNRM or 
R1 SNSP). 



(63) Clear space to all zeros. 



(04) Error exit. 



Output 



Chart MK10 Q 



■cn- 







Extended Description 
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Macro 



(Ot) This WACB is attached to the LUCB and is used for LOGON, INBOUND and LOGOFF 
^~*^ processing. The space is obtained from the WACB pool, and the buffersize is 

according to the requested RU-size, specified in the PRMT and in the BIND 

parameters. 

(S3) MESSAGE "t V06I UNABLE TO LOGON LU" is presented to the central 
^^ operator. 
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Output 



GETSULU 



(jn) If no SUCB/LUCB exists at all: 

(02) Scan SUCB-CHAIN if REMID 
already logged on. 

(03) If REMID already exists: 

(04) Compute length of GETVIS-area 
for new SUCB/LUCBs. 

(05) Get space and clear it. 



@ Scan LUCBs for this REMID for 
a free one. 

@ If all LUCBs in use: 



(65) Merge LOGON LUCB into free 
LUCB. 



(69) Error handling. 
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Upon entry , lock SUCB/LUCB-CHAIN by issuing a IPW$RSR macro. SNFS 
in the SNCB contains the address of the first active SUCB. If SNFS is zero, no 
SUCB exists at all. 








© 


Check SUCB/LUCB-CHAIN, if REMOTE - ID of LOGON SUCB already 
logged on. If not, a complete SUCB - LUCB - WACB structure has to be 
obtained from GETVIS area, and has to be initialized. If already logged 
on, only the LOGON LUCB has to be merged to a free LUCB of the 
REMOTE-ID. 








© 


The length of the SUCB/LUCB space is computed according to following 
facts: Length of one SUCB, plus length of one or more LUCBs. The 
number of LUCBs is defined with the 
sesslim-parameter in in the PRMT macro, and set into the RMCB. 








© 


Get the SUCB/LUCB space from the GETVIS area, and clear the space 
to hex zero. 








© 


Scan the LUCB chain for this REM ID to find a free one. A free LUCB is 
indicated, when LUF1 = OFF. 








© 


If all LUCBs for this REM ID are occupied, the LOGON request has to 
be rejected. 








© 


Unlock SUCB/LUCB - CHAIN with IPW$RLR macro. 








© 


Free the previously obtained space for the LOGON/INBOUND/ 
LOGOFF WACB, using the FREEVIS- macro. Present message 
"1 V06I UNABLE TO LOGON LU" to central operator. 
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GETVrS AREA 



R15 
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GETWACB2 



(oi) Get space for one WACB from 
GETVfSarea. 

(g) If: 

GET VIS not successful 
CRti m or 

WACB not in its pool 
(Rf SNRMor 
R1 SNSP>then: 



(63) Clear space to zero. 
@ Chain WACB to SUCB. 
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(05) Error exit. 
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Extended Description 



Include Segment Call Subroutine/ Chart 
Macro 



f(m This WACB is attached to the SUCB, and can be attached to any LUCB within this 
^-^ workstation. It is then marked to be in use, and can be used by the session to 
process inbound requests. 

(05) Free the previously obtained virtual space for 

^-^ LOGON/INBOUND/LOGOFF WACB and SUCB/LUCB using the FREEVIS 
macro. 

Present message "1 V06I UNABLE TO LOGON LU" to central operator. 
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Extended Description 



INITSULU 

(5T) Move LOGON SUCB/LUCB to 
session LUCB. 

(S) Set first LUCB active. 



(63) Chain LUCBs to each other and 
to SUCB. 



(04) Obtain real storage via IPW$RSW 
for the work station lockword. 

(05) Chain SUCB on top of SUCB/LUCB 
chain. 



Output 
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LUCB 


LUPR=0 
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(pi) The length for the move is the length of 1 SUCB plus 1 LUCB. 

(03) Each LUCB has a pointer to its SUCB, and each LUCB has a pointer to the next, 
^^ and a pointer to the previous LUCB. For the first LUCB, the previous pointer 
is zero, for the last LUCB, the next pointer is zero. 

(65) The new SUCB is chained on top of the SUCB/LUCB CH Al N, using the 
^-^ compare and swap instruction. 
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WACB 



LUCB 



INITWACB 

(Si) Copy LOGON WACB into session 
WACB. 



(S) Chain session WACB to its LUCB. £ 
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MAINLINE 
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J m 
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BINDAREA 
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Extended Description 
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Macro 



(Si) The LOGON WACB contains RPL, NIB and the BIND parameters. This 
WACB is copied into the session WACB for opendst processing 
in IPW$$LN. 
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SUCB 



£> 



ATT$$LN 



(Si) Copy OUTBOUND CARD/PRINT 
data flow information into SUCB. 



(02) Set "REQUEST FOR LOGON" to 
inform SNA-MANAGER to 
attach IPW$$LN to this 
session. 

(03) Set select byte for this LUCB to 
'S'. 

(£) Clear TCB address of IPW$$LH. 
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Extended Description 
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ft)?) The SNCB contains a summary of outbound CARD/PRINT dataflow, which 
^^^ is indicated in the bind data. This summary is used to check in the SNA - 
MANAGER if there is at least one session BOUND which allows card or 
print outbound data flow for a workstation with a MLU concept. 

(03) SNA MANAGER'S LOOK FOR WORK" routine scans all LUCBs 
^-^ for the select indicator 'S' in LUSL. This major scan argument indicates 

that an action for this LUCB has to be started. Further analysis of the 

action bytes in the LUCB will cause the appropriate task to be attached. 

If LURO is set, SNA MANAGER will attach LOGON PROCESSOR2 

IPW$$LN to process stage2 of the LOGON process. 
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REJECTLG 

€) ,f: 

A. GLSDST in progress or 

B. USER LOGIC ERROR 
indicated in RPL: 

(02) Close the session via VTAM 
CLSDST request. 

(03) Wait for CLSDSt completion 
vialPW$WFC. 

@ If CLSDST O.K.: 

(oi) Present error message. 

@ Return to MAINLINE. 
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(Si) RPLRTNCD I X '10 ' I X ' 14 ' j 








RPLFDB2 | X ' 0A' | X ' 12 'I 








In both cases do not issue a CLSDST request to VTAM. 








(65) Present MSG "1 V07I ERROR ON CLSDST', to central operator. 
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REMID 



(oi) If REMID is not numeric. 

(02) If length of REMID not within 
ranges. 

(03) Set REMOTE-ID in character and 
binary format into SUCB and TCB. 



@ If REMOTE-ID not within ranges 

for sna-remote-ids. 

(05) Compute address of REMOTE-ID 
entry in RMCB. 



@ Error exit if invalid REMID. 
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This entry contains all information specified in the PRMT macro, and is used 
for further checking of password and LUNAMES, and to set up the 
SUCB/LUCB with the user characteristics. 



06) Testuser error messages: 



1V26I RC30, 1V00I 
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(01) If no PASSWORD entered, set 
its length to zero. 

(02) Compute its length. 

@ If no PASSWORD specified in 
PRMT macro. 



(04) If length of entered PASSWORD 
does not match length of 
specified PASSWORD: 



£> (05) If matching PASSWORD: 



(06) Error exit, invalid PASSWORD. 
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(05) Error message in TESTUSER: 
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(01) Initialize user information field 
in LUCB to 'blank'. 

(02) If no user information entered: 



(03) IVIove user information with a 
maximum of 16 bytes to LUCE, 
translate to upper case. If more 
than 16 characters entered, 
truncate to 16. 
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@ If no RMCB table entry pointer 
to a LUNAME string: 



(02) Scan LUNAME string for a match 
with the LUNAME stored in LUCB 
(LULU). 

© If matching LUNAMES: 
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(St) No LUNAME checking required for this REMOTE-ID. 








(E) Present error message in TESTUSER. 








1V26I RC = 32, 1V06I 
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Provide name of default 
compaction table. 
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the same compaction table then: 

A. Set FMH3 SEND 
indicator. 

otherwise 

B. If entry in COCB is valid: 

C. Set FOUND indicator. 

D. Set IN USE indicator. 
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(qq) Search for requested compaction 
table. 
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10) If name found in a COCB: 

A. Increase USE counter. 

B. Store address of entry in 
COCB. 

C. Store compaction table 
name. 

D. If default compaction 
table requested: 

E. Set default indicator. 

F. Set FMH3 SEND indicator. 

G. Set IN USE indicator. 
H. 
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(12) If name not found in a COCB 
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A. Search for free entry in 
a COCB. 
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H. If 'S'-state is presented: 
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J. Reduce actual GETVIS 
counter. 
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table. 
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6. Queue message V31 1 
H. Indicate 'S'-state* 

(u) If a message has been queued: 
A. Send message to remote. 



@ Unlock COCB eham. 



SENDMSG 
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(85) WAF3 is set whenever a management header type 3 (FMH3) has to be 
^"^ transmitted to the workstation. FMH3 represents the compaction table 
which has been used for a job. 

(03) WACF is set whenever a valid compaction table (that means the table 
set generated by use of PCPTAB - macro) is available for a job. 

@ SNCA contains the address of the first CQCB in chain. If SNCA = 
means that no CQCB exists and therefore the first COCB in chain 
has to be generated. 
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(OS) If GETSPCE1 returns with 'S' - state, that means that providing an 
GPCB was not successful. A branch back to the outbound processor 
IPW$$OB is made where the CLOSE routine will detach the outbound 








processor. 








(06) If the CMPACT parameter in $$LST statement is omitted the default 
compaction table specified in SUCB has to be used for the job. 
LDPN1 and LDPN2 are used as fields in a local directory list for 
a later SVC4, 








\07) LUOI and LU02 in LUCB contain the name and the address of 

the currently active compaction table. If the last job used the same 
compaction table FMH3 must not send to the workstation. In 
this case WAf 3 still remains not set and a check has to be performed, 
whether the compaction table name in LU01 matches the name 
in COCB pointed to by LU02. This check is necessary, because 
in the meantime the COCB entry might have been overridden. 








(09) After return from CPTSCAN, R2 will contain the address of the entry 
^■^ in a COCB if the search was successful/that means the compaction table 

name was found in a COCB. If R2 contains zeroes, the search was unsuccessful. 

ARG contains the name of the requested compaction table and J sets the 

position in each entry where to compare with search argument as following 

figure shows: 










COCB 
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COCB - header 




COCB - entry 


1 


name I address I identifier 1 use count 1 length 










1 9 

J ► 

In this case J is set to the position of name in a COCB entry. 








(l$) R2 contains zeroes after return from CPTSCAN. Further GETVIS is 
^-^ allowed if the total GETVIS counter COTG is greater than the actual 
GETVIS counter CO AG. After each successful GETVIS COAG is 
increased by one. For the whole COCB chain COTG and COAG are 
maintained only in the first COCB. ARG contains zeroes, J is set 
to the position of the USE count in a COCB entry. 








(t3) Further GETVIS is not allowed if COTG <= COAG. 
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GETSPCE1 

(oi) Load pool address. 

(02) Load length = 1 K. 

(53) Issue 

GETVIS,PAGE=YES,POOL=YES. 

(04) If GETVIS was not successful: 

A. Queue message V28I 

B. Indicate 'S'-state. 

C. If return address outside 
pool: 

D. Issue FREEVIS. 
E. 

(05) Initialize COCB. 

(06) If this is the first COCB in chain: 

A. Set pointer to first COCB. 

B. Store total GETVIS counter. 

C. Set actual GETVIS counter. 

D. Set member of entries 
in COCB. 

E. Set address of first COCB 
entry. 
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(03) The requested storage area starts on a page boundary and is located 
within the compaction table pool. 

u)4) That means R15 contains a return code other than zero, or R1 contains 
an address outside the compaction table pool 
(R1 < SNCP). 

@ Message V28I: 

1V28I GETVIS FOR COMPACTION 
TABLE CONTROL BLOCK FAILED 

Qj§) That means that SNCA contains zeroes. For the whole COCB chain 
total GETVIS counter COTG and actual GETVIS counter COAG 
are maintained in the first COCB only. 
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GETSPCE2 

Load pool address. 

Load length = 1 K. 

Issue GETVIS, POOL=YES. 

If GETVIS was not successful: 

A. Queue message V29 1. 

B. Indicate 'S'-state. 

C. If return address outside 
pool: 

D. Issue FREEVIS. 

E. 

Increase actual GETVIS 
counter in first COCB. 
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(04) That means R1 5 contains a return code other than zero, or R1 contains 
an address outside the compaction table pool 
(Rt <SNCP). 

@ Message V29I: 

1 V29I : GETVIS FOR COMPACTION 
TABLE FAILED. 

(65) For the whole COCB chain total GETVIS counter COTG and actual 
GETVIS counter COAG are maintained in the first COCB only. 
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CPTSCAN 



(bl) Clear R2 



(02) Set COCB pointer to first COCB 
in chain. 

(03) Set scanner to first entry. 

(04) Restrict scanning through active 
entries only. 

(65) Scan through COCB chain. 
(06) If requested entry found: 

A. Save COCB address. 

B. Get entry address. 
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(05) For scanning thru COCB chain the search argument is passed by ARG, 
the position in COCB entry by J from MAINLINE routine. 
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(6T) Create parameter list for 

compaction table to be loaded. 



(02) Issue SVC4 (TXT=NO). 

(03) If compaction table not found: 

A . Qu eu e message V30 1 . 

B. Indicates 'S'-state. 

(04) Calculate phase length. 

(05) If phase length greater than 1 K: 

A. Queue message V32 1. 

B. Indicate 'S'-state. 
@ Issue SVC4 (TXT=YES). 

@ If FMH3 is not available: 

A. Queue message V32I. 

B. Indicate 'S'-state. 
@ Update entry in COCB. 
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@ Message V30I: 

1 V30I: COMPACTION TABLE NOT FOUND. 

u)4) This check is necessary because user might have specified unintentionally 
a phase name, which does not represent a compaction table. As the 
compaction table generated by PCPTAB macro is always 1 K bytes 
long, phases with a length of 1 K bytes are considered as compaction 
tables for the first. 

@ Message V32I: 

© 1V32I: INVALID COMPACTION TABLE. 

wf) After loading the phase this check has to be done to be sure, that this 
phase represents a compaction table, generated by use of PCPTAB 
macro. 
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(Oy Upon entry, R15 is setup to contain the address of IPW$$VE, and is used as 
base-register for the initialisation routine. The initialisation routine is entered 
from the DOS/VS subtask in the SNA-MANAGER, and will return to it. 

(02) The address of the VTAM exit list is set into the VTAM ACB, located in the 
SNCB, prior to entering the INIT routine. The exit list itself is located in the 
SNA-MANAGER. 
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b2) Lock LRCB chain. 
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(§4) Unlock LRCB chain 

(g) Obtain LOGON SUCB/LUCB space. 
If already existent: 



SUCBGET 
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LOGON processor 1. 



(09) Post POWER MASTER ECB. 



@ Return to VTAM. 



@ If any error occured 
during process: 
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(6T) On entry to this routine, R1 contains the address of a 4-word parameter list 
(ACB-addr, addr of LUNAME, reserved, length of LOGON message). 
R 1 4 contains the address to VTAM. 

(02) The LRCB chain is locked to prevent a simultaneously UPDATE of one 
LRCB by LOGON exit and LOGON processor IPW$$LH. This might 
occur, when LOGON EXIT is interrupted due to a page fault, and 
POWER is activated by its PHO exit. 

^3) A check is made if a LRCB already exists. If not, a GETVIS request 
to DOS/VS is issued to obtain virtual storage to build a LRCB. It is 
looked for a free entry in the LRCB (if already existing). The VTAM 
parameter list is saved in the LRCB. 

(05) The first LOGON from a LU after SNA processing ist started. It 
causes the LOGON exit to obtain virtual storage via GETVIS 
request for the LOGON SUCB, LUCB and WACB. This storage is 
maintained during SNA processing and is used to handle further 
LOGON requests. 

Ql} An error occured on GETVIS for a control block. Dependent on 
the type of error, the storage is released and the LOGON request 
is rejected. 

As the LOGON processor 1 might wait for the locked LRCB-chain, 
POWER has to be posted to reactivate the LOGON processor in 
case no other action takes place within POWER. 
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SYSCOM 
H IJBPWR 



CAT 



.CAT 



CAS7 



IPW$$VE L SNCB 



CASM 



Rj VTAMPARM 

| t -C jVTAMUSER 



VTAMCID 



LUCB 



LUCD 



VTAMPARM RPL 

|VTAMARPL| -r > l RPLCNIDC] 



VTAM 



Processing 




o 



> 




DFASY 

Called by VTAM for 

expedited flow messages 

(i.e. LU request shut down and signal). 



(pi) Establish addressability. 



©If CI DS in LUCB and 
parameter list do not 



parameter list do not match: 



(03) If not signal request 

© If not request to send signal : 

© Set signal received indicator in LUCB. 

© If not RSHUDT request: 



(07) Set request stop session indication. 
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@ Activate SNA-MANAGER. 



@ Post POWER MASTER ECB. 
(vo) Return ^VTAM; 




VTAM 



Extended Description 



Include Segment Call Subroutine/ Chart 
Macro 



(Ol) On entry to this routine, R1 contains the address of a 5-word parameter 
list (ACB-address, CID of terminal, user information (here address of a 
LUCB), number of bytes received and address of a read-only RPL). 
R14 contains the return address to VTAM. 

(05) If a request to send signal is received, an information bit is set in the 
LUCB. This bit is periodically checked by inbound and outbound 
processor, running on this session. If the bit is found to be set, the 
processor will suspend to allow data-flow inbound. 

KMy The second type of signal which is accepted, is request for shutdown. 
All other signals are ignored. 









Chart MV4 
Part 2 of 2 






o 



Input 



VTAM- 



Processing 



S YSGOM 
IJBPWR 



CAT 



H IJBPWR H 

LCAT I 

p i CAS7 I H CASM | 
L lPV^$VE LsNCB 

I II 



R1 



^ VTAMPARM 
]-M VTAMRC 




TPEND 

VTAM shut down. 

(01) Establish adressability. 



© Set SNA stop code in SUCB. 

(03) Activate SNA-MANAGER. 

(04) Post POWER MASTER ECB. 

(05) Return to VTAM. 




VTAM 



Extended Description 
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Macro 



foi) On entry to this routine, R1 contains the address of a 2-word parameter list 
^-^ (ACB-adress, reason for shutdown (0 = NORMAL, 4 - QUICK HALT)). 
Rl 4 contains the return address to VTAM. 

(02) Dependent on the VTAM reason for shutdown, a HALT or a HALT 
IMMEDIATE indication is set in the SNCB. 









On 



Chart MV5 






D 
O 
CO 
N 

< 
CO 



< 

CO 

o 

P- 
O 



Input 



VTAM 



Processing 



Output 



SYSCOM 
IJBPWR h 



l^GAT 



GAT 



I CAS7 hH CASM | 



SNCB 



iPW$$VE 



R1 



VTAMPARM 



VTAMRC 



VTAMRCLF 




HvtamuserI 
L lucb 



LUCD 



o 



LOSTERM 
Logoff from VTAM 

(cn) Establish addressability. 



@ IfCIDSinLUCBand 

parameter list do not match: 



(03) Set stop session request into L.UCB. 



© Activate SWVMANAGER. 
© Post POWER MASTER ECB. 
(06) Return to VTAM. 
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Extended Description 
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nm On entry to this routine, R1 contains the address of a 4-word parameter list 
(ACB-address, CID of terminal, user information (here: address of a LUCB), 
reason for LOGOFF ( 32 = CONDITIONAL LOGOFF)). R 14 contains the 
return address to VTAM. 

(03) Dependent on the LOGOFF reason, a HALT or HALT IMMEDIATE 
indication is set in the LUCB. 
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Input 



LOGOS! Processing 




LfiCBBiLP 
(gj) if LRCB already exists: 



(02) Get virtual storage for 
W LRCBviaGETVIS. 



{03) Iferrordurir^GEWIS^or 
LRCB not within its pool: 



@ Initialize LRCB. 

(05) if LRC&chain is locked by 
LOGON processor: 

@ Scan for a free LRUB. 



(07) If none found: 

(os) Save LOGON parameters in LRUB. 
Set LRUB active. 



Output 
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REJECTLG 
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SNCB 



LRCB 



LRNX 



GETVIS-AREA 1 

1 tr 1 



R15 



I t 



SNLR 



rC 



R4 



R1 



LRCB 'A' 



i — ^ 



LRCB'B' 



Processing 



Output 



o 



^ (to) Pick up its address. 



c> 



> 



$> 



@ If not LRCS chained to the 
one in process: 




05) 



(lT) Get virtual storage for 
^ LRCB via GETVIS. 



(12) If error occurred during 

v-/ GETVIS, or LRCB not within its pool: 




/ja) Chain new LRCB on top of 
the LRCB-chain. 



£> 



LOGON 
REJECTLG 
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Extended Description 
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Macro 



(Si) Pointer SNLR in SNCB contains the address of the first LRCB. 








(0$) Get virtual storage from LOGON storage pool. 








(03) The GETVIS requested failed, or the piece of virtual storage obtained, is 
^"^ not within the LOGON storage pool. In the latter case, the storage must be 
freed, using the FREEVIS macro. 








(04) Clear LRCB storage to zero. Set storage descriptor and initial values. 








(05) The LOGON processor 1 (IPW$$LH) is active and processing the LRCB- 
chain. To prevent simultaneously UPDATE of a LRCB, the LOGON exit 
chains a new element on top of the chain. This element is in use only 
by the LOGON exit. 








(06) A free LRUB is found, when the active indicator is not on. 








(O?) The LRNX-pointer in the LRCB contains an address, if another LRCB 
is chained. 








(Vy R1 contains the address of the virtual storage for the LRCB. 








Q3) LRCB"B" is the one to be chained. Using the "COMPARE AND 

SWAP" instruction R1 points to LRCB"B", R4 points to LRCB"A" which is 
also pointed bo by the SNLR, the hook in the SUCB to the LRCBs. 
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R15 



R1 
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I E 



SUCB 



LUCB 



LOGON Processing 




£> 



^ 



C> 



£> 



SUCBGET 



(oj) If LOGON SUCB/LUCB space 
already obtained: 



(02) Calculate length of 1 SUCB 
plus 1 LUCB. 



(03) Get virtual storage for 
LOGON SUCB/LUCB. 



© If GETVIS failed, or LOGON 

SUCB/LUCB is not within its pool: 



(05) Save address of LOGON SUCB in SNCB. 



Get address of LUCB into R8. 



(g) Clear LOGON SUCB/LUCB 
space to zero. 
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REJECTLG 



R7 
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R1 
R7 



SNQB 



SNWS 



R8 
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Extended Description 
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(6T) The SNWS pointer in the SUCB contains the address of the LOGON 
SUCB/LUCB space. 

(55) R 1 points to the virtual storage for the SUCB/LUCB. 

(04) If no space for the LOGON SUCB/LUCB can be obtained from 
the LOGON space pool, the LOGON request has to be rejected. 

^1) The LOGON SUCB is based on R7, the LUCB is based on R8. 
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Input 



LOGON Processing 



Output 




WACBGET 



(pi) Calculate length of 1 
w basic WACB plus 1 buffer. 



(£2) Get virtual storage for 
W LOGON WACB via GETVI& 



(03) If error occured during 

GETVIS, or LOGON WACB not 
within its pool: 



@ Gear LOGON WACB storage 
to zero. 
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Extended Description 
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(Oy The LOGON WACB consists of one basic WACB plus one buffer. The 
length of the buffer is according to the maximum buffer size, 
indicated in the WACB. 

(55) The WACB is based on R3. 
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Input 



LOGON 




Processing 



CBINIT 

(o?) Set storage descriptors to: 
-SUCB 
-LUCB 

-WACB 
@ Chain WACB to SUCB. 
@ Chain LUCB to SUCB. 
@ Initialize LUCB. 



Output 
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SUCB 






SUSD 








LUCB 






LUSD 








WACB 






WASD 








SUCB 

SUW1 | 












SUPL | 


















LUTT=£> 




LUTX=fc 


LUBR 
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Extended Description 
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(by Upon entry, R3, R7 and R8 were set up to point to the control blocks. 
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VTAMPARM 
VTAMLUN 



SNCB 



SNAC 



VENIB 



CAT 



V rH CASY 



VTAMPARM 
VTAMLUN 



VECCB 



REASON 



VECCW1 



MSGBUF 



LOGON 



Processing 




c> 



t> 



c> 



o 



i> 
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i> 



REJECTLG 



(6]) Set reason code for msg 1V06I. 

(02) Free previously 

^^ obtained LOGON space, using FREE VIS. 

(03) Set up NIB and RPL to 
terminate the session. 

- LUNAMEinNIB. 



- Address of ACB in RPL 



- AddressofNIBinRPL 



(04) Build msg 1V06I. 



- Obtain text from message 
definition module. 

- Insert LUNAME. 



- I nsert reason code. 

(Ss) SetupaCCWandaCCBto 
v - y present msg 1V06I to the 
central operator. 

(pe) Issue EXCP and wait to 
^-^ present the message. 



Output 
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NIBSYM 



RPLACB 



RPLARG 



ChartMV11 S 






2 

KA 
-10- 
< 



MSGBUF 



VECCB ^ VECCWI 



k MSGBUF 



o 

O 



H 
ft 

CO 



^1 



Chart MV11 
Part 1 of 2 






O 
C 

(A 

V 

< 

m 

o 
w 



< 

CQ. 

o 

\& 

O 



Chart MVtt 



Input 



Processing 



Output 



VERPL 



IT* 



VENI8 



c> 



(07) Issue CLSPST request to 

VTAM to terminate the session. 




LOGON 



Extended Description 
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Macro 



(01) Message "1 V06I UNABLE TO LOGON LUNAME RC = xxx". 

(02) If space for a LOGON control block (LRCB, SUCB/LUCB or WACB) is 
not within the LOGON storage pool, this space has to be freed, using the 
FREEVIS macro. 

If the GETVIS for the first LRCB, or the SUCB/LUCB, or the WACB 
fails, any previously obtained virtual storage for LOGON control blocks 
has to be freed, using the FREEVIS macro. 

If for example the GETVIS for the LOGON WACB fails, the previously 
obtained storage for the LOGON/SUCB/LUCB and the LRCB are 
freed, using the FREEVIS macro. 

If for a subsequent LRCB the GETVIS fails, the storage for LOGON 
SUCB/LUCB and WACB will not be freed, using the FREEVIS macro. 

(03) The LOGON request has to be rejected. A RPL and a NIB are build to 
issue a CLSDST request to VTAM. 

(04) The message text for message 1 V06I is copied from the message definition 
module IPW$$MD into a message area (MSGBUF) within IPW$$VE. 
Then the copied message is modified with the LUNAME of the 

failing session, and the reason code for the failure. 

(05) The CCW and CCB, generated at assembly time, are relocated and 
contain the length of the message. The CCB points to the CCW, the 
CCW points to the message text. 
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CHART NA: IPW$$DD - FILE DUMP PROGRAM (14 PARTS) 



Chart NAOO: IPW$$DD - File Dump Program/ General Flow and Macro Calls 




// EXEC IPW$$DD 



V 



( 



IPW$$DD - File Dump Program 


Label 


Routine 


Functions/ 
Interfaces 


Services 


DDQO 
DD52 
DD58 
DD72 
DD74 
DD300 
PP400 
DD500 

DD9Q0 


Issue prompting message and read reply 
Open the queue file 
Open the data file 
Open the account file 
Read, format and print the account file 
Read, format and print the queue file 
Read, format and print the data file 
Read, format and print the specified 
entries of the queue and data file 
Close all files 








J 









DOS/VS Supervisor 



SVC 14 - EOJ 
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| Labels 


| Chart NA01: IPW$$DD - File Dump Program 


(Modified Data 


|Reg. (Calls 






| Fields 


| Usage j 




-4 r 


j 


L J 




T T 


T 


— t T " 




| This program is executed when a | 








j// EXEC IPW$$DD statement is entered | 
















I Register usaqe: I 








1 o 


: Service work register | 


|R0 | 




1 1. 


Service work register | 




|R1 | 






Service work register | 








1 3 


Service work register | 




|R3 | 




1 4 


Service work register | 




|R4 | 




1 5. 


Pointer to I/O buffer | 




|R5 | 




1 6 


Service work register j 




|R6 | 




I 7 


Service work register | 




|R7 | 




1 8 


: Service work register j 




|R8 j 




1 9: 


Service work register | 




|R9 | 




|10 


Pointer to I/O buffer | 




|R10 | 




|11 


Return address to caller | 




|R11 | 




|12. 


Second base register | 




|R12 | 




fl3 


Not used | 




|R13 | 




|14 


Return address to caller | 




|R14 | 




| 15 


Function base register | 




|R15 | 




I Establish addressability, Issue | 








I Prompting Message, and Check Reply | 




|DDOO 


| Set up base register. | 


(R15 | 


|DD06 


| Set up second base register. | 
j Relocate CCBs and CCWs using register | 




|R12 | 




] 1 as a work register. | 




|R1 | 


|DD08 


| Load the address of the | 




( |COMRG 




| communications region into register 1| 




|R1 | 




| to get DOS/VS line count. | 


| DOSLCT 


1 I 


|DD10 


| Blank the reply area. | 


| IiSIREP 




|Load the address of the CCB in | 








| register 1. | 




|Rl I 




| Write message DUMP FUNCTION^ and wait | 




| | WAIT 




jfor reply. | 








| Clear work registers. | 




|R3-R5 | 
|R8„R9 | 




| If blank reply,, branch to >|DD50 






|DD12 


| Check the bytes of the reply area. | 
| If the byte contains a comma, branch | 
1 to ^> 1 DD1 6 








| If the byte contains a blank, branch | 








|to. >|DD20 






|DD14 


| Address the next byte of the reply. | 
| If 18 bytes have been read,, branch | 
| to ,---- ---- ^ 1 nn R n 








|Otl 


______ _ .................. ^, *^w ~r V 

lerwise, branch to. >|DD12 
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| Labels 
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| Chart NA02: IPW$$DD - File Dump Program 


T 

(Modified Data 

| Fields 

J. - . — . 


— T T 

|Reg. | Calls 
| Usage | 
-4- 4- 


|DD16 


— j. -^ - . — — T 

| If the comma is not the first one in | 
jthe reply, branch to >|DD18 


■ T 


T T 




| If it is the first comma, store its | 

| address in register 3 and branch to >|DD14 




|R3 | 


|DD18 


| If the comma is not the second one,, | 
|the reply is invalid, branch to.... >|DD50 








| If it is the second comma, store its | 

| address in register 4 and branch to >|DD14 




|R4 | 


|DD20 


| Store the address of the blank | 
j character in register 9,. | 

| If register 3 contains the address of| 

| the first comma,, branch to >|DD30 

| If the length of the reply is not 1 | 

| by te , branch to* >|DD22 




|R9 | 




|Move the contents of the reply area | 
j (INREP) into the dump function field. | 


| FDMP 






| If the reply is D (dump of the data | 
(file requested), branch to........* >|DD58 








| If the reply is A (dump of the | 

| account file requested),, branch to. >|DD7 2 








| If the reply is Q (dump of the queue | 
|file requested),, branch to.. >|DD5 2 








| If the character is not D, A, or Q, | 
| it must be a job name. | 








(Set the job name length field to 1. | 


| JBNL 






| Reset the dump function to blank. | 


| FDMP 






['Branch to >|DD52 






|DD22 


| If the reply is not EOJ„ branch to. >|DD24 








| Otherwise, terminate the job. | 




| |SVC 14 


|DD2U 


| Establish the jot name. | 






|DD26 


j If a blank character is found, branch | 

| to >| DD2 8 






|DD28 


| If the job name is longer than 8 | 
(characters, branch to >|DDU6 






] Otherwise, save the length of the job| 
|name. | 


| JBNL 






|Branch to >|DD52 
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Chart NA03: JPW$$DP * File Dump Program 



Modified Data 
Fields 



Reg. 
Usage 



| Calls 



1PD32 



I DP 34 



|DD38 



wmo 



I 

|PP42 



IPD44 



JDP46 



JDD48 
I 



Establish the length of the job name. 
If it is more than 8 characters t 
branch to. ,..,..„ > 

Otherwise, store the length of the 
job name. 

If the reply does not contain a 
second comma, branch to. , , . . > 

Otherwise, calculate the length of 
the job number. 

If the job number is longer than 6 
characters , branch to. > 

If no job number is specified, branch 
to , > 

If the specified job number is 
invalid, branch to « . . . >! 

Otherwise, save the job number and 
branch to . . . > 

Establish the length of the job 
number and branch to. > 

If no queue option is specified in 
the reply , branch to ....,,,. > 

If the queue option specified is not 
L, P, or R (for list, punch, or read 
queue) , branch to > 

Otherwise, branch to... > 

Save the specified queue option and 
branch to. > 

Move message INVALID JOBNUMBER into 
the message area. 

To print the message on the console, 
branch and link to. > 

Clear the message area and branch 

to , > 

Move message INVALID JOBNAME into the 
message area. 

To print the message on the console, 
branch and link to > 

Clear the message area and branch 
to. > 

Move message INVALID THIRD OPERAND 
into the message area. 

To print the message on the console, 
branch and link to > 



DD46 



PP3 8 



PP44 
DD4 
DD4<4 
DD40 
DP32 
DD5 2 

PD4 2 
DD48 
DD5 2 



MSGPRTC 



DD10 



MSGPRTC 



DD10 



JBNL 



JBNR 



V„„ 



JOBFCT 



MSGAR 



MSGAR 



MSGAR 



MSGAR 



MSGAR 



■U-.— ,.„_A,- 



MSGPRTC 
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Chart NA04: IPW$$DD ~ File Dump Program 



-— T" 



-+* 



Modified Data 
Fields 



j.- 



Reg. 
Usage 



Calls 



IDD50 



IDD52 



( 



IDD58 



Clear the message area and branch 

to > 

Move message INVALID REPLY into the 
message area. 

To print the message on the console, 
branch and link to > 



Clear the message area and branch 
to 

Open the Queue File 



• > 



Set up register 4 as base register 
for the queue file (IJQFILE) . 

For setting up the DTFPH, branch and 
link to > 

Establish addressability for the 
module control block and the disk 
management block in registers 6 and 7 

Open the queue file. 

Move the disk address from the MCB to 
the seek address of the queue file 
and set the record number to 1. 

If only a dump of the queue file is 
required, branch to > 

Branch and link to read a master 
queue record > 

Establish addressability of the 
master record in register 5. 

Using registers 2 and 3 as work 
registers, calculate the number of 
track groups per cylinder to 
initialize the translate table. 

Branch to open the data file....*.. > 

Open the Data File 






Set up register 4 as a base register 
for the data file (IJDFILE). 

For setting up the DTFPH, branch and 

link to.... >|DD6 2 

Establish addressability for the MCB 
in register 6. 

Open the data file. 



DD10 



MSGPRTC 



DD10 



DD6 2 



DD300 



DD7 00 



DD200 



MSGAR 



MSGAR 



MSGAR 



QCCHH 



R4 



R6,R7 



OPENR 



R5 
R2 t R3 



R4 



R6 



| OPENR 
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Chart NA05: IPW$$DD - File Dump Program 



Modified Data 
Fields 



Reg. 
Usage 



Calls 



DD60 



DD62 



DD64 



DD66 



DD68 



Move the address from the MCB to the 
seek address of the data file and set 
the record number to 1. 

Store the maximum block length in the 
MCB, using register 1 as a work 
register. 

Switch off the SLI bit. 

For reading the first data block,, 
branch and link to > 

Switch on the SLI bit. 

Calculate the length of the data 
block and store it in the MCB, using 
register 3 as a work register. 

Calculate the number of records per 
track, using registers 3, 8,, and 9 
as work registers. 

Store the number of rec6rds per track 
in the MCB. 

If there are more MCBs to be filled, 
branch to > 

If only a dump of the data file is 
requested (D specified),, branch to. > 

Otherwise, branch to. > 

Set Up the DTFPH 



Load the address of the 
communications region to register 1 

Find displacements in PUB and LUB 
table for the specified logical unit 
in the DTFPH. 

If no logical unit is assigned, 
branch to > 

Get device table address,. 

Get number of entries. 

Check the device table for a matching 
entry,, using registers 2 and 3 as 
work registers. 

If a* matching logical unit is found, 
branch to > 

Issue message INVALID LOGICAL UNIT 
and branch to. ..................... > 

Insert the DTF device type code and 
return. 



DD700 



DD60 

DD400 
DD500 



DD66 



DD6 8 



DD900 



DCCHH 

DR 



MCBL 



READ+ 4 



READ + 4 



MCBL 



MCRT 



PHDT 



Rl 



R3 



R3,R8 ( , 
R9 



Rl 

R6,R7„ 
R4 



R2 
R3 

R2,R3 



v.. 



COMRG 



Vy 
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| Labels 


| Chart NA06: IPW$$DD - File Dump Program | 

i ^ _ _ — _ _ ^ _j 


Modified Data 
Fields 

I- -I 


Reg. |Calls 
Usage | 

L J. _ _ 


r 

JDD70 


|Move lower extents and number of | 
| tracks to MCBs. | 

| Store DTFPH pointer in MCBs, move | 
[logical unit number to MCB and return | 
| to open . | 

I Open the Account File | 


r 1 
MCLO,MCDF,MCLU, 
MCNT 
(IPW$DMC) 


r T 
| Rl , R7 , | 
R6„R5„ | 
R4 | 


|DD150 


| Set up register 4 as a base register | 
|for the account file (IJAFILE). | 


|R4 | 




|For setting up the DTFPH,, branch and | 
|link to...'. >|DD6 2 








(Establish addressability for the MCB | 
jin register 6. | 




|R6 | 




| Open the account file. | 




| |0PENR 




| Move the disk address from the MCB to| 
|the seek address of the account file | 
|and set the record number to 1. * | 
| Store the maximum block length in the| 
| MCB., using register 1 as a work | 
| register. | 


ACCHH 
AR 

MCBL 


|R1 | 




I Read the Account File | 








|To repeat message DUMP FUNCTION= | 
| reply on SYSLST and to start a new j 
|page on SYSLST,, branch and link to. >|SKIP 






|DD74 


| For reading the next record , branch | 

|and link to >|DD7 00 








| register 3 as work register. | 

| If no data was read in, branch to.. >|DD900 




|R3 | 


|DD285 


|To format and print the account | 

1 record, branch and link to >| DSKDEBL 








|To get the address of the next | 

| record, branch and link to >|DD600 


|R1 | 




| If all records have been read,, | 

| unchain read count and branch to... >|DD9 00 

| Otherwise,, branch to.. >|DD7 4 








IRead the Queue File | 




|DD300 


|To repeat message DUMP FUNCTION= | 
| reply and to start a new page on | 
| SYSLST, branch and link to.. >|SKIP 




|DD310 


| Set up register 5 as base register | 
| f or the queue file. | 

| To read the next queue record,, branch | 

|and link to >|DD700 

|To format and print the record, | 

| branch and link to > | DSKDEBL 




|R5 | 
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I Reg. | Calls 
(Usage ) 
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I I 
\ I 

I I 

I ! 



Labels 
I 



DMOO 



DD410 



DD460 



DD500 



Chart NA07: IPW$$DD - File Dump Program 



If all records are read, branch to. > 



To get the address of the next 
record , branch and link to. 



> 



If there are more records to be read, 

branch to .... * > 

Otherwise, branch to. .............. > 

Read the Data File 



To start a new page on SYS LSI", branch 
anci j_ m.K *co .■••.•.•••«••••.«••«..•• ^> 

Set up register 5 as base register. 

To check whether the record contains 
data, branch and link to > 

To format and print the record, 
branch and link to. > 

To get the address of the next 
record, branch and link to. > 

If the block length is not exceeded, 
branch to. > 

Otherwise, update the model ID, using 
register 1 as work register. 

Get the address of the next MCB, 
using register 6 as work register. 

If the next MCB is not available, 
branch to * > 

Move the disk address from the MCB 
to the seek address of -the data file, 
and set the record number to 1. 

Load register 1 with the seek address 
of the data file. 

To read the next block, branch and 
link to > 

To continue the dump, branch to...* > 

Job Name Specified; Read Queue and 



Data File 



Set up register 5 as base register. 

Indicate that first record has to be 
printed. 

Blank out record-found indicator. 

Branch to > 



DD900 



£>D6 00 



DD310 
DD900 



SKIP 



TESTZERO 



DSKDEBL 



DD600 



DD460 



DD9 00 



DD7 00 
DD410 



DD513 



Modified Data 
Fields 



™H 



DMI 



DCCftH 
DR 



SKIPSW 
SAVCCHHR 



I 



|R5 



|R1 



|R6 



|R1 



|R5 






1 



I 



V.^ 1 
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|DD505 



Chart NA08: IPW$$DD - File Dump Program 



|Reg. 



Modified Data 
Fields 



ICalls 



Usage 



( 



|DD513 



|DD515 
I 



I 



IDD520 



(CNAME 



Load the seek address of the queue 
file in register 2. 

Load the address of the queue file 
MCB into register 6 for use as a base 
register - 

To get the address of the next 
record , branch and link to * > 

If the end of the extent has not been 
reached, branch to. . . > 

if no record is found, branch to... > 

Branch to ......***.....*.......... . > 

Load the address of the queue file 
MCB in register 6 for use as base 
register. 

Move the disk address from the MCB to 
the seek address of the queue file 
and set the record number to i. 

For reading the next record, branch 
and link to. > 

Establish the length of the job name 
and check whether it matches the name 
specified, using register 8 as work 
register* 

If the job name of the record does 
not match, branch to. .............. > 

Check whether a job number was 
specified in the request* using 
register 1 as work register. 

If no job number was specified, 
branch to . > 

if the job number of the record does 
not match the number specified, 
branch to > 

If the record identifier does not 
match the requested option (L # P, or 
R) , branch to > 

If the record is not the first of a 
queue set , branch to. ....*. . • .*..*. . > 

Otherwise* save the seek address of 
this queue set and branch to. ... * * . > 



Compare the job name in the record 
with the name specified in the 
request. 



DD600 

DD515 
DD545 
DD9 00 



DD700 



DD505 



DD5 20 



DD505 



DD505 



DD505 



DD5 29 



R2 
R6 



R6 



QCCHH 

QR 



R8 



Rl 



SAVCCHHR 
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Labels 



Chart NA09: IPW$$DD .- File Dump Program 



Modified Data 
Fields 



Reg. 
Usage 



I Calls 



DD529 



DD530 



DD540 



DD542 



DD544 



DD5U5 



If any record has been printed 
already, branch to > 

Otherwise, to start a new page on 
SYSLST, branch and link to... > 

For formatting and printing the queue 
record , branch and link to > 

Move the address of the first data 
block from the DMB. 

Move the address of the next record 
in the queue set from the DMB. 

Set up register 5 as base register. 

Load the address of the data file in 
register 1. 

To read a data record, branch and 
link to . > 

Check if the first two bytes are 
zeros. If not, branch to > 

Otherwise, to check if all bytes in 
the record are zeros, branch and link 
to > 

To format and print the record, 
branch and link to > 

Load the address of the data file in 
register 2. 

To get the address of the next data 
record, branch and link to > 

If the end of the trackgroup has not 
been reached, branch to. . . . , > 

If the last trackgroup has been read, 
branch to > 

Load the seek address of the queue 
file in register 1. 

To read the next queue record in this 
queue set;, branch and link to > 

Branch to > 

Get the saved seek address of the 
queue set currently processed. 

Branch to > 

Move message JOB ENTRY NOT FOUND into 
the message area. 

To print the message on the console, 
branch and link to > 



DD5 30 



SKIP 



DSKDEBL 



DSKADDR+1 



QSKADDR+1 



R5 



Rl 



DD7 00 



DD542 



TESTZER0 



DSKBEBL 



R2 



DD600 
DD540 
DD544 



Rl 



DD7 00 
DD530 

DD505 



QCCHH 



MSGAR 



MSGPRTC 



\_. 
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Modified Data 
Fields 



Reg. 
Usage 



I Calls 



DD600 



DD610 



DD615 



( 



DD618 



DD620 



DD640 



Clear the message area and branch 
to 

Update Seek Address 



Calculate the address of the next 
record and store it in register 1. 

If the account file is not the file 
to be dumped, branch to > 

If the record count is not 1, return 
to the calling routine. 

If the record count is 1 , branch 

to > 

If the next record is on the same 
track, return to the calling routine. 

Update the track number in register 
1. 

Set the record number to 1. 

If it is the QFILE f branch to > 

If- ■ jobname f jobnumber" is specified 
in the request , branch to > 

If the next track is in the 
samecylinder, branch to > 

Set the track number to 1. 

Calculate the next cylinder number 
and store it in register 1. 

If the cylinder number does not 
exceed the range of the extent , 
return to the calling routine. 

If the extent is exceeded,, clear 
register 1 and return to the calling 
routine. 

If the track number is within the 
track group, return to the calling 
routine. 

If the track group is exceeded, clear 
register 1 and return to the calling 
routine. 



MSGAR 



DD900 



DD610 



DD615 



DD618 



DD640 



DD620 



Rl 



Rl 



Rl 



Rl 



Rl 
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Labels 
I— 

DD700 



DD900 



DD990 



Chart NA11: IPW$$DD - File Dump Program (Modified Data 

Fields 

Read a Record from Disk 



DSKDEBL 






Get the seek address of the file. 

Load the MCB address in register 6. 

Get the CCB pointer and set up 
register 1 as base register. 

Move the logical unit number from the 
MCB to the CCB. 

Move the block length from the MCB to 
the CCW. 

Read a record and wait. 

Load the block length in register 3 
and save it. 

Return to the calling routine. 

Close All Files 



Load the address of the queue file 
DTFPH in register 4 . 

To close the queue file f branch and 
link to . . > 

Load the address of the data file 
DTFPri in register 4 . 

To close the data file, branch and 
J_ink to > 

Load the address of the account file 
in register 4. 

To close the account file, branch and 
li nk to * . . . • * > 

To repeat the prompting message, 
branch to. .* * > 

If the file is not open, return to 
the calling routine* 

Otherwise, close the file and return 
to the calling routine. 

Prepare Headings for the Listing 



Set up addressability. 

Load the cylinder number into 
register 7. 

To convef t it to decimal , branch and 
link to* > 

Store the converted cylinder number* 



DD990 



DD990 



DD990 



DD003 



SKADR 



PHCB+6 



READ+6 



R7SAV 



|Reg. jcalls 
(Usage 



|R6 



[Ri 



|R3 



IR4 



(R4 



|R4 



I RlO 



|i*7 



DECCVT 

DCYL+5 



WAIT 



$$BCLOSE 
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( 



Labels 






DECCVT 



DEBLOK 



Chart NA12: IPW$$DD - File Dump Program 



Load the track number into register 
7. 

To convert it to decimal, branch and 
link to , > 

Store tne converted track number. 

Load the record number into register 
7. 

To convert it to decimal, branch and 
link to . . . . . , > 

Store the converted record number. 

Load the block length into register 
7. 

To convert it to decimal, branch a*d 
link to ........ ^ ., , > 

Store the converted block length. 

Move cylinder number, track number, 
record number, and block length into 
the heading of the first record. 

Load the block length into register 
3. 

To set up print length, branch and 
link to ......... , > 

To print a data record f branch and 
link to. > 

Return to the calling routine. 

Convert to Printable Characters 



Convert binary numbers to decimal, 
using registers and 1 as work 
registers. 

Return to the calling routine when 
finished. 

Set up Correct Print Length 



Load the maximum print length (100 
characters) into register 4. 

If the record does not contain all 
zeros, branch to. 



> 



Otherwise, load the maximum print 
length in register 3, and move the 
message THIS RECORD CONTAINS BINARY 
ZEROS ON DISK into the print area. 



DECCVT 



DECCVT 



DECCVT 



DEBLOK 



PRNT 



DB1A 



Modified Data 
Fields 



DHED+6 



DREC+4 



DATH+4 

HDG1, HDG2, 
HDG3 



Reg. 
Usage 



iCalls 



R7 



R7 



R7 



R3 



R0,R1 



R4 






^*\ 
\^>' 
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|Labels 

L „ .- . «. 


-T 

|Chart NA13: IPW$$DD - File Dump Program 


~T 

| Modified Data 
| Fields 

X _ — 


— T 

(Reg. 
j Usage 


_ 1 

[Calls 


|DB1A 


T ~ ~ T~ 

| If the record length is not greater | 

| than 100 , branch to * . . > | LSBLK 


T"~ 


— f- — - 


_-|_ — 


|DB2 


| Otherwise , to convert the binary | 

| record, branch and link to >|DECCVT 






| To print the record, branch and link | 

|to >|HEXDP 










| Clear the heading area. | 


|HDG1 








| Increment the input pointer. | 






|R10 




| Branch to „ >|DB1 








|LSBLK 


|If the record length is zero, return | 
| to the calling routine. | 

| Otherwise., load the length of the j 
| remaining record in register 4 | 
|and clear register 3. | 

| Branch to , . > | DB2 




|R4 
|R3 





L X X X X X J 
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INTERNAL READER AND SPOOL/COMMAND MANAGER 



( 



CHART PA: IPW$$SM - SPOOL MANAGER 



Chart PAGO: IPW$$SM - Spool Manager, General Flow and Macro Calls 



( 



Functions 



Miscellaneous 


Module 


Macro 


Ref 


Chart 


IPWSSIC 


TPW$TCP 


1 


GD 



<c= 



Module Macro Ref Chart <C 



IPW$$NU 
IPW$$NU 
IPW$$LW 
IPW$$LR 



IPW$OLI 
IPW$CLI 
IPW$SLR 
IPW$PLR 



AC 
AC 
JC 
HB 



IPW$$NU 




IPW$$TR 


Task 
Management 


Termination 




















i 









Services 



=> 



Internal Reader 

IPW$$SM Spool-Command Manager 



<c= 



XPOO 



I coo 

SPOO 



EROO 



Routine 



Task initialization 

Internal reader interface 
Spool/command manager interface 

Termination 



Function 
Interface 



II, III, V 
I, II, III, IV 



Services 



B,D, 
B,C,D, 



IPW$$NU 



Task 
Management 



IPW$$NU 


Macro 


Ref 


Chart 


Task MGMT 


A 
B 
C 
D 
E 

F 


AA 
AC 


IPWSATT 
IPWSDET 
IPW$WFC 
IPW$WFS 
IPW$WFQ 


Storage 
Management 


IPW$RSW 
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|Reg. |Calls | 
1 Usage | f 

_ + + — , 4 

I t 1 

I t t 



Labels 



This routine is entered from task 
| selection. Normal register usage. 



smcs 



SM05 



XPQO 



XP50 



XP60 



Chart PA01: XPW$$SM - Spool Manager 



| Modified Data 
|Fields 



The first 16 bytes constitute the 
storage descriptor: 

'SMiCS V7M0 1 

TASK ACTIVATION 



Spool/command manager request | 
(GETSPOOL/CTLSPOOL) ? | 

I 

! 

Internal reader request (PUTS POOL)? | 



Determine which action to take: 

• If TCB's already initialized, 
return to task selection. .... 

• Construct internal reader or 
spool /command manager TCB 

Reserve space for TCB. 



>| ICOO 
I 



I 

> | XP7 

I 
1 



Initialize task control block: | 

Descriptor | 

Class | 

Task save area j 

TCB address ( 

Spool parameter list address | 

Job name | 

Task identifier | 

Task CUU I 

Error exit routine address j 

I 

Register 3 points to SM05 where task | 

is to receive control. | 

I 

Attach new task. I 



I 

|TCSD( 

I TCCT ( 

|TCRD( 

|TCSV( 

|TCPL( 

| TCJN ( 

|TCTI( 

|TCCU( 

|TCXA( 

I 

I 



IPW$DTC) 
IPW$DTC) 
IPW$DTC) 
IPW$DTC) 
IPW$DTC) 
IPW$DTC) 
IPW$DTC) 
IPW$DTC) 
IPW$DTC) 



[ROfRl 









Rl 

X — • 



I IPW$RSW 
| Chart AC 



| IPW$ATT 
(Chart A A 



V_v 



v 
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( 



r 

| Labels 

I. - 


— r 

j j Chart PA02: IPW$$SM - Spool Manager 


— T 

(Modified Data 
(Fields 

_ X . 


— r 

|Reg. 
|Usage 

L 


"T 

(Calls 
_j _ _ 


r 

JXP70 


T r 

(Return here after attaching new task. | 

JPOWER/VS terminating? | 

| If yes >|XP8 

| Return master spool management to | 
| task selection. | 

| wait on both POWER/VS | 
| cross -partition XECB's. | 

|« If internal reader task: wait on | 
j spool /command manager XECB to | 
| create TCB. | 


T 


— T — 


1 — 




j wait on internal reader XECB to | 
| create TCB. | 




|R1,R11 


|IPW$WFQ 
(Chart AA 


JXP80 


(Detach master spool task. | 
(Internal Reader Interface Subroutine | 




(Rll 


| IPW$DET 
| Chart AA 




(to Process PUTSPOOL Request | 




j ICOQ 


(Open interface to logical reader. | 


| IPW$OLI 
(Chart AC 




(Validate SPL addresses if not | 
| previously checked. If invalid SPL | 
| address >]IC90 










] If invalid addr/size on job boundary> | IC4 5 

(If invalid address/size not on job | 

| boundary > | IC4 




|IC05 


(Validate SPL parameters: | 

(If POWER is shutting down >|IC90 

(Validate job name: | 

(If invalid >|IC90 

(Continuing same job >|IC2 5 

(Validate class and disposition. | 

| If invalid >|IC9 


|TCJN(IPW$DTC) 






(IC08 
I 

L 


| Supply JECL statements if not ( 
| user-supplied. | 

.-X X 


x 


|R0 f Rl 

X 


|IPW$PLR 
(Chart HB 

-X : 
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Labels 



Chart PA03: IPW$$SM - Spool Manager 



Modified Data 
Fields 



Reg. 
Usage 



Calls 



IC30 



IC35 



IC40 



IC45 



IC46 



IC5G 



Pass user record from user's buffer 
area to POWER/VS RDR queue across 
logical reader interface. 

Error during logical reader 

processing? 

If yes , error return > 

End of user's buffer chain? 

If no * > 

End of PUTSPOOL job? 

If no > 

Supply POWER/VS E0J card if not 
given . 

Supply DOS/VS E0J card if LR still 
not on job boundary. 

Set job name to blanks to indicate 
PUTSPOOL job boundary. 

Release task and return any errors. 

Errors or end of job? 

If no > 

If LR is not on a job boundary then 
pass a POWER or DOS EOJ card to 
logical reader. 

Close logical reader interface. 



XP0ST the cross-partition XECB of 
the caller that issued the PUTSPOOL. 

Address POWER/VS cross-partition XECB 
and return to task selection. 

Return here from task selection; 
determine if user still active: 

Active? 

If yes > 

Previous job complete? 

If yes > 

Close-up logical reader job. 



IC38 



IC30 



IC46 



IC50 



IC70 



IC55 



R0,R1 



IPW$PLR 
Chart HB 



R0,R1 



TCJN(IPW$DTC) 
TCPL(IPW$DTC) 



R0,R1 
Rl4 f R15 

Rl 



RO f Rl, 
R14,R15 



IPW$PLR 
Chart HB 



IPW$CLI 
Chart AC 

XPOST 



IPW$WFS 
Chart AA 

XECBTAB 



IPW$PLR 
Chart HB 
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Labels 

I- .— 

IC55 



( 



IC60 



IC70 



SPOO 
SP05 



Chart PA04: IPW$$SM - Spool Manager 

Close logical reader interface update 
wait list for task selection. 

Detach task. 



Initialize error return, unpost 
XECB's,, and clear user's PIK/TIK in 
DOS/VS XECBTAB. 

Validate SPL addresses to be 
referenced: 

If invalid SPL address > 

If invalid address/size on job 

boundary -,... > 

If invalid address/size not on job 
boundary > 

Beginning of new job? 

If yes > 

Send new internal reader/writer job > 
Complete previous job and close 
logical reader interface... > 



SP15 



Spool/ Command Manager Interface 
Subroutine to Process 



GETSPOOL/CTLSPOQL Requests 

Open interface to logical writer. 



Valid class given on GETSPOOL? 

If no, error return > 

Construct class list valid job name 

if request for a new job. 

If no, error return > 

Position on line number request? 

If no > 

Establish relative line number for 
positioning. 

Set logical writer switch. 



IC90 
IC45 
IC40 



ICOO 
IC05 

ICOO 



SP57 



SP30 



SP40 



SP15 



Modified Data 
Fields 

ICWL(IPW$DPA) 



Reg. 
Usage 



ICXP(IPW$DPA) 



TCCT(IPW$DTC) 



TCRS(IPW$DTC) 



TCSS(IPW$DTC) 



Rll 



R0,R1 



Calls 



i 

IPW$CLI 
Chart AC 

IPW$DET 
Chart AA 



IPW$PLR 
Chart HB 
IPW$CLI 
Chart AC 



IPW$OLI 
Chart AC 
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r 

J Labels 

]SP23 


_ T 

| Chart PA0 5: 1PW$$SM - Spool Manager 

_ f , 

|Go to logical writer to retrieve a | 
(list record. 

| Error during logical writer 

| processing? | 

]If yes... > 


SP30 


T 

j Modified Data 
(Fields 
„ + 


— r t 

|Reg. [Calls 
j Usage [ 

__ + + 

J | IPW$GLR 
| [Chart JC 




(End of list output job? 

1 If ye s.........«. •••••••••••••••••• >J 


SP33 




]R1 ) 




] End of list output data? | 
JIf yes. > 


SP2 3 




]R0 j 




| Output data record? 

J If ye s...« •••••••••• ...•••••••••••• >| 


SP27 








|Does user want non-zero control | 

J characters? 

| If no > | 


SP23 






|SP27 


] Is buffer area large enough? ' 
| If yes > 


SP35 






[SP30 


| Close logical writer. 




|TCSS(IPW$DTC) 


[RQ,R1 |IPW$GLR 
j [Chart JC 


|SP33 


[Indicate logical writer job boundary.' 
| Error return > 


SP40 


|TCJN(IPW$DTC) 




|SP35 


(Return print record and/or non-zero 
| print control character to user; 
| return a buffer of printable blanks 
j if only print control character is 
| returned. 








[SP40 


[Release task and return any errors. 

| XPOST the cross-partition XECB of the 
| caller that issued the GETSPOOL or 
ICTLSPOOL. 

| Address POWER/VS cross-partition XECB 
|and return to task selection. 




|TCPL(IPW$DTC) 


|R0,R1 | XPOST 
|R14,R15[ 

|R1 |IPW$WFS 
| | Chart AA 




[Return here from task selection; 
[determine if user still active: 
If active. > 


SP55 




[R0,R1, [XECBTAB 
[R15 | 



/f""~-\ 
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Labels 



Chart PA06: IPW$$SM - Spool Manager 



Modified Data 
Fields 



Reg. 
Usage 



Calls 



4T" 



SP47 

SP50 

SP55 
SP57 

SP58 



SP62 



SP64 



SP63 



Previous job complete? 

If yes > 

Close-up logical writer. 



Close logical writer interface. 

Update wait list for task selection. 
Detach task- 
Initialize error return. 

Unpost XECB's, and clear user's 
PIK/TIK in DOS/VS XECBTAB. 

Validate SPL addresses, buffer length 

and address to be referenced. 

If invalid, error return > 

POWER/VS terminating? 

If yes > 

Load only request? If yes > 

GETSPOOL request in- process? 

If yes > 

Close logical writer job. 
Process CTLSPQOL Request 



User supplied own command? 

If no > 

Check if command is supported. 

If yes > 

If no, error return....- > 

Validate job name in SPL: 

If invalid, error return > 

Construct POWER/VS command for 
CTLSPOOL in user-supplied buffer 
according to the CTLSPOOL request. 



SP47 



SP30 



SP4 
SP05 



SP6 2 



SP63 



SP85 
SP40 



SP40 



SPWL(IPW$DPA) 



SMXP(IPW$DPA) 



SPER 



IPW$GLR 
Chart JC 

IPW$OLI 
Chart AC 



IPW$DET 
Chart AA 



IPW$GLR 
Chart JC 
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Labels 



Chart PA07: IPW$$SM * Spool Manager 



Modified Data 
Fields 



Reg. 
Usage 



Calls 



SP85 



SP90 



EROO 



Pass POWER/VS command to the command 
processor by invoking the auxiliary 
command function. 

Wait for command processing to 
complete. 

User supplied own command? 

If yes, return..,. > 

Status request? 

If yes > 

Command successful? 

If yes * > 

Return with error message in 

buffer > 

Job found? 

If yes... > 

LST queue just scanned: 

Not found on LST nor RDR queue, error 

return > 

Go scan RDR queue for job > 

Internal Reader Task Error Exit 

The following error exit subroutines 
receive control from POWER/VS 
termination (IPW$$TR) or when POWER'S 
XECB is XPOSTED by the DOS/VS 
Supervisor's clean-up function as 
determined by several checks 
throughout the IPW$$SM phase. 

Check if PUTSPOOL user is active: 

If not > 

XPOST user's cross-partition XECB. 



SP40 



SP90 



SP4 



SP40 



SP40 



SP4 
SP63 



ER20 



RO, Rl 



Rl 



IPW$ICP 
Chart GD 



IPW$WFC 
Chart AA 



v> 



R0,R1 
R14,R15 



R0,R1 
R14,R15 



XECBTAB 



XPOST 
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h 



Labels 



Chart PA08: IPW$$SM - Spool Manager 



Modified Data 
Fields 



Reg. 
Usage 



Calls 



ER20 



ER50 



ER70 



Clear POWER/VS cross-partition XECB, 
update wait list for task selection, 
and detach internal reader task, 

Spool/Command Manager Task Error Exit 



Check if GETSPOOL/CTLSPOOL user is 

active: 

If not > 

XPOST user's cross-partition XECB. 



Clear POWER/VS cross-partition XECB, 
update wait list for task selection, 
and detach spool /command manager LST 
task. 



ER7 



ICXP(IPW$DPA) 
ICWL(IPW$DPA) 



SMXP(IPW$DPA) 
SPWL(IPW$DPA) 



Rll 

R0,R1 

R14,15 

R0,R1 
Rl4 f R15 

Rll 



IPW$DET 
Chart AA 



XECBTAB 



XPOST 



IPW$DET 
Cnart AA 
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